ui: notify the ui-thread in shutdown hook

mrjbq7 · Jun 11, 2024 · 74b0f91 · 74b0f91
1 parent 503be81
commit 74b0f91
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/basis/ui/ui.factor b/basis/ui/ui.factor
@@ -218,7 +218,7 @@ STARTUP-HOOK: [
 ]
 
 SHUTDOWN-HOOK: [
-    close-all-windows notify-queued
+    ui-running? [ close-all-windows notify-ui-thread yield ] when
 ]
 
 HOOK: resize-window ui-backend ( world dim -- )
@@ -231,7 +231,7 @@ M: object resize-window 2drop ;
 : with-ui ( quot: ( -- ) -- )
     ui-running? [ call( -- ) ] [
         t ui-running set-global '[
-            [ init-ui @ ] (with-ui)
+            _ (with-ui)
         ] [
             f ui-running set-global
             ! Give running ui threads a chance to finish.