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}