13 lines
464 B
Text
13 lines
464 B
Text
# ----------------------------------------------------------------------
|
|
# DEMO: scrolledtext in [incr Widgets]
|
|
# ----------------------------------------------------------------------
|
|
package require Iwidgets 4.0
|
|
|
|
option add *textBackground seashell
|
|
|
|
iwidgets::scrolledtext .st -labeltext "Scrolledtext" -wrap none \
|
|
-vscrollmode static -hscrollmode dynamic \
|
|
-width 5i -height 2i
|
|
pack .st
|
|
|
|
.st import [file join ${iwidgets::library} demos scrolledtext]
|