From 8662f4925da91380aecb65c0dabc109a0510b217 Mon Sep 17 00:00:00 2001 From: Sergey Kalinin Date: Wed, 17 Aug 2022 20:50:58 +0300 Subject: [PATCH] =?UTF-8?q?=D0=A1=D0=BB=D0=B5=D0=B3=D0=BA=D0=B0=20=D0=BF?= =?UTF-8?q?=D0=BE=D0=BC=D0=B5=D0=BD=D1=8F=D0=BB=20=D1=81=D1=82=D0=B8=D0=BB?= =?UTF-8?q?=D1=8C=20=D0=BE=D1=84=D0=BE=D1=80=D0=BC=D0=BB=D0=B5=D0=BD=D0=B8?= =?UTF-8?q?=D1=8F?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lib/gui.tcl | 7 +++---- theme/ttk_theme_dark.tcl | 4 +++- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/lib/gui.tcl b/lib/gui.tcl index bfef450..3be4f53 100644 --- a/lib/gui.tcl +++ b/lib/gui.tcl @@ -66,8 +66,8 @@ if [info exists cfgVariables(theme)] { ttk::style theme use $cfgVariables(theme) } -ttk::frame .frmMenu -border 1 -relief raised -frame .frmBody -border 1 -relief raised -highlightthickness 0 +ttk::frame .frmMenu -border 0 -relief raised +ttk::frame .frmBody -border 1 -relief raised ttk::frame .frmStatus -border 0 -relief sunken pack .frmMenu -side top -padx 1 -fill x pack .frmBody -side top -padx 1 -fill both -expand true @@ -128,7 +128,7 @@ grid $frmTree.v -row 0 -column 1 -sticky nsew grid columnconfigure $frmTree 0 -weight 1 grid rowconfigure $frmTree 0 -weight 1 -set frmWork [ttk::frame .frmWork] +set frmWork [ttk::frame .frmWork -border 0 -relief flat] set nbEditor [ttk::notebook $frmWork.nbEditor] @@ -180,4 +180,3 @@ if {$cfgVariables(filesPanelShow) eq "true"} { ttk::style configure . \ -foreground $::cfgVariables(guiFG) \ -font $::cfgVariables(guiFont) - diff --git a/theme/ttk_theme_dark.tcl b/theme/ttk_theme_dark.tcl index cd22ef0..7a0f4ea 100644 --- a/theme/ttk_theme_dark.tcl +++ b/theme/ttk_theme_dark.tcl @@ -63,7 +63,7 @@ namespace eval ttk::theme::dark { -indicatorbackground "#ffffff" -indicatormargin {1 1 4 1} ttk::style configure TRadiobutton \ -indicatorbackground "#ffffff" -indicatormargin {1 1 4 1} - + ttk::style configure TFrame -relief flat -border -1 # ttk::style configure TEntry -fieldbackground #ffffff -foreground #000000 -padding {2 0} ttk::style configure TEntry -fieldbackground $colors(-lightframe) -foreground #ffffff -padding {2 0} @@ -76,6 +76,8 @@ namespace eval ttk::theme::dark { -fieldbackground $colors(-lightframe) \ -foreground #ffffff + ttk::style configure TNotebook + # -bordercolor $colors(-frame) ttk::style configure TNotebook.Tab \ -padding {6 2 6 2}