From 7fd51a8afddec3403ab6971b471a922a9d6c8d38 Mon Sep 17 00:00:00 2001
From: Uwe <Uwe>
Date: Sun, 27 Aug 2023 14:49:15 +0200
Subject: [PATCH] loading  theme optimized at start

At start: after loading the style first configure menu and second configure style. This avoid to override menu settings from themeOptions. Al last bind the event.
---
 tcl/start.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tcl/start.tcl b/tcl/start.tcl
index dcb07d4d..7f629373 100644
--- a/tcl/start.tcl
+++ b/tcl/start.tcl
@@ -519,10 +519,10 @@ proc configure_style {} {
     option add [lindex $elem 1] [lindex $elem 2]
   }
 }
-bind . <<ThemeChanged>> { if {"%W" eq "."} { configure_style } }
-
 catch { ttk::style theme use $::lookTheme }
 configure_menus
+configure_style
+bind . <<ThemeChanged>> { if {"%W" eq "."} { configure_style } }
 
 
 # Uses the circle and full circle unicode characters to simulate a switch button.