home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 34_1.tcl < prev    next >
Text File  |  2003-04-16  |  336b  |  15 lines
  1. #
  2. # Example 34-1
  3. # Associating entry widgets with variables and commands.
  4. #
  5.  
  6. foreach {field label} {name Name address1 Address
  7.             address2 {} phone Phone} {
  8.     label .l$field -text $label -anchor w
  9.     entry .e$field -textvariable address($field) -relief sunken
  10.     grid .l$field .e$field -sticky news
  11.     bind .e$field <Return> UpdateAddress
  12. }
  13.  
  14.  
  15.