Changeset 7616

Timestamp:

Nov 9, 2007, 5:58:38 PM (13 years ago)

Author:

rme

Message:

Only send Hemlock a no-op if the left mouse button is clicked with
no modifier keys. (This fixes ticket:93)

File:

• trunk/ccl/cocoa-ide/cocoa-editor.lisp (modified) (1 diff)

trunk/ccl/cocoa-ide/cocoa-editor.lisp

@@ -1226 +1226 @@
 
 (objc:defmethod (#/mouseDown: :void) ((self hemlock-text-view) event)
-  (unless (logtest #$NSCommandKeyMask (#/modifierFlags event))
+  ;; If no modifier keys are pressed, send hemlock a no-op.
+  (unless (logtest #$NSDeviceIndependentModifierFlagsMask (#/modifierFlags event))
     (let* ((q (hemlock-frame-event-queue (#/window self))))
       (hi::enqueue-key-event q #k"leftdown")))