From 56a8e59c6c28bb31337cd01f1849cb0d922d304e Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Sat, 28 May 2005 21:57:17 +0000
Subject: Change <Control-ButtonPress-1> binding on Aqua to
 <Command-ButtonPress-1>, since Command should be used for discontinuous
 selection on OSX.

---
 library/treectrl.tcl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/library/treectrl.tcl b/library/treectrl.tcl
index 725a1a0..ea74d1b 100644
--- a/library/treectrl.tcl
+++ b/library/treectrl.tcl
@@ -22,7 +22,12 @@ bind TreeCtrl <Shift-ButtonPress-1> {
     set TreeCtrl::Priv(buttonMode) normal
     TreeCtrl::BeginExtend %W [%W item id {nearest %x %y}]
 }
-bind TreeCtrl <Control-ButtonPress-1> {
+# Command-click should provide a discontinuous selection on OSX
+switch -- [tk windowingsystem] {
+    "aqua" { set modifier Command }
+    default { set modifier Control }
+}
+bind TreeCtrl <$modifier-ButtonPress-1> {
     set TreeCtrl::Priv(buttonMode) normal
     TreeCtrl::BeginToggle %W [%W item id {nearest %x %y}]
 }
-- 
cgit v0.12