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 # RCS: @(#) $Id: form.tcl,v 1.4 2004/12/21 11:56:35 dkf Exp $
   7
   8 if {![info exists widgetDemo]} {
   9     error "This script should be run from the \"widget\" demo."
  10 }
  11
  12 package require Tk
  13
  14 set w .form
  15 catch {destroy $w}
  16 toplevel $w
  17 wm title $w "Form Demonstration"
  18 wm iconname $w "form"
  19 positionWindow $w
  20
  21 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."
  22 pack $w.msg -side top
  23
  24 ## See Code / Dismiss buttons
  25 set btns [addSeeDismiss $w.buttons $w]
  26 pack $btns -side bottom -fill x
  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