| 230 |
|
if [regexp -nocase -indices \ |
| 231 |
|
$curhelp(search) $li mi] { |
| 232 |
|
.helpwin.txt tag add highlight\ |
| 233 |
< |
"end - 1 c - $ll c\ |
| 233 |
> |
"end - 2 c - $ll c\ |
| 234 |
|
+ [lindex $mi 0] c"\ |
| 235 |
< |
"end - $ll c\ |
| 235 |
> |
"end - 1 c - $ll c\ |
| 236 |
|
+ [lindex $mi 1] c" |
| 237 |
|
} |
| 238 |
|
} |
| 246 |
|
# Highlight next category and topic |
| 247 |
|
if {$ll > 0} { |
| 248 |
|
.helpwin.txt insert end "Next: $cat $top" |
| 249 |
< |
.helpwin.txt tag add highlight "end linestart" end |
| 249 |
> |
.helpwin.txt tag add highlight end-1lines end |
| 250 |
|
set curhelp(next) "$cat $top" |
| 251 |
|
.helpwin.but.next configure -state normal |
| 252 |
|
} else { |
