home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 25_6.tcl < prev    next >
Text File  |  2003-04-15  |  417b  |  19 lines
  1. #
  2. # Example 25-6
  3. # All combinations of -sticky settings.
  4. #
  5.  
  6. set index 0
  7. foreach x {news ns ew  " " new sew wsn esn nw ne sw se n s w e} {
  8.     frame .f$x -borderwidth 2 -relief ridge -width 40 -height 40
  9.     grid .f$x -sticky news \
  10.         -row [expr $index/4] -column [expr $index%4]
  11.     label .l$x -text $x -background white 
  12.     grid .l$x -sticky $x -padx 2 -pady 2 \
  13.         -row [expr $index/4] -column [expr $index%4]
  14.     incr index
  15. }
  16.  
  17.  
  18.  
  19.