# This demonstration script creates a simple form with a bunch
# of entry widgets.
#
# @(#) form.tcl 1.2 95/06/15 13:01:43
set w .form
catch {destroy $w}
toplevel $w
wm title $w "Form Demonstration"
wm iconname $w "form"
positionWindow $w
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."
pack $w.msg -side top
frame $w.buttons
pack $w.buttons -side bottom -expand y -fill x -pady 2m