From e79e6d6056c8b0199ec3edd2c3d7c31ab1fa1cf6 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 13 Dec 2008 05:00:23 -0600 Subject: [PATCH] Remove dead code --- basis/cocoa/application/application.factor | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/basis/cocoa/application/application.factor b/basis/cocoa/application/application.factor index a52aaedce2..fb9a5f97ec 100644 --- a/basis/cocoa/application/application.factor +++ b/basis/cocoa/application/application.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2006, 2008 Slava Pestov ! See http://factorcode.org/license.txt for BSD license. USING: alien alien.syntax io kernel namespaces core-foundation -core-foundation.run-loop core-foundation.arrays + core-foundation.arrays core-foundation.data core-foundation.strings cocoa.messages cocoa cocoa.classes cocoa.runtime sequences threads init summary kernel.private assocs ; @@ -35,13 +35,6 @@ FUNCTION: void NSBeep ( ) ; : with-cocoa ( quot -- ) [ NSApp drop call ] with-autorelease-pool ; inline -: next-event ( app -- event ) - NSAnyEventMask f CFRunLoopDefaultMode 1 - -> nextEventMatchingMask:untilDate:inMode:dequeue: ; - -: do-event ( app -- ? ) - dup next-event [ dupd -> sendEvent: -> updateWindows t ] [ drop f ] if* ; - : add-observer ( observer selector name object -- ) [ [ NSNotificationCenter -> defaultCenter ] 2dip