home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 24_11.tcl < prev    next >
Text File  |  2003-04-15  |  562b  |  26 lines
  1. #
  2. # Example 24-11
  3. # Resizing without the expand option.
  4. #
  5.  
  6. # Make the main window black
  7. . config -bg black
  8. # Create and pack two frames
  9. frame .menubar -bg white
  10. frame .body -width 150 -height 50 -bg grey50
  11. # Create buttons at either end of the menubar
  12. foreach b {alpha beta} {
  13.     button .menubar.$b -text $b
  14. }
  15. pack .menubar.alpha -side left
  16. pack .menubar.beta -side right
  17. # Let the menu bar fill along the top
  18. pack .menubar -side top -fill x
  19. pack .body
  20. # Resize the main window to be bigger
  21. wm geometry . 200x100
  22. # Allow interactive resizing
  23. wm minsize . 100 50
  24.  
  25.  
  26.