From 779173d5d5fba0968c5e0cbb1abe4122ef6cbe3f Mon Sep 17 00:00:00 2001
From: svkalinin <svkalinin@samsonpost.ru>
Date: Mon, 14 Nov 2022 11:12:54 +0300
Subject: [PATCH] =?UTF-8?q?=D0=9D=D0=B0=D1=81=D1=82=D1=80=D0=BE=D0=B9?=
 =?UTF-8?q?=D0=BA=D0=B8=20=D1=82=D0=B5=D0=BC=D1=8B?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 theme/black.tcl          | 21 +++++++++++----------
 theme/ttk_theme_dark.tcl |  2 ++
 2 files changed, 13 insertions(+), 10 deletions(-)

diff --git a/theme/black.tcl b/theme/black.tcl
index d140254..3b77f83 100644
--- a/theme/black.tcl
+++ b/theme/black.tcl
@@ -61,7 +61,7 @@ namespace eval ttk::theme::black {
         -selectbackground $colors(-selectbg) \
         -selectforeground $colors(-selectfg) \
         -selectborderwidth 0 \
-        -font TkDefaultFont \
+        -font "{Droid Sans Mono} 9" \
         ;
 
     $styleCmd map "." \
@@ -74,17 +74,17 @@ namespace eval ttk::theme::black {
 
     # ttk widgets.
     $styleCmd configure TButton \
-        -width -8 -padding {5 1} -relief raised
-    $styleCmd configure TMenubutton \
-        -width -11 -padding {5 1} -relief raised
+        -width -8 -padding {5 1} -relief link
+    $styleCmd configure TMenubutton\
+        -relief flat -arrowsize 0
     $styleCmd configure TCheckbutton \
-        -indicatorbackground "#ffffff" -indicatormargin {1 1 4 1}
+        -indicatorbackground $colors(-lighter) -indicatormargin {1 1 4 1}
     $styleCmd configure TRadiobutton \
-        -indicatorbackground "#ffffff" -indicatormargin {1 1 4 1}
+        -indicatorbackground $colors(-lighter) -indicatormargin {1 1 4 1}
 
     $styleCmd configure TEntry \
-        -fieldbackground white -foreground black \
-        -padding {2 0}
+        -fieldbackground gray20 -foreground black \
+        -padding {2 0} -border -1
     $styleCmd configure TCombobox \
         -fieldbackground white -foreground black \
         -padding {2 0}
@@ -108,10 +108,11 @@ namespace eval ttk::theme::black {
         -itemfill white -itemaccentfill yellow
 
     $styleCmd map Treeview \
-        -background [list selected $colors(-selectbg)] \
+        -background [list selected $colors(-lighter)] \
         -foreground [list selected $colors(-selectfg)]
+        # -background [list selected $colors(-selectbg)] \
 
-    $styleCmd configure Treeview -fieldbackground $colors(-lighter)
+    $styleCmd configure Treeview -fieldbackground gray25
   }
 }
 
diff --git a/theme/ttk_theme_dark.tcl b/theme/ttk_theme_dark.tcl
index 1782575..49018cf 100644
--- a/theme/ttk_theme_dark.tcl
+++ b/theme/ttk_theme_dark.tcl
@@ -84,6 +84,8 @@ namespace eval ttk::theme::dark {
         ttk::style configure TSpinbox \
             -fieldbackground $colors(-lightframe) \
             -foreground #ffffff
+
+        ttk::style configure TScrollbar -relief flat -border 0
         
         # ttk::style configure TNotebook 
             # -bordercolor $colors(-frame)