home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 24_17.tcl < prev    next >
Text File  |  2003-04-15  |  523b  |  24 lines
  1. #
  2. # Example 24-17
  3. # Controlling the packing order.
  4. #
  5.  
  6. # Create five labels in order
  7. foreach label {one two three four five} {
  8.     label .$label -text $label
  9.     pack .$label -side left -padx 5
  10. }
  11. # ShuffleUp moves a widget to the beginning of the order
  12. proc ShuffleUp { parent child } {
  13.     set first [lindex [pack slaves $parent] 0]
  14.     pack $child -in $parent -before $first
  15. }
  16. # ShuffleDown moves a widget to the end of the order
  17. proc ShuffleDown { parent child } {
  18.     pack $child -in $parent
  19. }
  20. ShuffleUp . .five
  21. ShuffleDown . .three
  22.  
  23.  
  24.