ui.backend.cocoa: disable theme switching temporarily.

(trying to understand a deploy test failure).

diff --git a/basis/ui/backend/cocoa/cocoa.factor b/basis/ui/backend/cocoa/cocoa.factor
index c99241a651209935ef5e318b0e48211b5fcb955f..25518a17965dc86236185105999adf34633cbff2 100644 (file)
--- a/basis/ui/backend/cocoa/cocoa.factor
+++ b/basis/ui/backend/cocoa/cocoa.factor
@@ -7,8 +7,7 @@ combinators core-foundation.run-loop core-foundation.strings
 core-graphics core-graphics.types io.thread kernel literals math
 math.bitwise math.rectangles namespaces sequences threads ui
 ui.backend ui.backend.cocoa.views ui.clipboards
-ui.gadgets.worlds ui.pixel-formats ui.private ui.theme
-ui.theme.switching ;
+ui.gadgets.worlds ui.pixel-formats ui.private ;
 IN: ui.backend.cocoa
 
 TUPLE: window-handle view window ;
@@ -207,11 +206,11 @@ M: cocoa-ui-backend system-alert
 : install-app-delegate ( -- )
     NSApp FactorApplicationDelegate install-delegate ;
 
-: current-theme ( -- )
-    NSAppearance -> currentAppearance -> name [
-        CF>string "NSAppearanceNameDarkAqua" =
-        dark-theme light-theme ? switch-theme-if-default
-    ] when* ;
+! : current-theme ( -- )
+!     NSAppearance -> currentAppearance -> name [
+!         CF>string "NSAppearanceNameDarkAqua" =
+!         dark-theme light-theme ? switch-theme-if-default
+!     ] when* ;
 
 SYMBOL: cocoa-startup-hook
 
@@ -223,7 +222,7 @@ M: cocoa-ui-backend (with-ui)
     "UI" assert.app [
         init-clipboard
         cocoa-startup-hook get call( -- )
-        current-theme
+!         current-theme
         start-ui
         stop-io-thread
         init-thread-timer

diff --git a/basis/ui/backend/cocoa/views/views.factor b/basis/ui/backend/cocoa/views/views.factor
index 87420e75c3a3239ef0ef4c16460a6dbd0a43277b..b6663cf5cb3bcd1152d81d41a3bf2c82c43ddad2 100644 (file)
--- a/basis/ui/backend/cocoa/views/views.factor
+++ b/basis/ui/backend/cocoa/views/views.factor
@@ -12,7 +12,7 @@ math.rectangles math.vectors namespaces opengl sequences
 splitting threads ui.backend.cocoa.input-methods ui.commands
 ui.gadgets ui.gadgets.editors ui.gadgets.line-support
 ui.gadgets.private ui.gadgets.worlds ui.gestures ui.private
-ui.theme ui.theme.switching words ;
+words ;
 
 IN: ui.backend.cocoa.views
 
@@ -334,12 +334,12 @@ PRIVATE>
 
     ! Light/Dark Mode
 
-    METHOD: void viewDidChangeEffectiveAppearance [
-        self -> effectiveAppearance -> name [
-            CF>string "NSAppearanceNameDarkAqua" =
-            dark-theme light-theme ? switch-theme-if-default
-        ] when*
-    ] ;
+!     METHOD: void viewDidChangeEffectiveAppearance [
+!         self -> effectiveAppearance -> name [
+!             CF>string "NSAppearanceNameDarkAqua" =
+!             dark-theme light-theme ? switch-theme-if-default
+!         ] when*
+!     ] ;
 
     ! Events
     METHOD: char acceptsFirstMouse: id event [ 0 ] ;