Changeset 16495


Ignore:
Timestamp:
Aug 6, 2015, 8:05:16 PM (4 years ago)
Author:
wws
Message:

Mouse-clicks in duplicate Hemlock windows no longer
cause random scrolling.

Fixes #1289.

Location:
trunk/source/cocoa-ide
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-editor.lisp

    r16435 r16495  
    11161116  ;; (Or almost a no-op - this does an update-hemlock-selection as a side-effect)
    11171117  (unless (logtest #$NSDeviceIndependentModifierFlagsMask (#/modifierFlags event))
    1118     (let* ((view (hemlock-view self)))
     1118    (let* ((view (hemlock-view self))
     1119           (hi::*delay-display-update-p* t))
    11191120      (when view
    11201121        (unless (eventqueue-abort-pending-p self)
  • trunk/source/cocoa-ide/hemlock/src/views.lisp

    r16343 r16495  
    258258    (setq where (mark-absolute-position where)))
    259259  (setf *next-view-start* (cons how where)))
     260
     261(defvar *delay-display-update-p* nil)
    260262
    261263(defmethod handle-hemlock-event ((view hemlock-view) key)
     
    288290              (exit-event-handler () :report "Exit from hemlock event handler")))
    289291          ;; Update display
    290           (if *next-view-start*
    291             (destructuring-bind (how . where) *next-view-start*
    292               (hemlock-ext:scroll-view view how where))
    293             (unless (equal mod (buffer-modification-state text-buffer))
    294               ;; Modified buffer, make sure user sees what happened
    295               (hemlock-ext:ensure-selection-visible view)))
     292          (unless *delay-display-update-p*
     293            (if *next-view-start*
     294                (destructuring-bind (how . where) *next-view-start*
     295                  (hemlock-ext:scroll-view view how where))
     296                (unless (equal mod (buffer-modification-state text-buffer))
     297                  ;; Modified buffer, make sure user sees what happened
     298                  (hemlock-ext:ensure-selection-visible view))))
    296299          (update-echo-area-after-command view))))))
Note: See TracChangeset for help on using the changeset viewer.