# This demonstration script creates a canvas widget showing a 2-D
# plot with data points that can be dragged with the mouse.
#
-# SCCS: @(#) plot.tcl 1.5 97/03/02 16:26:19
+# RCS: @(#) $Id$
if {![info exists widgetDemo]} {
error "This script should be run from the \"widget\" demo."
set plot(lastX) $x
set plot(lastY) $y
}
+