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

Comparing ray/src/util/do_options.tcl (file contents):
Revision 2.4 by greg, Tue Feb 7 12:01:17 1995 UTC vs.
Revision 2.8 by greg, Sat Feb 22 02:07:30 2003 UTC

# Line 1 | Line 1
1 < # SCCSid "$SunId$ LBL"
1 > # RCSid: $Id$
2   #
3   # Options screen for trad
4   #
5  
6   proc amb_delete {} {            # delete ambient file
7          global radvar curmess
8 <        if {"$radvar(AMBFILE)" == {} || ! [file exists $radvar(AMBFILE)]} {
8 >        if {"$radvar(AMBFILE)" == {} || ! [file isfile $radvar(AMBFILE)]} {
9                  set curmess {No ambient file.}
10                  return
11          }
# Line 15 | Line 15 | proc amb_delete {} {           # delete ambient file
15          if {$nv > 50 && [tk_dialog .dlg {Verification} \
16                                  "Really delete ambient file $radvar(AMBFILE)\
17                                  with $nv indirect irradiance values?" \
18 <                                questhead 1 {Delete} {Cancel}]} {
18 >                                questhead 0 {Delete} {Cancel}]} {
19                  return 0
20          }
21          if [catch {exec rm $radvar(AMBFILE) < /dev/null} curmess] {return 0}
# Line 110 | Line 110 | proc do_options w {            # Set up options screen
110                          -anchor se
111          helplink $w.revert trad options revert
112          button $w.copy -text Copy -relief raised -command {getfile -grab \
113 <                        -send copyopts -view view_txt -glob $rif_glob}
113 >                        -send copyopts -view view_txt -glob $myglob(rif)}
114          place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \
115                          -anchor se
116          helplink $w.copy trad options copy

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines