49 |
|
load_vars [file tail $rf] {ZONE DETAIL INDIRECT VARIABILITY EXPOSURE} |
50 |
|
} |
51 |
|
|
52 |
+ |
proc add2bb f { |
53 |
+ |
global bbargs |
54 |
+ |
lappend bbargs $f |
55 |
+ |
} |
56 |
+ |
|
57 |
+ |
proc get_bbox {} { |
58 |
+ |
global radvar zonevar myglob bbargs curmess curpat |
59 |
+ |
set bbargs {} |
60 |
+ |
if [getfile -grab -perm -glob $myglob(scene) -view view_txt -send add2bb] { |
61 |
+ |
set curmess "Running getbbox..." |
62 |
+ |
update idletasks |
63 |
+ |
if [catch {eval exec getbbox -h $bbargs} bbout] { |
64 |
+ |
set curmess $bbout |
65 |
+ |
} else { |
66 |
+ |
set curmess {} |
67 |
+ |
set radvar(ZONE) "$zonevar(IE) $bbout" |
68 |
+ |
} |
69 |
+ |
} |
70 |
+ |
set myglob(scene) $curpat |
71 |
+ |
} |
72 |
+ |
|
73 |
|
proc do_zone w { # set up ZONE screen |
74 |
< |
global radvar zonevar rifname rif_glob |
74 |
> |
global radvar zonevar rifname |
75 |
|
if {"$w" == "done"} { |
76 |
|
trace vdelete radvar(ZONE) wu zonechange |
77 |
|
trace vdelete zonevar w zonechange |
93 |
|
place $w.maxl -relx .0714 -rely .1829 |
94 |
|
label $w.minl -text Minimum |
95 |
|
place $w.minl -relx .0714 -rely .3049 |
96 |
+ |
button $w.bbox -text Auto -relief raised -command get_bbox |
97 |
+ |
place $w.bbox -relwidth .1071 -relheight .0610 -relx .0714 -rely .237 |
98 |
+ |
helplink $w.bbox trad zone auto |
99 |
|
label $w.xl -text X: |
100 |
|
place $w.xl -relx .2500 -rely .2439 |
101 |
|
entry $w.xmax -textvariable zonevar(xmax) -relief sunken |
163 |
|
-anchor se |
164 |
|
helplink $w.revert trad zone revert |
165 |
|
button $w.copy -text Copy -relief raised -command {getfile -grab \ |
166 |
< |
-send copyzone -view view_txt -glob $rif_glob} |
166 |
> |
-send copyzone -view view_txt -glob $myglob(rif)} |
167 |
|
place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \ |
168 |
|
-anchor se |
169 |
|
helplink $w.copy trad zone copy |