| 151 |
|
} |
| 152 |
|
wm iconbitmap . @$radlib/trad.icon |
| 153 |
|
|
| 154 |
< |
proc gotfile {{o 1}} { # set file possession state |
| 154 |
> |
proc gotfile o { # set file possession state |
| 155 |
|
global oldradvar radvar |
| 156 |
|
catch {unset oldradvar} |
| 157 |
|
if $o { |
| 161 |
|
} |
| 162 |
|
} else { |
| 163 |
|
set mode disabled |
| 164 |
– |
.file invoke |
| 164 |
|
} |
| 165 |
|
foreach b {scene zone views options action results} { |
| 166 |
|
.$b configure -state $mode |
| 169 |
|
|
| 170 |
|
# Decide where to go and start |
| 171 |
|
|
| 172 |
+ |
gotfile 0 |
| 173 |
|
if {[llength $argv] == 0} { |
| 174 |
|
set curmess "Choose a Radiance project file." |
| 175 |
< |
gotfile 0 |
| 175 |
> |
.file invoke |
| 176 |
|
} elseif {[llength $argv] == 1} { |
| 177 |
|
cd [file dirname $argv] |
| 178 |
|
set curfile [file tail $argv] |
