ui: disable default-theme? for now.

diff --git a/basis/ui/backend/cocoa/cocoa.factor b/basis/ui/backend/cocoa/cocoa.factor
index 050f4b2e3c9f0fd9163c2af79efc7ea36dad6fe7..81553f5a5f246ffcc52a65cf2f13760e3f0bfbbc 100644 (file)
--- a/basis/ui/backend/cocoa/cocoa.factor
+++ b/basis/ui/backend/cocoa/cocoa.factor
@@ -210,7 +210,7 @@ M: cocoa-ui-backend system-alert
 : set-theme ( -- )
     NSAppearance -> currentAppearance -> name CF>string
     "NSAppearanceNameDarkAqua" = dark-theme light-theme ?
-    switch-theme t default-theme? set-global ;
+    switch-theme ;
 
 SYMBOL: cocoa-startup-hook
 

diff --git a/basis/ui/backend/cocoa/views/views.factor b/basis/ui/backend/cocoa/views/views.factor
index 5bcc404ed57db8c75e955abf8fe92c11faa47882..3373d80407ec920020538ad98aa3775561bdfb72 100644 (file)
--- a/basis/ui/backend/cocoa/views/views.factor
+++ b/basis/ui/backend/cocoa/views/views.factor
@@ -333,13 +333,10 @@ PRIVATE>
     ! Light/Dark Mode
 
     METHOD: void viewDidChangeEffectiveAppearance [
-        default-theme? get [
-            self -> effectiveAppearance -> name [
-                CF>string "NSAppearanceNameDarkAqua" =
-                dark-theme light-theme ? switch-theme
-                t default-theme? set-global
-            ] when*
-        ] when
+        self -> effectiveAppearance -> name [
+            CF>string "NSAppearanceNameDarkAqua" =
+            dark-theme light-theme ? switch-theme
+        ] when*
     ] ;
 
     ! Events

diff --git a/basis/ui/theme/switching/switching.factor b/basis/ui/theme/switching/switching.factor
index e2f4f2b46b0ead47ea6a08d3dbbf6c0cfe65dcea..46b90b6253f4a4a5c09826f9e416665257527ebd 100644 (file)
--- a/basis/ui/theme/switching/switching.factor
+++ b/basis/ui/theme/switching/switching.factor
@@ -5,9 +5,6 @@ io.styles kernel listener namespaces prettyprint.stylesheet
 sequences ui.theme ui.tools.listener vocabs.prettyprint words ;
 IN: ui.theme.switching
 
-SYMBOL: default-theme?
-t default-theme? set-global
-
 <PRIVATE
 
 : update-style ( style color elt -- )
@@ -62,8 +59,7 @@ t default-theme? set-global
 PRIVATE>
 
 : switch-theme ( theme -- )
-    theme set-global update-stylesheet
-    f default-theme? set-global ;
+    theme set-global update-stylesheet ;
 
 : light-mode ( -- ) light-theme switch-theme ;