Add Wombat theme, put it and Base16 theme in OS X menu

[factor.git] / basis / ui / backend / cocoa / tools / tools.factor

diff --git a/basis/ui/backend/cocoa/tools/tools.factor b/basis/ui/backend/cocoa/tools/tools.factor
index c8f3b7ae45836844b28904eed0b0384ec92c35af..482330f849ca78bac832eca8a5a3371cfdeaed33 100644 (file)
--- a/basis/ui/backend/cocoa/tools/tools.factor
+++ b/basis/ui/backend/cocoa/tools/tools.factor
@@ -45,10 +45,14 @@ IN: ui.backend.cocoa.tools
 
     METHOD: id switchDarkTheme: id app [ dark-mode f ] ;
 
+    METHOD: id switchWombatTheme: id app [ wombat-mode f ] ;
+
+    METHOD: id switchBase16Theme: id app [ base16-mode f ] ;
+
     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 +81,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