third attempt to fix 64-bit Lion hidden-window problem
After all the previous attempts, the problem seems almost trivial:
although Apple documents `NSAnyEventMask' as the constant #xFFFFFFFF,
it's actually NSUIntegerMax (and the difference matters in 64-bit
mode).
Merge to 5.2.
(cherry picked from commit dc912ee6de
)
This commit is contained in:
parent
635a879727
commit
baa0191aff
|
@ -16,8 +16,6 @@
|
|||
(define NSRoundedBezelStyle 1)
|
||||
(define NSRegularSquareBezelStyle 2)
|
||||
|
||||
(define NSAnyEventMask #xffffffff)
|
||||
|
||||
(define NSLeftMouseDown 1)
|
||||
(define NSLeftMouseUp 2)
|
||||
(define NSRightMouseDown 3)
|
||||
|
|
|
@ -312,6 +312,8 @@
|
|||
(custodian-shutdown-all c)))))))
|
||||
(set! was-menu-bar #f)))
|
||||
|
||||
(define NSAnyEventMask (sub1 (arithmetic-shift 1 (* 8 (ctype-sizeof _NSUInteger)))))
|
||||
|
||||
;; Call this function only in atomic mode:
|
||||
(define (check-one-event wait? dequeue?)
|
||||
(pre-event-sync wait?)
|
||||
|
|
Loading…
Reference in New Issue
Block a user