| 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 |
| 167 |
|
set curmess {Project loaded.} |
| 168 |
|
} else { |
| 169 |
|
foreach n $vl { |
| 170 |
< |
catch {unset radvar($n)} |
| 170 |
> |
if [regexp {[a-z][a-z]*} $n] { |
| 171 |
> |
set radvar($n) {} |
| 172 |
> |
} else { |
| 173 |
> |
catch {unset radvar($n)} |
| 174 |
> |
} |
| 175 |
|
} |
| 176 |
|
while {[gets $fi curli] != -1} { |
| 177 |
|
if [regexp {^[a-zA-Z][a-zA-Z0-9]* *=} $curli] { |
| 292 |
|
} |
| 293 |
|
|
| 294 |
|
proc do_file w { |
| 295 |
< |
global rifname readonly rif_glob curfile curpat |
| 295 |
> |
global rifname readonly myglob curfile curpat |
| 296 |
|
if {"$w" == "done"} { |
| 297 |
|
cd [file dirname $rifname] |
| 298 |
< |
set rif_glob $curpat |
| 298 |
> |
set myglob(rif) $curpat |
| 299 |
|
return |
| 300 |
|
} |
| 301 |
|
frame $w |
| 316 |
|
helplink $w.left.new trad file new |
| 317 |
|
helplink $w.left.ro trad file readonly |
| 318 |
|
getfile -view view_txt -perm \ |
| 319 |
< |
-win $w.right -glob [file dirname $rifname]/$rif_glob |
| 319 |
> |
-win $w.right -glob [file dirname $rifname]/$myglob(rif) |
| 320 |
|
set curfile [file tail $rifname] |
| 321 |
|
} |
