11 |
|
} |
12 |
|
set hl [string length [exec getinfo < $radvar(AMBFILE)]] |
13 |
|
set fl [file size $radvar(AMBFILE)] |
14 |
< |
set nv [expr ($fl - $hl - 3) / 75] |
15 |
< |
if {$nv && [tk_dialog .dlg {Verification} \ |
14 |
> |
set nv [expr ($fl - $hl - 2) / 75] |
15 |
> |
if {$nv > 50 && [tk_dialog .dlg {Verification} \ |
16 |
|
"Really delete ambient file $radvar(AMBFILE)\ |
17 |
< |
with $nv indirect irradiances values?" \ |
18 |
< |
questhead 1 {Delete} {Cancel}]} { |
17 |
> |
with $nv indirect irradiance values?" \ |
18 |
> |
questhead 0 {Delete} {Cancel}]} { |
19 |
|
return 0 |
20 |
|
} |
21 |
|
if [catch {exec rm $radvar(AMBFILE) < /dev/null} curmess] {return 0} |