 cocoa.classes cocoa.dialogs cocoa.pasteboard cocoa.subclassing
 core-foundation core-foundation.strings help.topics kernel
 memory namespaces parser system ui ui.tools.browser
-ui.tools.listener ui.cocoa eval locals ;
+ui.tools.listener ui.cocoa eval locals tools.vocabs ;
 IN: ui.cocoa.tools
 
 : finder-run-files ( alien -- )

    [ [ 3drop ] dip finder-run-files ]
}

{ "newFactorWorkspace:" "id" { "id" "SEL" "id" }
    [ 3drop listener-window f ]
}

{ "runFactorFile:" "id" { "id" "SEL" "id" }

    [ 3drop menu-save-image f ]
}

{ "refreshAll:" "id" { "id" "SEL" "id" }
    [ 3drop [ refresh-all ] call-listener f ]
} ;

: install-app-delegate ( -- )
