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

Comparing ray/src/util/do_file.tcl (file contents):
Revision 2.3 by greg, Tue Dec 6 15:54:45 1994 UTC vs.
Revision 2.7 by greg, Tue Mar 21 16:19:26 1995 UTC

# Line 167 | Line 167 | proc load_vars {f {vl all}} {  # load RIF variables
167                  set curmess {Project loaded.}
168          } else {
169                  foreach n $vl {
170 <                        set radvar($n) {}
170 >                        catch {unset radvar($n)}
171                  }
172                  while {[gets $fi curli] != -1} {
173                          if [regexp {^[a-zA-Z][a-zA-Z0-9]* *=} $curli] {
# Line 242 | Line 242 | proc newsave f {               # save a RIF
242                          return 0
243                  }
244          }
245 +        if {[file exists $f] && ! [file writable $f] &&
246 +                        [catch {exec chmod u+w $f} curmess]} {
247 +                beep
248 +                return 0
249 +        }
250          if [save_vars $f] {
251                  set rifname [pwd]/$f
252                  set readonly 0
# Line 282 | Line 287 | proc do_file w {
287          pack $w.left -side left
288          button $w.left.load -text LOAD -width 5 \
289                          -relief raised -command {newload $curfile}
290 <        button $w.left.save -text SAVE -width 5 \
291 <                        -relief raised -command {newsave $curfile}
290 >        button $w.left.save -text SAVE -width 5 -relief raised \
291 >                        -command "newsave \$curfile; update_dir $w.right"
292          button $w.left.new -text NEW -width 5 \
293                          -relief raised -command {newnew $curfile}
294          pack $w.left.load $w.left.save $w.left.new -side top -pady 15 -padx 20

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines