wm title . "Finddialog Example"
##=========================================================
## Create a Scrolledtext iwidget
##=========================================================
##
iwidgets::scrolledtext .st \
-labeltext "Finddialog Example" \
-visibleitems 70x12 \
-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]
##
## Create a Finddialog iwidget
##
iwidgets::finddialog .fd \
-textwidget .st \
-patternbackground yellow \
-patternforeground red \
-searchbackground gray \
-searchforeground blue
wm title .fd "Finddialog Example"
bind [.st component text] <3> {.fd activate}
|