suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cocoa: avoid over-eager refresh on OS X 10.11

Browse Source 
A relatively late correction to refresh handling for El Capitan
(commit 9bf18505d5) causes a canvas to be refreshed too often
in some cases. Delay the refresh to restore the old timing
without the old bug.
This commit is contained in:
Matthew Flatt 2015-11-23 20:45:25 -07:00
parent facc07e123
commit 3873064c80
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gui-lib/mred/private/wx/cocoa/frame.rkt
View File

@ -430,7 +430,10 @@
(tellv cocoa enableFlushWindow) (tellv cocoa enableFlushWindow)
(when (version-10.11-or-later?) (when (version-10.11-or-later?)
(tellv cocoa setAutodisplay: #:type _BOOL #t) (tellv cocoa setAutodisplay: #:type _BOOL #t)
(tellv cocoa displayIfNeeded)))) (queue-window-refresh-event
this
(lambda ()
(tellv cocoa displayIfNeeded))))))
(define/public (force-window-focus) (define/public (force-window-focus)
(let ([next (get-app-front-window)]) (let ([next (get-app-front-window)])

6
gui-lib/mred/private/wxme/editor-canvas.rkt
View File

@ -306,14 +306,14 @@
(maybe-reset-size)))))) (maybe-reset-size))))))
(define/private (maybe-reset-size) (define/private (maybe-reset-size)
(begin-refresh-sequence)
(let-boxes ([w 0] (let-boxes ([w 0]
[h 0]) [h 0])
(get-size w h) (get-size w h)
(unless (and (= w lastwidth) (unless (and (= w lastwidth)
(= h lastheight)) (= h lastheight))
(reset-size))) (begin-refresh-sequence)
(end-refresh-sequence)) (reset-size)
(end-refresh-sequence))))
(define/private (reset-size) (define/private (reset-size)
(reset-visual #f) (reset-visual #f)