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

Comparing ray/src/util/do_file.tcl (file contents):
Revision 2.12 by greg, Tue Oct 17 21:28:20 1995 UTC vs.
Revision 2.13 by greg, Fri May 17 13:53:07 1996 UTC

# Line 3 | Line 3
3   # Choose the Rad Input File to work on.
4   #
5  
6 set rif_glob *.rif
7
6   proc preen {} {                 # clean up radvar
7          global radvar rifname
8          foreach n {objects scene materials illum mkillum render oconv pfilt
# Line 290 | Line 288 | proc newnew f {                        # create a new RIF
288   }
289  
290   proc do_file w {
291 <        global rifname readonly rif_glob curfile curpat
291 >        global rifname readonly myglob curfile curpat
292          if {"$w" == "done"} {
293                  cd [file dirname $rifname]
294 <                set rif_glob $curpat
294 >                set myglob(rif) $curpat
295                  return
296          }
297          frame $w
# Line 314 | Line 312 | proc do_file w {
312          helplink $w.left.new trad file new
313          helplink $w.left.ro trad file readonly
314          getfile -view view_txt -perm \
315 <                        -win $w.right -glob [file dirname $rifname]/$rif_glob
315 >                        -win $w.right -glob [file dirname $rifname]/$myglob(rif)
316          set curfile [file tail $rifname]
317   }

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines