Украшательства

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

projman.tcl

@@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
 ######################################################
 # Version: 2.0.0
 # Release: alpha
-# Build: 14112022113440
+# Build: 14112022151107
 ######################################################
 
 # определим текущую версию, релиз и т.д.

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.