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

third attempt to fix 64-bit Lion hidden-window problem

Browse Source 
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.

original commit: dc912ee6def7a6e8b4edc13c230b367761c5c722
This commit is contained in:
Matthew Flatt 2011-10-10 15:44:44 -06:00
parent 8da2243aeb
commit 20741c8fc5
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wx/cocoa/const.rkt
View File

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

2
collects/mred/private/wx/cocoa/queue.rkt
View File

@ -312,6 +312,8 @@
(custodian-shutdown-all c))))))) (custodian-shutdown-all c)))))))
(set! was-menu-bar #f))) (set! was-menu-bar #f)))
(define NSAnyEventMask (sub1 (arithmetic-shift 1 (* 8 (ctype-sizeof _NSUInteger)))))
;; Call this function only in atomic mode: ;; Call this function only in atomic mode:
(define (check-one-event wait? dequeue?) (define (check-one-event wait? dequeue?)
(pre-event-sync wait?) (pre-event-sync wait?)