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

Comparing ray/src/util/do_zone.tcl (file contents):
Revision 2.2 by greg, Fri Oct 28 10:43:34 1994 UTC vs.
Revision 2.4 by greg, Tue Nov 1 20:01:58 1994 UTC

# Line 36 | Line 36 | proc zonechange {nm el op} {           # record change in ZONE
36                  return
37          }
38          trace vdelete radvar(ZONE) wu zonechange
39 <        set radvar(ZONE) "$zonevar(IE)  $zonevar(xmin) $zonevar(xmax)  $zonevar(ymin) $zonevar(ymax)  $zonevar(zmin) $zonevar(zmax)"
39 >        set radvar(ZONE) "$zonevar(IE) $zonevar(xmin) $zonevar(xmax) $zonevar(ymin) $zonevar(ymax) $zonevar(zmin) $zonevar(zmax)"
40          trace variable radvar(ZONE) wu zonechange
41   }
42  
# Line 138 | Line 138 | proc do_zone w {               # set up ZONE screen
138          place $w.revert -relwidth .1071 -relheight .0610 -relx .98 -rely .98 \
139                          -anchor se
140          helplink $w.revert trad zone revert
141 <        button $w.copy -text Copy -relief raised -command {getfile \
141 >        button $w.copy -text Copy -relief raised -command {getfile -grab \
142                          -send copyzone -view view_txt -glob $rif_glob}
143          place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \
144                          -anchor se

Diff Legend

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