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

1 files changed, 1 insertions, 1 deletions

diff --git a/demos/demo.tcl b/demos/demo.tcl
index ed23514..ab64c43 100644
--- a/demos/demo.tcl
+++ b/demos/demo.tcl
@@ -502,7 +502,7 @@ proc TreePlusScrollbarsInAFrame {f h v} {
 	ShowPopup %W %x %y %X %Y
     }
     if {[tk windowingsystem] eq "aqua"} {
-	bind $f.t <Command-ButtonPress-1> {
+	bind $f.t <Control-ButtonPress-1> {
 	    ShowPopup %W %x %y %X %Y
 	}
     }