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