home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 24_14.tcl < prev    next >
Text File  |  2003-04-15  |  364b  |  17 lines
  1. #
  2. # Example 24-14
  3. # Setup for anchor experiments.
  4. #
  5.  
  6. # Make the main window black
  7. . config -bg black
  8. # Create two frames to hold open the cavity
  9. frame .prop -bg white -height 80 -width 20
  10. frame .base -width 120 -height 20 -bg grey50
  11. pack .base -side bottom
  12. # Float a label and the prop in the cavity
  13. label .foo -text Foo
  14. pack .prop .foo -side right -expand true
  15.  
  16.  
  17.