| # | 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 (old) |
| > | Changed lines (new) |