Clicking on dock icon with no windows visible opens new listener

diff --git a/basis/ui/backend/cocoa/tools/tools.factor b/basis/ui/backend/cocoa/tools/tools.factor
index 02b2f0a4dead70d40a4358c4f48622b41f4ec15d..46ecc1a37f4db36812a48d74ec3624697a3d9d63 100644 (file)
--- 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 ]
 }