# | Line 138 | Line 138 | proc do_zone w { # set up ZONE screen | |
---|---|---|
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 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |