# This demonstration script creates a text widget with bindings set
# up for hypertext-like effects.
#
-# SCCS: @(#) bind.tcl 1.6 97/03/02 16:19:01
+# RCS: @(#) $Id$
if {![info exists widgetDemo]} {
error "This script should be run from the \"widget\" demo."
$w.text mark set insert 0.0
$w.text configure -state disabled
+