home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 24_8.tcl < prev    next >
Text File  |  2003-04-15  |  439b  |  20 lines
  1. #
  2. # Example 24-8
  3. # The effects of internal padding (-ipady).
  4. #
  5.  
  6. # Create and pack two frames
  7. frame .menubar -bg white
  8. frame .body -width 150 -height 50 -bg grey50
  9. # Create buttons at either end of the menubar
  10. foreach b {alpha beta} {
  11.     button .menubar.$b -text $b
  12. }
  13. pack .menubar.alpha -side left -ipady 10
  14. pack .menubar.beta -side right -ipadx 10
  15. # Let the menu bar fill along the top
  16. pack .menubar -side top -fill x -ipady 5
  17. pack .body
  18.  
  19.  
  20.