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

Comparing src/util/do_options.tcl (file contents):
Revision 2.1 by greg, Thu Oct 27 15:56:07 1994 UTC vs.
Revision 2.3 by greg, Mon Dec 5 14:29:46 1994 UTC

# Line 14 | Line 14 | proc amb_delete {} {           # delete ambient file
14          set nv [expr ($fl - $hl - 3) / 75]
15          if {$nv && [tk_dialog .dlg {Verification} \
16                                  "Really delete ambient file $radvar(AMBFILE)\
17 <                                with $nv indirect irradiances values?" \
17 >                                with $nv indirect irradiance values?" \
18                                  questhead 1 {Delete} {Cancel}]} {
19                  return 0
20          }
# Line 109 | Line 109 | proc do_options w {            # Set up options screen
109          place $w.revert -relwidth .1071 -relheight .0610 -relx .98 -rely .98 \
110                          -anchor se
111          helplink $w.revert trad options revert
112 <        button $w.copy -text Copy -relief raised -command {getfile \
112 >        button $w.copy -text Copy -relief raised -command {getfile -grab \
113                          -send copyopts -view view_txt -glob $rif_glob}
114          place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \
115                          -anchor se

Diff Legend

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