# | Line 1 | Line 1 | |
---|---|---|
1 | < | # SCCSid "$SunId$ LBL" |
1 | > | # RCSid: $Id$ |
2 | # | |
3 | # Get help from a file, formatted like so: | |
4 | # | |
# | Line 129 | Line 129 | proc helpopen fname { # open the named help file | |
129 | .helpwin.txt insert end "Loading $fname..." | |
130 | update | |
131 | set curhelp(fid) [open $fname r] | |
132 | < | if {! [file exists $ifile] || |
132 | > | if {! [file isfile $ifile] || |
133 | [file mtime $fname] > [file mtime $ifile]} { | |
134 | set helpindex(catlist) {} | |
135 | while {[gets $curhelp(fid) li] >= 0} { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |