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 irradiance values?" \ |
18 |
< |
questhead 1 {Delete} {Cancel}]} { |
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 |