From 2f4571312f21528179c9fb4bf3437324dc0c5f90 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 8 May 2008 17:04:14 -0500
Subject: [PATCH] UI fix
---
extra/cocoa/application/application.factor | 3 ---
extra/ui/cocoa/cocoa.factor | 7 ++++++-
2 files changed, 6 insertions(+), 4 deletions(-)
diff --git a/extra/cocoa/application/application.factor b/extra/cocoa/application/application.factor
index 2ae17a1604..90159c1656 100755
--- a/extra/cocoa/application/application.factor
+++ b/extra/cocoa/application/application.factor
@@ -29,9 +29,6 @@ IN: cocoa.application
: do-event ( app -- ? )
dup next-event [ -> sendEvent: t ] [ drop f ] if* ;
-: do-events ( app -- )
- dup do-event [ do-events ] [ drop ] if ;
-
: add-observer ( observer selector name object -- )
>r >r >r >r NSNotificationCenter -> defaultCenter
r> r> sel_registerName
diff --git a/extra/ui/cocoa/cocoa.factor b/extra/ui/cocoa/cocoa.factor
index 10980249f3..d1b7f22b41 100755
--- a/extra/ui/cocoa/cocoa.factor
+++ b/extra/ui/cocoa/cocoa.factor
@@ -15,7 +15,12 @@ C: <handle> handle
SINGLETON: cocoa-ui-backend
M: cocoa-ui-backend do-events ( -- )
- [ [ NSApp do-events ui-wait ] ui-try ] with-autorelease-pool ;
+ [
+ [
+ NSApp [ dup do-event ] [ ] [ ] while drop
+ ui-wait
+ ] ui-try
+ ] with-autorelease-pool ;
TUPLE: pasteboard handle ;