ui.backend.cocoa.tools: install-app-delegate is a confusing word name to

reuse.

diff --git a/basis/ui/backend/cocoa/tools/tools.factor b/basis/ui/backend/cocoa/tools/tools.factor
index c8f3b7ae45836844b28904eed0b0384ec92c35af..feed1a53dc3b30772ed285e14755ff5050f7fe17 100644 (file)
--- a/basis/ui/backend/cocoa/tools/tools.factor
+++ b/basis/ui/backend/cocoa/tools/tools.factor
@@ -48,7 +48,7 @@ IN: ui.backend.cocoa.tools
     METHOD: id refreshAll: id app [ [ refresh-all ] \ refresh-all call-listener f ] ;
 ;CLASS>
 
-: install-app-delegate ( -- )
+: install-workspace-delegate ( -- )
     NSApp FactorWorkspaceApplicationDelegate install-delegate ;
 
 ! Service support; evaluate Factor code from other apps
@@ -77,7 +77,7 @@ IN: ui.backend.cocoa.tools
 FUNCTION: void NSUpdateDynamicServices ( )
 
 [
-    install-app-delegate
+    install-workspace-delegate
     "Factor.nib" load-nib
     register-services
 ] cocoa-startup-hook set-global