home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 30_5.tcl < prev    next >
Text File  |  2003-04-15  |  437b  |  22 lines
  1. #
  2. # Example 30-5
  3. # A label that displays different strings.
  4. #
  5.  
  6. proc FixedWidthLabel { name values } {
  7.     # name is a widget name to be created
  8.     # values is a list of strings
  9.     set maxWidth 0
  10.     foreach value $values {
  11.         if {[string length $value] > $maxWidth} {
  12.             set maxWidth [string length $value]
  13.         }
  14.     }
  15.     # Use -anchor w to left-justify short strings
  16.     label $name -width $maxWidth -anchor w \
  17.         -text [lindex $values 0]
  18.     return $name
  19. }
  20.  
  21.  
  22.