# | Line 216 | Line 216 | proc do_scene w { # Create scene screen | |
---|---|---|
216 | -anchor se | |
217 | helplink $w.revert trad scene revert | |
218 | button $w.copy -text Copy -relief raised -command {getfile -grab \ | |
219 | < | -send copyscene -view view_txt -glob $rif_glob} |
219 | > | -send copyscene -view view_txt -glob $myglob(rif)} |
220 | place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \ | |
221 | -anchor se | |
222 | helplink $w.copy trad scene copy |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |