1 # selection.tcl --- rebinds middle mouse button in text mode
2 # to implement a clipboard paste.
4 xcircuit
::keybind <Button-2
> { if {[eventmode
] == "text" ||
\
5 [eventmode
] == "etext"} {label insert
text "[selection get]"} else { \
6 standardaction
%b down
%s
}}
