home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / tk42r2x.zip / TclTk / lib / tk4.2 / demos / form.tcl < prev    next >
Text File  |  1999-07-27  |  1KB  |  37 lines
  1. # form.tcl --
  2. #
  3. # This demonstration script creates a simple form with a bunch
  4. # of entry widgets.
  5. #
  6. # SCCS: @(#) form.tcl 1.4 96/02/16 10:49:30
  7.  
  8. set w .form
  9. catch {destroy $w}
  10. toplevel $w
  11. wm title $w "Form Demonstration"
  12. wm iconname $w "form"
  13. positionWindow $w
  14.  
  15. label $w.msg -font $font -wraplength 4i -justify left -text "This window contains a simple form where you can type in the various entries and use tabs to move circularly between the entries."
  16. pack $w.msg -side top
  17.  
  18. frame $w.buttons
  19. pack $w.buttons -side bottom -fill x -pady 2m
  20. button $w.buttons.dismiss -text Dismiss -command "destroy $w"
  21. button $w.buttons.code -text "See Code" -command "showCode $w"
  22. pack $w.buttons.dismiss $w.buttons.code -side left -expand 1
  23.  
  24. foreach i {f1 f2 f3 f4 f5} {
  25.     frame $w.$i -bd 2
  26.     entry $w.$i.entry -relief sunken -width 40
  27.     label $w.$i.label
  28.     pack $w.$i.entry -side right
  29.     pack $w.$i.label -side left
  30. }
  31. $w.f1.label config -text Name:
  32. $w.f2.label config -text Address:
  33. $w.f5.label config -text Phone:
  34. pack $w.msg $w.f1 $w.f2 $w.f3 $w.f4 $w.f5 -side top -fill x
  35. bind $w <Return> "destroy $w"
  36. focus $w.f1.entry
  37.