diff options
Diffstat (limited to 'tk/library/demos/arrow.tcl')
-rw-r--r-- | tk/library/demos/arrow.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tk/library/demos/arrow.tcl b/tk/library/demos/arrow.tcl index 126c17959c4..f3f00c1084c 100644 --- a/tk/library/demos/arrow.tcl +++ b/tk/library/demos/arrow.tcl @@ -3,7 +3,7 @@ # This demonstration script creates a canvas widget that displays a # large line with an arrowhead whose shape can be edited interactively. # -# SCCS: @(#) arrow.tcl 1.8 97/03/02 16:18:20 +# RCS: @(#) $Id$ if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." @@ -236,3 +236,4 @@ proc arrowMove3 {c x y} { set v(width) $newWidth } } + |