diff options
| author | Ian Roxborough <irox@redhat.com> | 2001-09-10 00:22:29 +0000 |
|---|---|---|
| committer | Ian Roxborough <irox@redhat.com> | 2001-09-10 00:22:29 +0000 |
| commit | ee7709783c85577eba6af30cd711e17e403befed (patch) | |
| tree | 74233a880ee1f7e13c7ded61d093318e8c6e7d5c /tk/library/demos/hscale.tcl | |
| parent | a850c17c374d03259483e799b09326d255e17487 (diff) | |
| download | gdb-ee7709783c85577eba6af30cd711e17e403befed.tar.gz | |
Tk 8.3 upgradeTK_8_3
Diffstat (limited to 'tk/library/demos/hscale.tcl')
| -rw-r--r-- | tk/library/demos/hscale.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tk/library/demos/hscale.tcl b/tk/library/demos/hscale.tcl index a760586046a..13bf81c70ff 100644 --- a/tk/library/demos/hscale.tcl +++ b/tk/library/demos/hscale.tcl @@ -2,7 +2,7 @@ # # This demonstration script shows an example with a horizontal scale. # -# SCCS: @(#) hscale.tcl 1.4 97/03/02 16:24:01 +# RCS: @(#) $Id$ if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." @@ -45,3 +45,4 @@ proc setWidth {w width} { $w coords poly 20 15 20 35 $x2 35 $x2 45 $width 25 $x2 5 $x2 15 20 15 $w coords line 20 15 20 35 $x2 35 $x2 45 $width 25 $x2 5 $x2 15 20 15 } + |