36 |
|
return |
37 |
|
} |
38 |
|
trace vdelete radvar(ZONE) wu zonechange |
39 |
< |
set radvar(ZONE) "$zonevar(IE) $zonevar(xmin) $zonevar(xmax) $zonevar(ymin) $zonevar(ymax) $zonevar(zmin) $zonevar(zmax)" |
39 |
> |
set radvar(ZONE) "$zonevar(IE) $zonevar(xmin) $zonevar(xmax) $zonevar(ymin) $zonevar(ymax) $zonevar(zmin) $zonevar(zmax)" |
40 |
|
trace variable radvar(ZONE) wu zonechange |
41 |
|
} |
42 |
|
|
138 |
|
place $w.revert -relwidth .1071 -relheight .0610 -relx .98 -rely .98 \ |
139 |
|
-anchor se |
140 |
|
helplink $w.revert trad zone revert |
141 |
< |
button $w.copy -text Copy -relief raised -command {getfile \ |
141 |
> |
button $w.copy -text Copy -relief raised -command {getfile -grab \ |
142 |
|
-send copyzone -view view_txt -glob $rif_glob} |
143 |
|
place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \ |
144 |
|
-anchor se |