cocoa: try to fix bug where my ui hangs under arm64

Author: erg

basis/cocoa/runtime/runtime.factor

@@ -43,7 +43,7 @@ FUNCTION: Protocol objc_getProtocol ( c-string class )
 FUNCTION: Class objc_allocateClassPair ( Class superclass, c-string name, size_t extraBytes )
 FUNCTION: void objc_registerClassPair ( Class cls )
 
-FUNCTION: void* objc_getAssociatedObject ( void* obj, c-string key )
+FUNCTION: void* objc_getAssociatedObject ( void* obj, void* key )
 
 FUNCTION: id class_createInstance ( Class class, uint additionalByteCount )
 

basis/cocoa/statusbar/statusbar.factor

@@ -85,8 +85,9 @@ TUPLE: platform-menu-item title { quot callable } key-equivalent selector target
 : hide-statusbar-item ( statusbar-item-alien -- )
     [ get-system-statusbar ] dip -> removeStatusItem: ;
 
-: hide-statusbar* ( platform-menu -- )
-    [ get-system-statusbar ] dip -> removeStatusItem: ;
+: hide-statusbar* ( statusbar-item-alien -- )
+    [ [ get-system-statusbar ] dip -> removeStatusItem: ] keep
+    -> release ;
 
 : hide-statusbar ( platform-menu -- platform-menu )
     [ statusbar-alien>> hide-statusbar* ] keep ;

basis/core-graphics/core-graphics.factor

@@ -151,6 +151,8 @@ FUNCTION: CGLError CGLSetParameter ( CGLContextObj ctx, CGLContextParameter pnam
 
 FUNCTION: CGDirectDisplayID CGMainDisplayID ( )
 
+FUNCTION: boolean_t CGDisplayIsAsleep ( CGDirectDisplayID display )
+
 FUNCTION: CGError CGDisplayHideCursor ( CGDirectDisplayID display )
 FUNCTION: CGError CGDisplayShowCursor ( CGDirectDisplayID display )
 

basis/ui/backend/cocoa/cocoa.factor

@@ -3,9 +3,11 @@
 USING: accessors alien.c-types alien.data cocoa
 cocoa.application cocoa.classes cocoa.nibs cocoa.pasteboard
 cocoa.runtime cocoa.subclassing cocoa.views cocoa.windows
-combinators core-foundation.run-loop core-foundation.strings
-core-graphics core-graphics.types io.thread kernel literals math
-math.bitwise math.rectangles namespaces sequences threads ui
+combinators continuations core-foundation.run-loop
+core-foundation.strings core-graphics core-graphics.types debugger
+io.thread kernel
+literals math math.bitwise math.rectangles namespaces sequences
+threads ui
 ui.backend ui.backend.cocoa.views ui.clipboards
 ui.gadgets.worlds ui.pixel-formats ui.private ui.render ui.theme
 ui.theme.switching ;
@@ -181,8 +183,12 @@ M: cocoa-ui-backend raise-window*
 M: window-handle select-gl-context
     view>> -> openGLContext -> makeCurrentContext ;
 
+: display-asleep? ( -- ? )
+    CGMainDisplayID CGDisplayIsAsleep c-bool> ;
+
 M: window-handle flush-gl-context
-    view>> -> openGLContext -> flushBuffer ;
+    display-asleep?
+    [ drop ] [ view>> -> openGLContext -> flushBuffer ] if ;
 
 M: cocoa-ui-backend beep
     NSBeep ;
@@ -202,7 +208,8 @@ M: cocoa-ui-backend system-alert
 
 <CLASS: FactorApplicationDelegate < NSObject
 
-    METHOD: void applicationDidUpdate: id obj [ reset-thread-timer ] ;
+    METHOD: void applicationDidUpdate: id obj
+        [ [ reset-thread-timer ] [ print-error ] recover ] ;
 
     METHOD: char applicationShouldTerminateAfterLastWindowClosed: id app [
         ui-stop-after-last-window? get 1 0 ?