Add searching (partially stolen from demos/mkTextWind.tcl).

diff --git a/value.tcl b/value.tcl
index a8656a0f877e7ebf2b8f0a37dc8b0f8e5128315c..aeb5859b8f99a489d5485729924357d31b09dbb2 100644 (file)
--- a/value.tcl
+++ b/value.tcl
@@ -13,6 +13,8 @@ widget value {
     param height 20
     param main
     param savehist 15
+    param searchbackground indianred
+    param searchforeground white
     member hist_no 0
     member send_filter value_no_filter
     method create {} {
@@ -28,16 +30,19 @@ widget value {
        pack $self.sb -side right -fill y
        pack $self.t -side right -fill both -expand 1
        bind $self.t <Control-x><Control-s> "$self send_value"
+       bind $self.t <Control-s> "$self search_dialog"
        set m [$slot(main) add_menu Value]
        $m add command -label "Send Value" -command "$self send_value"
+       $m add command -label "Find..." -command "$self search_dialog"
        $m add command -label "Save Value..." -state disabled
        $m add command -label "Load Value..." -state disabled
        $m add command -label "Detach Window" -command "$self detach"
-       bind $self.t <FocusIn> \
-           "if {\[focus -lastfor $self\] != \"$self\"} { $slot(main) status \"C-x C-s to send value\" }; continue"
+
     }
     method reconfig {} {
        $self.t config -width $slot(width) -height $slot(height)
+       $self.t tag configure search -background $slot(searchbackground) \
+           -foreground $slot(searchforeground)
     }
     method set_value {name value redo_command} {
        $self.t delete 1.0 end
@@ -76,4 +81,76 @@ widget value {
     method copy {v} {
        $self.t insert 1.0 [$v.t get 1.0 end]
     }
+    method search_dialog {} {
+       if ![winfo exists $self.search] {
+           value_search $self.search -value $self
+           center_window $self.search
+       } else {
+           wm deiconify $self.search
+       }
+    }
+    method search {type direction nowrap text} {
+       $self.t tag remove search 0.0 end
+       scan [$self.t index end] %d n_lines
+       set start 1
+       set end [expr $n_lines+1]
+       set inc 1
+       set l [string length $text]
+       for {set i $start} {$i != $end} {incr i $inc} {
+           if {[string first $text [$self.t get $i.0 $i.1000]] == -1} {
+               continue
+           }
+           set line [$self.t get $i.0 $i.1000]
+           set offset 0
+           while 1 {
+               set index [string first $text $line]
+               if {$index < 0} {
+                   break
+               }
+               incr offset $index
+               $self.t tag add search $i.[expr $offset] $i.[expr $offset+$l]
+               incr offset $l
+               set line [string range $line [expr $index+$l] 1000]
+           }
+       }
+       if [catch {$self.t see [$self.t index search.first]}] {
+           $slot(main) status "Search text not found."
+       }
+    }
+}
+
+dialog value_search {
+    param value
+    member search_type exact
+    member nowrap 0
+    member direction forwards
+    method create {} {
+       frame $self.top
+       pack $self.top -side top -fill x
+       label $self.l -text "Search for:"
+       entry $self.e -bd 2 -relief sunken
+       bind $self.e <Return> "$self search"
+       pack $self.l -in $self.top -side left
+       pack $self.e -in $self.top -fill x -expand 1
+       checkbutton $self.re -variable [object_slotname search_type] \
+           -onvalue regexp -offvalue exact -text "Regexp search"
+       checkbutton $self.dir -variable [object_slotname direction] \
+           -onvalue backwards -offvalue forwards -text "Search backwards"
+       checkbutton $self.wrap -variable [object_slotname nowrap] \
+           -onvalue 0 -offvalue 1 -text "Wrap search"
+       pack $self.re $self.dir $self.wrap -side top -anchor w
+       button $self.close -text "Close" -command "destroy $self"
+       pack $self.close -side top
+       wm title $self "Find.."
+       wm iconname $self "Find.."
+       focus $self.e
+    }
+    method reconfig {} {
+    }
+    method search {} {
+       set text [$self.e get]
+       if ![string length $text] return
+       $slot(value) search $slot(search_type) $slot(direction) \
+           $slot(nowrap) $text
+    }
 }