| # | Line 179 | Line 179 | proc do_views w { # create views screen | |
|---|---|---|
| 179 | place $w.revert -relwidth .1071 -relheight .0610 -relx .98 -rely .98 \ | |
| 180 | -anchor se | |
| 181 | helplink $w.revert trad views revert | |
| 182 | < | button $w.copy -text Copy -relief raised -command {getfile \ |
| 182 | > | button $w.copy -text Copy -relief raised -command {getfile -grab \ |
| 183 | -send copyviews -view view_txt -glob $rif_glob} | |
| 184 | place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \ | |
| 185 | -anchor se | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines (old) |
| > | Changed lines (new) |