# | Line 56 | Line 56 | proc oct_delete {} { # delete octree file | |
---|---|---|
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 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |