ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/Development/ray/src/util/gethelp.tcl
(Generate patch)

Comparing ray/src/util/gethelp.tcl (file contents):
Revision 2.1 by greg, Wed Sep 13 14:51:06 1995 UTC vs.
Revision 2.2 by greg, Mon Oct 2 15:52:57 1995 UTC

# Line 230 | Line 230 | proc helpupdate {} {                   # update help text window
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                          }
# Line 246 | Line 246 | proc helpupdate {} {                   # update help text window
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 {

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)