ALPHALINUX5/util/ALPHALINUX5/lib/tk8.3/demos/form.tcl

   1 # form.tcl --
   2 #
   3 # This demonstration script creates a simple form with a bunch
   4 # of entry widgets.
   5 #
   6 # RCS: @(#) $Id: form.tcl,v 1.2 1998/09/14 18:23:28 stanton Exp $
   7
   8 if {![info exists widgetDemo]} {
   9     error "This script should be run from the \"widget\" demo."
  10 }
  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 frame $w.buttons
  23 pack $w.buttons -side bottom -fill x -pady 2m
  24 button $w.buttons.dismiss -text Dismiss -command "destroy $w"
  25 button $w.buttons.code -text "See Code" -command "showCode $w"
  26 pack $w.buttons.dismiss $w.buttons.code -side left -expand 1
  27
  28 foreach i {f1 f2 f3 f4 f5} {
  29     frame $w.$i -bd 2
  30     entry $w.$i.entry -relief sunken -width 40
  31     label $w.$i.label
  32     pack $w.$i.entry -side right
  33     pack $w.$i.label -side left
  34 }
  35 $w.f1.label config -text Name:
  36 $w.f2.label config -text Address:
  37 $w.f5.label config -text Phone:
  38 pack $w.msg $w.f1 $w.f2 $w.f3 $w.f4 $w.f5 -side top -fill x
  39 bind $w <Return> "destroy $w"
  40 focus $w.f1.entry