Change <Control-ButtonPress-1> binding on Aqua to <Command-ButtonPress-1>, since Command should be used for discontinuous selection on OSX.

1 files changed, 6 insertions, 1 deletions

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}]
 }