wm title . "Scrolledtext Example"
##=========================================================
## Create a Scrolledtext iwidget
##
## Notice that the horizontal scrollbar
## will not become visible until it is
## needed, since -hscrollmode = dynamic
##=========================================================
##
iwidgets::scrolledtext .st \
-labeltext "Scrolledtext Example" \
-visibleitems 70x20 \
-textfont {Courier 10} \
-textbackground black \
-vscrollmode dynamic \
-hscrollmode dynamic \
-wrap none
pack .st \
-fill both \
-expand true
##
## Change the text color of the text widget
##
.st component text configure \
-foreground green
.st import [file join / usr local tcl8.3.3 README]
|