diff options
Diffstat (limited to 'tk/library/demos/form.tcl')
| -rw-r--r-- | tk/library/demos/form.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tk/library/demos/form.tcl b/tk/library/demos/form.tcl index 3c43497cbe0..f50c06d3e17 100644 --- a/tk/library/demos/form.tcl +++ b/tk/library/demos/form.tcl @@ -3,7 +3,7 @@ # This demonstration script creates a simple form with a bunch # of entry widgets. # -# SCCS: @(#) form.tcl 1.5 97/03/02 16:23:48 +# RCS: @(#) $Id$ if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." @@ -38,3 +38,4 @@ $w.f5.label config -text Phone: pack $w.msg $w.f1 $w.f2 $w.f3 $w.f4 $w.f5 -side top -fill x bind $w <Return> "destroy $w" focus $w.f1.entry + |