Слегка поменял стиль оформления
This commit is contained in:
parent
031cf564cf
commit
8662f4925d
|
@ -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)
|
||||
|
||||
|
|
|
@ -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}
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user