From ebb5adfdb7059e7c6ebea88f3c0126106f2720af Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 5 Mar 2009 16:32:43 -0600
Subject: [PATCH] Clicking on dock icon with no windows visible opens new
 listener

---
 basis/ui/backend/cocoa/tools/tools.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/basis/ui/backend/cocoa/tools/tools.factor b/basis/ui/backend/cocoa/tools/tools.factor
index 02b2f0a4de..46ecc1a37f 100644
--- a/basis/ui/backend/cocoa/tools/tools.factor
+++ b/basis/ui/backend/cocoa/tools/tools.factor
@@ -28,6 +28,10 @@ CLASS: {
     [ [ 3drop ] dip finder-run-files ]
 }
 
+{ "applicationShouldHandleReopen:hasVisibleWindows:" "int" { "id" "SEL" "id" "int" }
+    [ [ 3drop ] dip 0 = [ show-listener ] when 0 ]
+}
+
 { "factorListener:" "id" { "id" "SEL" "id" }
     [ 3drop show-listener f ]
 }