Слегка поменял стиль оформления

master
Sergey Kalinin 2022-08-17 20:50:58 +03:00
parent 031cf564cf
commit 8662f4925d
2 changed files with 6 additions and 5 deletions

View File

@ -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)

View File

@ -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}