diff --git a/debian/changelog b/debian/changelog index 05282c0..478e973 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +projman (2.0.0-alpha18) stable; urgency=medium + + * Новая сборка + + -- Sergey Kalinin Mon, 27 Oct 2025 21:01:15 +0300 + projman (2.0.0-alpha18) stable; urgency=medium * Исправлена работа в windows @@ -371,3 +377,4 @@ projman (2.0.0-alfa0) stable; urgency=medium + diff --git a/projman.tcl b/projman.tcl index 145bdae..41ffbbe 100755 --- a/projman.tcl +++ b/projman.tcl @@ -10,7 +10,7 @@ exec wish8.6 "$0" -- "$@" ###################################################### # Version: 2.0.0 # Release: alpha18 -# Build: 27102025205938 +# Build: 28102025160338 ###################################################### # определим текущую версию, релиз и т.д. diff --git a/theme/black.tcl b/theme/black.tcl index 2520392..df16cee 100644 --- a/theme/black.tcl +++ b/theme/black.tcl @@ -39,6 +39,7 @@ namespace eval ttk::theme::black { -lightest "#ffffff" -selectbg "#4a6984" -selectfg "#ffffff" + -font "#c8c8c8" } if {[info commands ::ttk::style] ne ""} { set styleCmd ttk::style @@ -46,77 +47,78 @@ namespace eval ttk::theme::black { set styleCmd style } - $styleCmd theme create black -parent clam -settings { + $styleCmd theme create black -parent clam -settings { - # ----------------------------------------------------------------- - # Theme defaults - # - $styleCmd configure "." \ - -background $colors(-frame) \ - -foreground white \ - -bordercolor $colors(-darkest) \ - -darkcolor $colors(-dark) \ - -lightcolor $colors(-lighter) \ - -troughcolor $colors(-darker) \ - -selectbackground $colors(-selectbg) \ - -selectforeground $colors(-selectfg) \ - -selectborderwidth 0 \ - -font "{Droid Sans Mono} 9" \ - ; - - $styleCmd map "." \ - -background [list disabled $colors(-frame) \ - active $colors(-lighter)] \ - -foreground [list disabled $colors(-disabledfg)] \ - -selectbackground [list !focus $colors(-darkest)] \ - -selectforeground [list !focus white] \ - ; - - # ttk widgets. - $styleCmd configure TButton \ - -width -8 -padding {5 1} -relief link - $styleCmd configure TMenubutton\ - -relief flat -arrowsize 0 - $styleCmd configure TCheckbutton \ - -indicatorbackground $colors(-lighter) -indicatormargin {1 1 4 1} - $styleCmd configure TRadiobutton \ - -indicatorbackground $colors(-lighter) -indicatormargin {1 1 4 1} - - $styleCmd configure TEntry \ - -fieldbackground gray20 -foreground black \ - -padding {2 0} -border -1 - $styleCmd configure TCombobox \ - -fieldbackground white -foreground black \ - -padding {2 0} - $styleCmd configure TSpinbox \ - -fieldbackground white -foreground black \ - -padding {2 0} - - $styleCmd configure TNotebook \ - -border -1 - $styleCmd configure TNotebook.Tab \ - -padding {6 2 6 2} \ - -border -1 - - $styleCmd map TNotebook.Tab -background [list \ - selected $colors(-lighter)] - - # tk widgets. - $styleCmd map Menu \ - -background [list active $colors(-lighter)] \ - -foreground [list disabled $colors(-disabledfg)] - - $styleCmd configure TreeCtrl \ - -background gray30 -itembackground {gray60 gray50} \ - -itemfill white -itemaccentfill yellow -border -1 - - $styleCmd map Treeview\ - -background [list selected $colors(-lighter)] \ - -foreground [list selected $colors(-selectfg)] - # -background [list selected $colors(-selectbg)] \ - - $styleCmd configure Treeview -fieldbackground gray25 - } + # ----------------------------------------------------------------- + # Theme defaults + # + $styleCmd configure "." \ + -background $colors(-frame) \ + -foreground white \ + -bordercolor $colors(-darkest) \ + -darkcolor $colors(-dark) \ + -lightcolor $colors(-lighter) \ + -troughcolor $colors(-darker) \ + -selectbackground $colors(-selectbg) \ + -selectforeground $colors(-selectfg) \ + -selectborderwidth 0 \ + -font "{Droid Sans Mono} 9" \ + ; + + $styleCmd map "." \ + -background [list disabled $colors(-frame) \ + active $colors(-lighter)] \ + -foreground [list disabled $colors(-disabledfg)] \ + -selectbackground [list !focus $colors(-darkest)] \ + -selectforeground [list !focus white] \ + ; + + # ttk widgets. + $styleCmd configure TButton \ + -width -8 -padding {5 1} -relief link + $styleCmd configure TMenubutton \ + -relief flat -arrowsize 0 + + $styleCmd configure TCheckbutton \ + -indicatorbackground $colors(-lighter) -indicatormargin {1 1 4 1} + $styleCmd configure TRadiobutton \ + -indicatorbackground $colors(-lighter) -indicatormargin {1 1 4 1} + + $styleCmd configure TEntry \ + -fieldbackground gray20 -foreground $colors(-font) \ + -padding {2 0} -border -1 + $styleCmd configure TCombobox \ + -fieldbackground white -foreground $colors(-font)\ + -padding {2 0} + $styleCmd configure TSpinbox \ + -fieldbackground white -foreground $colors(-font) \ + -padding {2 0} + + $styleCmd configure TNotebook \ + -border -1 + $styleCmd configure TNotebook.Tab \ + -padding {6 2 6 2} \ + -border -1 + + $styleCmd map TNotebook.Tab -background [list \ + selected $colors(-lighter)] + + # tk widgets. + $styleCmd map Menu \ + -background [list active $colors(-dark)] \ + -foreground [list disabled $colors(-lightest)] \ + + $styleCmd configure TreeCtrl \ + -background gray30 -itembackground {gray60 gray50} \ + -itemfill white -itemaccentfill yellow -border -1 + + $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] }