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: |
138 |
|
place $w.revert -relwidth .1071 -relheight .0610 -relx .98 -rely .98 \ |
139 |
|
-anchor se |
140 |
|
helplink $w.revert trad zone revert |
141 |
< |
button $w.copy -text Copy -relief raised -command {getfile \ |
141 |
> |
button $w.copy -text Copy -relief raised -command {getfile -grab \ |
142 |
|
-send copyzone -view view_txt -glob $rif_glob} |
143 |
|
place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \ |
144 |
|
-anchor se |