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