# This demonstration script is the same as the entry1.tcl script
# except that it creates scrollbars for the entries.
#
-# SCCS: @(#) entry2.tcl 1.5 97/03/02 16:22:24
+# RCS: @(#) $Id$
if {![info exists widgetDemo]} {
error "This script should be run from the \"widget\" demo."
$w.frame.e2 insert end "This entry contains a long value, much too long "
$w.frame.e2 insert end "to fit in the window at one time, so long in fact "
$w.frame.e2 insert end "that you'll have to scan or scroll to see the end."
+