Clicking on dock icon with no windows visible opens new listener

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 ]
 }