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

Comparing ray/src/util/gethelp3.6.tcl (file contents):
Revision 2.8 by greg, Mon Dec 5 11:40:50 1994 UTC vs.
Revision 2.10 by greg, Mon Jul 24 13:31:24 1995 UTC

# Line 27 | Line 27 | proc gethelp {helpfile category topic} {       # Open help w
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
# Line 144 | Line 144 | proc helpopen fname {                  # open the named help file
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}

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines