diff options
Diffstat (limited to 'tk/library/demos/floor.tcl')
| -rw-r--r-- | tk/library/demos/floor.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tk/library/demos/floor.tcl b/tk/library/demos/floor.tcl index 30b62da2e2c..6c62d3a4aad 100644 --- a/tk/library/demos/floor.tcl +++ b/tk/library/demos/floor.tcl @@ -3,7 +3,7 @@ # This demonstration script creates a canvas widet that displays the # floorplan for DEC's Western Research Laboratory. # -# SCCS: @(#) floor.tcl 1.6 97/03/02 16:23:32 +# RCS: @(#) $Id$ if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." @@ -1368,3 +1368,4 @@ bind $c <B2-Motion> "$c scan dragto %x %y" bind $c <Destroy> "unset currentRoom" set currentRoom "" trace variable currentRoom w "roomChanged $c" + |