From: sls <sls>
Date: Tue, 7 Feb 1995 09:45:53 +0000 (+0000)
Subject: Add searching (partially stolen from demos/mkTextWind.tcl).
X-Git-Tag: r5_1_1~69
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=1e97649140978675cd04b0995a891251dc4352fb;p=tkinspect

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

diff --git a/value.tcl b/value.tcl
index a8656a0..aeb5859 100644
--- 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
+    }
 }