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.1 by greg, Thu Oct 27 15:56:10 1994 UTC vs.
Revision 2.3 by greg, Fri Oct 28 20:14:41 1994 UTC

# Line 109 | Line 109 | proc do_zone w {               # set up ZONE screen
109          label $w.indl -text Indirect:
110          place $w.indl -relx .0714 -rely .5488
111          scale $w.inds -showvalue yes -from 0 -to 5 \
112 <                        -orient horizontal -command indscale \
113 <                        -length 450 -width 25
112 >                        -orient horizontal -command indscale
113          $w.inds set $radvar(INDIRECT)
114 <        place $w.inds -relx .2857 -rely .5488
114 >        place $w.inds -relx .2857 -rely .5488 -relwidth .6500 -relheight .1200
115          helplink $w.inds trad zone indirect
116          # Variability
117          label $w.varl -text Variability:
# Line 139 | 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