blob: aa7205a8ece3583d8d5f24bff93266e9bcd13c40 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
# ----------------------------------------------------------------------
# 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]
|