| 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} { |
| 144 |
|
} |
| 145 |
|
} |
| 146 |
|
if {! [catch {set fi [open $ifile w]}]} { |
| 147 |
+ |
puts $fi "# This is an automatically created index\ |
| 148 |
+ |
file -- DO NOT EDIT!" |
| 149 |
|
writevars $fi helpindex |
| 150 |
|
close $fi |
| 151 |
|
catch {exec chmod 666 $ifile} |
