# | Line 109 | Line 109 | proc do_options w { # Set up options screen | |
---|---|---|
109 | place $w.revert -relwidth .1071 -relheight .0610 -relx .98 -rely .98 \ | |
110 | -anchor se | |
111 | helplink $w.revert trad options revert | |
112 | < | button $w.copy -text Copy -relief raised -command {getfile \ |
112 | > | button $w.copy -text Copy -relief raised -command {getfile -grab \ |
113 | -send copyopts -view view_txt -glob $rif_glob} | |
114 | place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \ | |
115 | -anchor se |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |