# | Line 186 | Line 186 | proc do_views w { # create views screen | |
---|---|---|
186 | helplink $w.copy trad views copy | |
187 | # Assign focus | |
188 | bind $w.vne <Return> "focus $w.vo.e" | |
189 | < | bind $w.vo.e <Return> addview |
189 | > | bind $w.vo.e <Return> "addview ; $w.vclr invoke" |
190 | bind $w.vo.e <B2-Motion> {} | |
191 | bind $w.vo.e <Button-2> "$w.vo.e insert insert \[selection get\]" | |
192 | $w.vclr invoke |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |