]> gitweb.factorcode.org Git - factor.git/commitdiff
ui.backend.cocoa: simplify system-alert implementation now that callbacks bug has...
authorSlava Pestov <slava@shill-2.local>
Sun, 17 Apr 2011 02:12:08 +0000 (19:12 -0700)
committerSlava Pestov <slava@shill-2.local>
Sun, 17 Apr 2011 02:12:08 +0000 (19:12 -0700)
basis/ui/backend/cocoa/cocoa.factor

index 1e7777d9d7c3860d9afc0c0cec011183d4f93f1b..e211e313744b91807c1c4b8ebe8bcbedfcbdbd6a 100644 (file)
@@ -217,7 +217,6 @@ M: cocoa-ui-backend beep ( -- )
     NSBeep ;
 
 M: cocoa-ui-backend system-alert
-    invalidate-run-loop-timers
     NSAlert -> alloc -> init -> autorelease [
         {
             [ swap <NSString> -> setInformativeText: ]
@@ -225,8 +224,7 @@ M: cocoa-ui-backend system-alert
             [ "OK" <NSString> -> addButtonWithTitle: drop ]
             [ -> runModal drop ]
         } cleave
-    ] [ 2drop ] if*
-    init-thread-timer ;
+    ] [ 2drop ] if* ;
 
 CLASS: FactorApplicationDelegate < NSObject
 [