1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
|
# ISearch Package for tkTextEnhanced --
#
# This file should be source from the tkTextInitHook in ones ~/.tkBindrc file
#
# Copyright 1995 by Paul Raines (raines@slac.stanford.edu)
#
# Permission to use, copy, modify, and distribute this software and
# its documentation for any purpose and without fee is hereby
# granted, provided that the above copyright notice appear in all
# copies. The University of Pennsylvania, Stanford University, and
# Stanford Linear Accelerator Center makes no representations
# about the suitability of this software for any purpose. It is
# provided "as is" without express or implied warranty.
global tkText tkBind
if {![info exists tkBind(isearch,bind)] || $tkBind(isearch,bind)} {
bind Text <Control-s> {
tkTextISearchStart %W -forwards -exact
}
bind Text <Control-r> {
tkTextISearchStart %W -backwards -exact
}
}
bind TextISearch <Control-s> {
set tkText(%W,searchDir) -forwards
tkTextISearchNext %W $tkText(%W,searchStr) insert
break
}
bind TextISearch <Control-r> {
set tkText(%W,searchDir) -backwards
tkTextISearchNext %W $tkText(%W,searchStr) \
[%W index "$tkText(%W,searchNdx) -1 char"]
break
}
bind TextISearch <Control-g> {
tkTextSetCursor %W $tkText(%W,searchHome)
tkTextISearchStop %W 0
break
}
bind TextISearch <BackSpace> {tkTextISearchPop %W; break}
bind TextISearch <Delete> {tkTextISearchPop %W; break}
bind TextISearch <KeyPress> {
if {[lsearch $tkBind(modKeys) %K] > -1} break
if [string length %A] {
tkTextISearchAdd %W %A
break
} else {
tkTextISearchStop %W
continue
}
}
bind TextISearch <Control-j> { tkTextISearchAdd %W \n; break }
bind TextISearch <Control-w> {
tkTextISearchAdd %W [%W get insert [tkTextPlaceWord %W +]]
break
}
bind TextISearch <Control-y> {
tkTextISearchAdd %W [%W get insert "insert lineend"]
break
}
bind TextISearch <Return> { tkTextISearchStop %W; break }
bind TextISearch <ButtonPress> { tkTextISearchStop %W; continue }
bind TextISearch <Alt-KeyPress> { tkTextISearchStop %W; continue }
bind TextISearch <Meta-KeyPress> { tkTextISearchStop %W; continue }
bind TextISearch <Control-KeyPress> { tkTextISearchStop %W; continue }
bind TextISearch <Control-q> {
bindtags %W [concat TextISQ $tkBind(%W,bindtags)]
break
}
bind TextISearchQ <KeyPress> {
if {[lsearch $tkBind(modKeys) %K] > -1} break
tkTextISearchAdd %W %A
bindtags %W [concat TextISearch $tkBind(%W,bindtags)]
break
}
bind TextISearchQ <ButtonPress> {
bindtags %W [concat TextISearch $tkBind(%W,bindtags)]
eval $tkBind(bell)
break
}
proc tkTextISearchStart {w dir mode} {
global tkText tkBind
set tkText($w,markActive) 0
set tkText($w,arg) {}
set tkText($w,searchStr) {}
set tkText($w,searchStack) {}
set tkText($w,searchDir) $dir
set tkText($w,searchMode) $mode
set tkText($w,searchHome) [$w index insert]
set tkText($w,searchNdx) [$w index insert]
if {![llength $tkBind($w,bindtags)]} {
set tkBind($w,bindtags) [bindtags $w]
}
bindtags $w [concat TextISearch $tkBind($w,bindtags)]
tkBindSetMesg $w {Isearch: }
}
proc tkTextISearchStop {w {setmark 1}} {
global tkText tkBind
if {[llength $tkBind($w,bindtags)]} {
bindtags $w $tkBind($w,bindtags)
set tkBind($w,bindtags) {}
}
if $setmark {
tkTextSetMark $w $tkText($w,searchHome)
set tkText($w,markActive) 0
}
foreach elem [list searchStr searchStack searchDir searchMode \
searchHome searchNdx] {
unset tkText($w,$elem)
}
set tkText($w,prevCmd) ISearchStart
}
proc tkTextISearchNext {w str start} {
global tkText tkBind
set start [$w index $start]
if {$tkText($w,searchDir) == "-forwards"} {
set stop end } else { set stop 1.0 }
if $tkBind(noCase) { set casesw "-nocase" } else { set casesw "--" }
set ndx [$w search $tkText($w,searchDir) $tkText($w,searchMode) \
$casesw $str $start $stop]
if [string length $ndx] {
lvarpush tkText($w,searchStack) \
[list $tkText($w,searchStr) $tkText($w,searchNdx) [$w index insert]]
set tkText($w,searchNdx) $ndx
set tkText($w,searchStr) $str
tkBindSetMesg $w "Isearch: $str"
if {$tkText($w,searchDir) == "-forwards"} {
$w mark set insert \
[$w index "$ndx + [string length $tkText($w,searchStr)] chars" ]
} else {
$w mark set insert $ndx
}
$w see insert
return 1
} else {
eval $tkBind(bell)
return 0
}
}
proc tkTextISearchAdd {w A} {
global tkText tkBind
if {$tkText($w,searchDir) == "-forwards"} {
set start [$w index "$tkText($w,searchNdx) -1 char"]
} else {
set start [$w index "insert + [expr [string length $tkText($w,searchStr)]+1] chars" ]
}
set str $tkText($w,searchStr)
append str $A
if {[tkTextISearchNext $w $str $start]} {
lvarpush tkText($w,searchStack) \
[list $tkText($w,searchStr) $tkText($w,searchNdx) [$w index insert]]
set tkText($w,searchStr) $str
tkBindSetMesg $w "Isearch: $str"
$w see insert
}
}
proc tkTextISearchPop w {
global tkText tkBind
if [llength $tkText($w,searchStack)] {
lvarpop tkText($w,searchStack)
set data [lvarpop tkText($w,searchStack)]
set tkText($w,searchStr) [lindex $data 0]
set tkText($w,searchNdx) [lindex $data 1]
$w mark set insert [lindex $data 2]
tkBindSetMesg $w "Isearch: $tkText($w,searchStr)"
} else {
eval $tkBind(bell)
}
}
|
