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

Comparing ray/src/util/do_file.tcl (file contents):
Revision 2.4 by greg, Thu Dec 8 15:53:46 1994 UTC vs.
Revision 2.5 by greg, Thu Dec 8 17:16:38 1994 UTC

# Line 242 | Line 242 | proc newsave f {               # save a RIF
242                          return 0
243                  }
244          }
245 +        if {! [file writable $f] && [catch {exec chmod u+w $f} curmess]} {
246 +                beep
247 +                return 0
248 +        }
249          if [save_vars $f] {
250                  set rifname [pwd]/$f
251                  set readonly 0

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)