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

Comparing ray/src/util/do_scene3.6.tcl (file contents):
Revision 2.1 by greg, Thu Oct 27 15:56:08 1994 UTC vs.
Revision 2.2 by greg, Fri Oct 28 10:43:32 1994 UTC

# Line 148 | Line 148 | proc do_scene w {              # Create scene screen
148          button $w.matb -text Materials -relief raised \
149                          -command "lbgetf materials"
150          set mybox(materials) $w.mat.lb
151 <        place $w.matb -relwidth .1071 -relheight .0610 -relx .0714 -rely .1463
151 >        place $w.matb -relwidth .1200 -relheight .0610 -relx .0714 -rely .1463
152          frame $w.mat
153          scrollbar $w.mat.sb -relief sunken -command "$w.mat.lb yview"
154          listbox $w.mat.lb -relief sunken -yscroll "$w.mat.sb set" -font $lbfont
# Line 162 | Line 162 | proc do_scene w {              # Create scene screen
162          button $w.illb -text Illum -relief raised \
163                          -command "lbgetf illum"
164          set mybox(illum) $w.ill.lb
165 <        place $w.illb -relwidth .1071 -relheight .0610 -relx .0714 -rely .2683
165 >        place $w.illb -relwidth .1200 -relheight .0610 -relx .0714 -rely .2683
166          frame $w.ill
167          scrollbar $w.ill.sb -relief sunken -command "$w.ill.lb yview"
168          listbox $w.ill.lb -relief sunken -yscroll "$w.ill.sb set" -font $lbfont
# Line 176 | Line 176 | proc do_scene w {              # Create scene screen
176          button $w.sceb -text Scene -relief raised \
177                          -command "lbgetf scene"
178          set mybox(scene) $w.sce.lb
179 <        place $w.sceb -relwidth .1071 -relheight .0610 -relx .0714 -rely .3902
179 >        place $w.sceb -relwidth .1200 -relheight .0610 -relx .0714 -rely .3902
180          frame $w.sce
181          scrollbar $w.sce.sb -relief sunken -command "$w.sce.lb yview"
182          listbox $w.sce.lb -relief sunken -yscroll "$w.sce.sb set" -font $lbfont
# Line 190 | Line 190 | proc do_scene w {              # Create scene screen
190          button $w.objb -text Objects -relief raised \
191                          -command "lbgetf objects"
192          set mybox(objects) $w.obj.lb
193 <        place $w.objb -relwidth .1071 -relheight .0610 -relx .0714 -rely .6829
193 >        place $w.objb -relwidth .1200 -relheight .0610 -relx .0714 -rely .6829
194          frame $w.obj
195          scrollbar $w.obj.sb -relief sunken -command "$w.obj.lb yview"
196          listbox $w.obj.lb -relief sunken -yscroll "$w.obj.sb set" -font $lbfont
# Line 200 | Line 200 | proc do_scene w {              # Create scene screen
200          place $w.obj -relwidth .5714 -relheight .2683 -relx .2143 -rely .6829
201          eval $w.obj.lb insert end $radvar(objects)
202          button $w.autob -text Auto -relief raised -command getdepend
203 <        place $w.autob -relwidth .1071 -relheight .0610 -relx .0714 -rely .7927
203 >        place $w.autob -relwidth .1200 -relheight .0610 -relx .0714 -rely .7927
204          helplink "$w.obj.lb $w.objb $w.autob" trad scene objects
205          # View button
206          button $w.vwb -text Edit -relief raised -command vwselfil

Diff Legend

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