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