home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 38_1.tcl < prev    next >
Text File  |  2003-04-15  |  443b  |  22 lines
  1. #
  2. # Example 38-1
  3. # Equal-sized labels.
  4. #
  5.  
  6. proc EqualSizedLabels { parent width height strings args } {
  7.     set l 0
  8.     foreach s $strings {
  9.         frame $parent.$l -width $width -height $height
  10.         pack propagate $parent.$l false
  11.         pack $parent.$l -side left
  12.         eval {label $parent.$l.l -text $s} $args
  13.         pack $parent.$l.l -fill both -expand true
  14.         incr l
  15.     }
  16. }
  17. frame .f ; pack .f
  18. EqualSizedLabels .f 1i 1c {apple orange strawberry kiwi} \
  19.     -relief raised
  20.  
  21.  
  22.