From d5bf9486a4a91889a489725d50b3df47593571e3 Mon Sep 17 00:00:00 2001
From: svkalinin <svkalinin@samsonpost.ru>
Date: Mon, 14 Nov 2022 15:12:11 +0300
Subject: [PATCH] =?UTF-8?q?=D0=A3=D0=BA=D1=80=D0=B0=D1=88=D0=B0=D1=82?=
 =?UTF-8?q?=D0=B5=D0=BB=D1=8C=D1=81=D1=82=D0=B2=D0=B0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/gui.tcl     |  6 +++---
 projman.tcl     |  2 +-
 theme/black.tcl | 10 +++++++---
 3 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/lib/gui.tcl b/lib/gui.tcl
index 89a8afe..a624ce7 100644
--- a/lib/gui.tcl
+++ b/lib/gui.tcl
@@ -70,7 +70,7 @@ if [info exists cfgVariables(theme)] {
 }
 
 ttk::frame .frmMenu -border 0 -relief raised
-ttk::frame .frmBody -border 1 -relief raised
+ttk::frame .frmBody -border 0 -relief raised
 ttk::frame .frmStatus -border 0 -relief raised 
 pack .frmMenu -side top -padx 1 -fill x
 pack .frmBody -side top -padx 1 -fill both -expand true
@@ -122,7 +122,7 @@ pack $frmTool.btn_tree $frmTool.btn_search $frmTool.btn_git -side top -padx 1 -p
 # #pack $frmTool.lbl_logo -side bottom -padx 5 -pady 5
 # 
 # # Дерево с полосами прокрутки
-set frmTree [ttk::frame .frmBody.frmTree]
+set frmTree [ttk::frame .frmBody.frmTree -border 0]
 
 set tree [ttk::treeview $frmTree.tree -show tree \
     -xscrollcommand [list .frmBody.frmTree.h set] \
@@ -135,7 +135,7 @@ ttk::scrollbar $frmTree.h -orient horizontal -command [list $frmTree.tree xview]
 ttk::scrollbar $frmTree.v -orient vertical -command [list $frmTree.tree yview]
 
 bind $tree <Double-ButtonPress-1> {Tree::DoublePressItem $tree}
-bind $tree  <ButtonRelease-1> {Tree::PressItem $tree; break}
+bind $tree  <ButtonRelease-1> {Tree::PressItem $tree; 	break}
 
 grid $tree -row 0 -column 0 -sticky nsew
 grid $frmTree.v -row 0 -column 1 -sticky nsew
diff --git a/projman.tcl b/projman.tcl
index 7b8ddac..ec9087f 100755
--- a/projman.tcl
+++ b/projman.tcl
@@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
 ######################################################
 # Version: 2.0.0
 # Release: alpha
-# Build: 14112022113440
+# Build: 14112022151107
 ######################################################
 
 # определим текущую версию, релиз и т.д.
diff --git a/theme/black.tcl b/theme/black.tcl
index 3b77f83..2520392 100644
--- a/theme/black.tcl
+++ b/theme/black.tcl
@@ -92,8 +92,11 @@ namespace eval ttk::theme::black {
         -fieldbackground white -foreground black \
         -padding {2 0}
 
+    $styleCmd configure TNotebook \
+        -border -1
     $styleCmd configure TNotebook.Tab \
-        -padding {6 2 6 2}
+        -padding {6 2 6 2} \
+        -border -1
 
     $styleCmd map TNotebook.Tab -background [list \
         selected $colors(-lighter)]
@@ -105,15 +108,16 @@ namespace eval ttk::theme::black {
 
     $styleCmd configure TreeCtrl \
         -background gray30 -itembackground {gray60 gray50} \
-        -itemfill white -itemaccentfill yellow
+        -itemfill white -itemaccentfill yellow -border -1
 
-    $styleCmd map Treeview \
+    $styleCmd map Treeview\
         -background [list selected $colors(-lighter)] \
         -foreground [list selected $colors(-selectfg)]
         # -background [list selected $colors(-selectbg)] \
 
     $styleCmd configure Treeview -fieldbackground gray25
   }
+  puts [ttk::style element names]
 }
 
 # A few tricks for Tablelist.