home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 25_3.tcl < prev    next >
Text File  |  2003-04-15  |  319b  |  16 lines
  1. #
  2. # Example 25-3
  3. # A grid with row and column specifications.
  4. #
  5.  
  6. set row 0
  7. foreach color {red orange yellow green blue purple} {
  8.     label .l$color -text $color -bg white
  9.     frame .f$color -background $color -width 100
  10.     grid .l$color -row $row -column 0 -sticky w
  11.     grid .f$color -row $row -column 1 -sticky ns
  12.     incr row
  13. }
  14.  
  15.  
  16.