# ---------------------------------------------------------------------- | |
# 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] |