home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 25_4.tcl < prev    next >
Text File  |  2003-04-16  |  421b  |  22 lines
  1. #
  2. # Example 25-4
  3. # Even more nesting of horizontal and vertical stacks.
  4. #
  5.  
  6. frame .one -bg white
  7. frame .two -width 100 -height 50 -bg grey50
  8. foreach b {alpha beta} {
  9.     button .one.$b -text $b
  10.     pack .one.$b -side left
  11. }
  12. # Create a frame for two more buttons
  13. frame .one.right
  14. foreach b {delta epsilon} {
  15.     button .one.right.$b -text $b
  16.     pack .one.right.$b -side bottom
  17. }
  18. pack .one.right -side right
  19. pack .one .two -side top
  20.  
  21.  
  22.