home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 25_15.tcl < prev    next >
Text File  |  2003-04-16  |  412b  |  18 lines
  1. #
  2. # Example 25-15
  3. # The effects of noncenter anchors.
  4. #
  5.  
  6. . config -bg black
  7. # Create two frames to hold open the cavity
  8. frame .prop -bg white -height 80 -width 20
  9. frame .base -width 120 -height 20 -bg grey50
  10. pack .base -side bottom
  11. # Float the label and prop
  12. # Change their position with anchors
  13. label .foo -text Foo
  14. pack .prop -side right -expand true -anchor sw
  15. pack .foo -side right -expand true -anchor ne
  16.  
  17.  
  18.