14 lines
464 B
Text
14 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]
|