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:
Matthew Flatt 2011-10-10 15:44:44 -06:00 committed by Eli Barzilay
parent 635a879727
commit baa0191aff
2 changed files with 2 additions and 2 deletions

View File

@ -16,8 +16,6 @@
(define NSRoundedBezelStyle 1)
(define NSRegularSquareBezelStyle 2)
(define NSAnyEventMask #xffffffff)
(define NSLeftMouseDown 1)
(define NSLeftMouseUp 2)
(define NSRightMouseDown 3)

View File

@ -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?)