punix/Wire-Py
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases 10 Wiki Activity

- Theme modify to water-theme

Browse Source 
- add ttk.Menubutton vor modern Menu and automatic theme and textvariable for color on font in menu
This commit is contained in:
Désiré Werner Menrath
2024-10-18 22:33:20 +02:00
parent e44fbeb9e4
commit 46514693bd
34 changed files with 138 additions and 233 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
TK-Themes/theme/light.tcl
View File

@ -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) \