| # | 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 (old) |
| > | Changed lines (new) |