ui.backend.cocoa: simplify system-alert implementation now that callbacks bug has been fixed

db4
Slava Pestov 2011-04-16 19:12:08 -07:00
parent cbbdd712fc
commit d1666854e8
1 changed files with 1 additions and 3 deletions

View 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
[