]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/ui/ui.factor
core/basis/extra: using STARTUP-HOOK: and SHUTDOWN-HOOK:
[factor.git] / basis / ui / ui.factor
index 378e46907eb0c278fbb1b754e865620f111c8a91..93abb0ba96af51786949ce8c49f29a9a11f38e1a 100644 (file)
@@ -208,10 +208,10 @@ HOOK: close-window ui-backend ( gadget -- )
 M: object close-window
     find-world [ ungraft ] when* ;
 
-[
+STARTUP-HOOK: [
     f ui-running set-global
     <flag> ui-notify-flag set-global
-] "ui" add-startup-hook
+]
 
 HOOK: resize-window ui-backend ( world dim -- )
 M: object resize-window 2drop ;