1 |
< |
# SCCSid "$SunId$ LBL" |
1 |
> |
# RCSid: $Id$ |
2 |
|
# |
3 |
|
# Options screen for trad |
4 |
|
# |
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 |
|
} |
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 |