[ViewVC] Diff of: radiance/ray/src/util/do

Comparing ray/src/util/do_scene3.6.tcl (file contents):
Revision 2.3 by greg, Fri Oct 28 11:10:16 1994 UTC vs.
Revision 2.5 by greg, Sat Oct 29 10:20:50 1994 UTC

#	Line 6 \| Line 6
6		set myglob(materials) *.mat
7		set myglob(illum) *.rad
8		set myglob(scene) *.rad
9	<	set myglob(objects) *.rad
9	>	set myglob(objects) *
10
11		proc newfent f { # add file to our list
12		global rifname radvar mybox myvar
#	Line 25 \| Line 25 \| proc lbgetf nm { # get list box files
25		global myglob radvar mybox myvar curpat curmess
26		set myvar $nm
27		set oldnum [llength $radvar($nm)]
28	<	if [getfile -perm -glob $myglob($nm) -view view_txt -send newfent] {
28	>	if [getfile -grab -perm -glob $myglob($nm) -view view_txt -send newfent] {
29		set curmess "Added [expr [llength $radvar($nm)] - $oldnum] entries."
30		} elseif {[llength $radvar($nm)] > $oldnum} {
31		set radvar($nm) [lreplace $radvar($nm) $oldnum end]
#	Line 216 \| Line 216 \| proc do_scene w { # Create scene screen
216		place $w.revert -relwidth .1071 -relheight .0610 -relx .98 -rely .98 \
217		-anchor se
218		helplink $w.revert trad scene revert
219	<	button $w.copy -text Copy -relief raised -command {getfile \
219	>	button $w.copy -text Copy -relief raised -command {getfile -grab \
220		-send copyscene -view view_txt -glob $rif_glob}
221		place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \
222		-anchor se

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