# | Line 195 | Line 195 | proc do_views w { # create views screen | |
---|---|---|
195 | -anchor se | |
196 | helplink $w.revert trad views revert | |
197 | button $w.copy -text Copy -relief raised -command {getfile -grab \ | |
198 | < | -send copyviews -view view_txt -glob $rif_glob} |
198 | > | -send copyviews -view view_txt -glob $myglob(rif)} |
199 | place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \ | |
200 | -anchor se | |
201 | helplink $w.copy trad views copy |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |