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.3 by greg, Fri Oct 28 11:10:16 1994 UTC vs.
Revision 2.7 by greg, Wed Feb 22 20:48:52 1995 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 45 | Line 45 | proc oct_delete {} {           # delete octree file
45          }
46          if [tk_dialog .dlg {Verification} \
47                          "Really delete octree file $radvar(OCTREE)?" \
48 <                        questhead 1 {Delete} {Cancel}] {
48 >                        questhead 0 {Delete} {Cancel}] {
49                  return 0
50          }
51          if [catch {exec rm $radvar(OCTREE) < /dev/null} curmess] {return 0}
# Line 56 | Line 56 | proc oct_delete {} {           # delete octree file
56   proc getdepend {} {             # get object dependencies
57          global radvar curmess mybox
58          set curmess "Please wait..."
59 <        update idletasks
59 >        update
60          foreach newf [eval exec raddepend $radvar(illum) $radvar(scene)] {
61                  if {[lsearch -exact $radvar(objects) $newf] < 0} {
62                          lappend radvar(objects) $newf
# 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

Diff Legend

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