# | Line 1 | Line 1 | |
---|---|---|
1 | < | # SCCSid "$SunId$ LBL" |
1 | > | # RCSid: $Id$ |
2 | # | |
3 | # Options screen for trad | |
4 | # | |
# | Line 110 | Line 110 | proc do_options w { # Set up options screen | |
110 | -anchor se | |
111 | helplink $w.revert trad options revert | |
112 | button $w.copy -text Copy -relief raised -command {getfile -grab \ | |
113 | < | -send copyopts -view view_txt -glob $rif_glob} |
113 | > | -send copyopts -view view_txt -glob $myglob(rif)} |
114 | place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \ | |
115 | -anchor se | |
116 | helplink $w.copy trad options copy |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |