- Theme modify to water-theme

- add ttk.Menubutton vor modern Menu and automatic theme and textvariable for color on font in menu

TK-Themes/theme/dark.tcl

@@ -1,14 +1,14 @@
 # Copyright (c) 2021 rdbende <rdbende@gmail.com>
 
-# The Azure theme is a beautiful modern ttk theme inspired by Microsoft's fluent design.
+# inspired by rdbende modified azure to water by Désire Werner Menrath polunga40@unity-mail.de 2024
 
 package require Tk 8.6
 
-namespace eval ttk::theme::azure-dark {
+namespace eval ttk::theme::water-dark {
     variable version 2.0
-    package provide ttk::theme::azure-dark $version
+    package provide ttk::theme::water-dark $version
 
-    ttk::style theme create azure-dark -parent clam -settings {
+    ttk::style theme create water-dark -parent clam -settings {
         proc load_images {imgdir} {
             variable I
             foreach file [glob -directory $imgdir *.png] {

TK-Themes/theme/light.tcl

@@ -1,14 +1,14 @@
 # Copyright (c) 2021 rdbende <rdbende@gmail.com>
 
-# The Azure theme is a beautiful modern ttk theme inspired by Microsoft's fluent design.
+# inspired by rdbende modified azure to water by Désire Werner Menrath polunga40@unity-mail.de 2024
 
 package require Tk 8.6
 
-namespace eval ttk::theme::azure-light {
+namespace eval ttk::theme::water-light {
     variable version 2.0
-    package provide ttk::theme::azure-light $version
+    package provide ttk::theme::water-light $version
 
-    ttk::style theme create azure-light -parent clam -settings {
+    ttk::style theme create water-light -parent clam -settings {
         proc load_images {imgdir} {
             variable I
             foreach file [glob -directory $imgdir *.png] {
@@ -39,7 +39,7 @@ namespace eval ttk::theme::azure-light {
         ttk::style layout Toolbutton {
             Toolbutton.button -children {
                 Toolbutton.padding -children {
-                    Toolbutton.label -side left -expand true
+                    Toolbutton.label -side left -expand true 
                 } 
             }
         }
@@ -210,7 +210,7 @@ namespace eval ttk::theme::azure-light {
             ] -border 4 -sticky ewns
 
         # Toolbutton
-        ttk::style configure Toolbutton -padding {8 4 8 4} -width -10 -anchor center
+        ttk::style configure Toolbutton -padding {8 4 8 4} -width -5 -anchor center
 
         ttk::style element create Toolbutton.button image \
             [list $I(empty) \