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 |
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 |
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 |
|
} |