From 56bc4cc58acd71ebf3dffa34ea192c20cb4bd390 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <jan.nijtmans@noemail.net>
Date: Thu, 23 Aug 2012 07:06:07 +0000
Subject: new virtual event <<ToggleSelection>>

FossilOrigin-Name: 1b0ecb59de555c10d38018b5e123f06da4d3b0bd
---
 library/tk.tcl           | 3 +++
 library/ttk/entry.tcl    | 2 +-
 library/ttk/treeview.tcl | 2 +-
 3 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/library/tk.tcl b/library/tk.tcl
index 0d8853f..cac9075 100644
--- a/library/tk.tcl
+++ b/library/tk.tcl
@@ -391,6 +391,7 @@ switch -exact -- [tk windowingsystem] {
 	event add <<NextPara>>		<Control-Down>
 	event add <<SelectPrevPara>>	<Control-Shift-Up>
 	event add <<SelectPrevPara>>	<Control-Shift-Down>
+	event add <<ToggleSelection>>	<Control-ButtonPress-1>
 
 	# Some OS's define a goofy (as in, not <Shift-Tab>) keysym that is
 	# returned when the user presses <Shift-Tab>. In order for tab
@@ -439,6 +440,7 @@ switch -exact -- [tk windowingsystem] {
 	event add <<NextPara>>		<Control-Down>
 	event add <<SelectPrevPara>>	<Control-Shift-Up>
 	event add <<SelectPrevPara>>	<Control-Shift-Down>
+	event add <<ToggleSelection>>	<Control-ButtonPress-1>
     }
     "aqua" {
 	event add <<Cut>>		<Command-Key-x> <Key-F2> <Control-Lock-Key-X>
@@ -476,6 +478,7 @@ switch -exact -- [tk windowingsystem] {
 	event add <<NextPara>>		<Option-Down>
 	event add <<SelectPrevPara>>	<Shift-Option-Up>
 	event add <<SelectPrevPara>>	<Shift-Option-Down>
+	event add <<ToggleSelection>>	<Command-ButtonPress-1>
     }
 }
 
diff --git a/library/ttk/entry.tcl b/library/ttk/entry.tcl
index 22c4115..f5ba19e 100644
--- a/library/ttk/entry.tcl
+++ b/library/ttk/entry.tcl
@@ -78,7 +78,7 @@ bind TEntry <B1-Leave> 		{ ttk::Repeatedly ttk::entry::AutoScroll %W }
 bind TEntry <B1-Enter>		{ ttk::CancelRepeat }
 bind TEntry <ButtonRelease-1>	{ ttk::CancelRepeat }
 
-bind TEntry <Control-ButtonPress-1> {
+bind TEntry <<ToggleSelection>> {
     %W instate {!readonly !disabled} { %W icursor @%x ; focus %W }
 }
 
diff --git a/library/ttk/treeview.tcl b/library/ttk/treeview.tcl
index 1160e9b..8772587 100644
--- a/library/ttk/treeview.tcl
+++ b/library/ttk/treeview.tcl
@@ -43,7 +43,7 @@ bind Treeview	<KeyPress-space>	{ ttk::treeview::ToggleFocus %W }
 
 bind Treeview	<Shift-ButtonPress-1> \
 		{ ttk::treeview::Select %W %x %y extend }
-bind Treeview	<Control-ButtonPress-1> \
+bind Treeview	<<ToggleSelection>> \
 		{ ttk::treeview::Select %W %x %y toggle }
 
 ttk::copyBindings TtkScrollable Treeview 
-- 
cgit v0.12