svk
/
projman
1
0
Fork 0
Code Issues Pull Requests Actions Projects Releases Wiki Activity

Настройки темы

master
svkalinin 2022-11-14 11:12:54 +03:00
parent 19156c252b
commit 779173d5d5
2 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
theme/black.tcl
View File

@ -61,7 +61,7 @@ namespace eval ttk::theme::black {
-selectbackground $colors(-selectbg) \ -selectbackground $colors(-selectbg) \
-selectforeground $colors(-selectfg) \ -selectforeground $colors(-selectfg) \
-selectborderwidth 0 \ -selectborderwidth 0 \
-font TkDefaultFont \ -font "{Droid Sans Mono} 9" \
; ;
$styleCmd map "." \ $styleCmd map "." \
@ -74,17 +74,17 @@ namespace eval ttk::theme::black {
# ttk widgets. # ttk widgets.
$styleCmd configure TButton \ $styleCmd configure TButton \
-width -8 -padding {5 1} -relief raised -width -8 -padding {5 1} -relief link
$styleCmd configure TMenubutton \ $styleCmd configure TMenubutton\
-width -11 -padding {5 1} -relief raised -relief flat -arrowsize 0
$styleCmd configure TCheckbutton \ $styleCmd configure TCheckbutton \
-indicatorbackground "#ffffff" -indicatormargin {1 1 4 1} -indicatorbackground $colors(-lighter) -indicatormargin {1 1 4 1}
$styleCmd configure TRadiobutton \ $styleCmd configure TRadiobutton \
-indicatorbackground "#ffffff" -indicatormargin {1 1 4 1} -indicatorbackground $colors(-lighter) -indicatormargin {1 1 4 1}
$styleCmd configure TEntry \ $styleCmd configure TEntry \
-fieldbackground white -foreground black \ -fieldbackground gray20 -foreground black \
-padding {2 0} -padding {2 0} -border -1
$styleCmd configure TCombobox \ $styleCmd configure TCombobox \
-fieldbackground white -foreground black \ -fieldbackground white -foreground black \
-padding {2 0} -padding {2 0}
@ -108,10 +108,11 @@ namespace eval ttk::theme::black {
-itemfill white -itemaccentfill yellow -itemfill white -itemaccentfill yellow
$styleCmd map Treeview \ $styleCmd map Treeview \
-background [list selected $colors(-selectbg)] \ -background [list selected $colors(-lighter)] \
-foreground [list selected $colors(-selectfg)] -foreground [list selected $colors(-selectfg)]
# -background [list selected $colors(-selectbg)] \
$styleCmd configure Treeview -fieldbackground $colors(-lighter) $styleCmd configure Treeview -fieldbackground gray25
} }
} }

2
theme/ttk_theme_dark.tcl
View File

@ -84,6 +84,8 @@ namespace eval ttk::theme::dark {
ttk::style configure TSpinbox \ ttk::style configure TSpinbox \
-fieldbackground $colors(-lightframe) \ -fieldbackground $colors(-lightframe) \
-foreground #ffffff -foreground #ffffff
ttk::style configure TScrollbar -relief flat -border 0
# ttk::style configure TNotebook # ttk::style configure TNotebook
# -bordercolor $colors(-frame) # -bordercolor $colors(-frame)