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