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]