# | Line 109 | Line 109 | proc do_zone w { # set up ZONE screen | |
---|---|---|
109 | label $w.indl -text Indirect: | |
110 | place $w.indl -relx .0714 -rely .5488 | |
111 | scale $w.inds -showvalue yes -from 0 -to 5 \ | |
112 | < | -orient horizontal -command indscale \ |
113 | < | -length 450 -width 25 |
112 | > | -orient horizontal -command indscale |
113 | $w.inds set $radvar(INDIRECT) | |
114 | < | place $w.inds -relx .2857 -rely .5488 |
114 | > | place $w.inds -relx .2857 -rely .5488 -relwidth .6500 -relheight .1200 |
115 | helplink $w.inds trad zone indirect | |
116 | # Variability | |
117 | label $w.varl -text Variability: |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |