File: selection.tcl

package info (click to toggle)
xcircuit 3.9.73%2Bdfsg.1-2
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 8,560 kB
  • sloc: ansic: 80,417; sh: 7,295; tcl: 5,891; python: 449; makefile: 300
file content (6 lines) | stat: -rw-r--r-- 262 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
 
# selection.tcl --- rebinds middle mouse button in text mode
#		  to implement a clipboard paste.

xcircuit::keybind <Button-2> { if {[eventmode] == "text" || \
	[eventmode] == "etext"} {label insert text "[selection get]"} else { \
	standardaction %b down %s}}