| 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 |
