1 |
< |
# SCCSid "$SunId$ LBL" |
1 |
> |
# RCSid: $Id$ |
2 |
|
# |
3 |
|
# Get help from a file, formatted like so: |
4 |
|
# |
27 |
|
toplevel .helpwin -cursor top_left_arrow |
28 |
|
wm minsize .helpwin 500 400 |
29 |
|
wm iconbitmap .helpwin question |
30 |
< |
frame .helpwin.but -geometry 150x400 |
30 |
> |
frame .helpwin.but -width 150 -height 400 |
31 |
|
pack .helpwin.but -side right -fill none -expand no |
32 |
|
label .helpwin.but.lab -textvariable curhelp(title) |
33 |
|
place .helpwin.but.lab -relx .1667 -rely 0 |
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} { |