# | Line 1 | Line 1 | |
---|---|---|
1 | < | # SCCSid "$SunId$ LBL" |
1 | > | # RCSid: $Id$ |
2 | # | |
3 | # Create ZONE screen | |
4 | # | |
# | Line 63 | Line 63 | proc get_bbox {} { | |
63 | if [catch {eval exec getbbox -h $bbargs} bbout] { | |
64 | set curmess $bbout | |
65 | } else { | |
66 | < | set curmess {} |
66 | > | set curmess "Done." |
67 | set radvar(ZONE) "$zonevar(IE) $bbout" | |
68 | } | |
69 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |