| 5 |
|
|
| 6 |
|
proc amb_delete {} { # delete ambient file |
| 7 |
|
global radvar curmess |
| 8 |
< |
if {"$radvar(AMBFILE)" == {} || ! [file exists $radvar(AMBFILE)]} { |
| 8 |
> |
if {"$radvar(AMBFILE)" == {} || ! [file isfile $radvar(AMBFILE)]} { |
| 9 |
|
set curmess {No ambient file.} |
| 10 |
|
return |
| 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} |
| 110 |
|
-anchor se |
| 111 |
|
helplink $w.revert trad options revert |
| 112 |
|
button $w.copy -text Copy -relief raised -command {getfile -grab \ |
| 113 |
< |
-send copyopts -view view_txt -glob $rif_glob} |
| 113 |
> |
-send copyopts -view view_txt -glob $myglob(rif)} |
| 114 |
|
place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \ |
| 115 |
|
-anchor se |
| 116 |
|
helplink $w.copy trad options copy |
