svk/projman
svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Sergey Kalinin 2022-08-17 20:50:58 +03:00
parent 031cf564cf
commit 8662f4925d
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/gui.tcl
View File

@ -66,8 +66,8 @@ if [info exists cfgVariables(theme)] {
ttk::style theme use $cfgVariables(theme) ttk::style theme use $cfgVariables(theme)
} }
ttk::frame .frmMenu -border 1 -relief raised ttk::frame .frmMenu -border 0 -relief raised
frame .frmBody -border 1 -relief raised -highlightthickness 0 ttk::frame .frmBody -border 1 -relief raised
ttk::frame .frmStatus -border 0 -relief sunken ttk::frame .frmStatus -border 0 -relief sunken
pack .frmMenu -side top -padx 1 -fill x pack .frmMenu -side top -padx 1 -fill x
pack .frmBody -side top -padx 1 -fill both -expand true 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 columnconfigure $frmTree 0 -weight 1
grid rowconfigure $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] set nbEditor [ttk::notebook $frmWork.nbEditor]
@ -180,4 +180,3 @@ if {$cfgVariables(filesPanelShow) eq "true"} {
ttk::style configure . \ ttk::style configure . \
-foreground $::cfgVariables(guiFG) \ -foreground $::cfgVariables(guiFG) \
-font $::cfgVariables(guiFont) -font $::cfgVariables(guiFont)

4
theme/ttk_theme_dark.tcl
View File

@ -63,7 +63,7 @@ namespace eval ttk::theme::dark {
-indicatorbackground "#ffffff" -indicatormargin {1 1 4 1} -indicatorbackground "#ffffff" -indicatormargin {1 1 4 1}
ttk::style configure TRadiobutton \ ttk::style configure TRadiobutton \
-indicatorbackground "#ffffff" -indicatormargin {1 1 4 1} -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 #ffffff -foreground #000000 -padding {2 0}
ttk::style configure TEntry -fieldbackground $colors(-lightframe) -foreground #ffffff -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) \ -fieldbackground $colors(-lightframe) \
-foreground #ffffff -foreground #ffffff
ttk::style configure TNotebook
# -bordercolor $colors(-frame)
ttk::style configure TNotebook.Tab \ ttk::style configure TNotebook.Tab \
-padding {6 2 6 2} -padding {6 2 6 2}