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