mingw/lib/tk8.5/demos/form.tcl

   1 # form.tcl --
   2 #
   3 # This demonstration script creates a simple form with a bunch
   4 # of entry widgets.
   5
   6 if {![info exists widgetDemo]} {
   7     error "This script should be run from the \"widget\" demo."
   8 }
   9
  10 package require Tk
  11
  12 set w .form
  13 catch {destroy $w}
  14 toplevel $w
  15 wm title $w "Form Demonstration"
  16 wm iconname $w "form"
  17 positionWindow $w
  18
  19 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."
  20 pack $w.msg -side top
  21
  22 ## See Code / Dismiss buttons
  23 set btns [addSeeDismiss $w.buttons $w]
  24 pack $btns -side bottom -fill x
  25
  26 foreach i {f1 f2 f3 f4 f5} {
  27     frame $w.$i -bd 2
  28     entry $w.$i.entry -relief sunken -width 40
  29     label $w.$i.label
  30     pack $w.$i.entry -side right
  31     pack $w.$i.label -side left
  32 }
  33 $w.f1.label config -text Name:
  34 $w.f2.label config -text Address:
  35 $w.f5.label config -text Phone:
  36 pack $w.msg $w.f1 $w.f2 $w.f3 $w.f4 $w.f5 -side top -fill x
  37 bind $w <Return> "destroy $w"
  38 focus $w.f1.entry