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:
svkalinin 2022-11-14 15:12:11 +03:00
parent 9712decbec
commit d5bf9486a4
3 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/gui.tcl
View File

@ -70,7 +70,7 @@ if [info exists cfgVariables(theme)] {
} }
ttk::frame .frmMenu -border 0 -relief raised ttk::frame .frmMenu -border 0 -relief raised
ttk::frame .frmBody -border 1 -relief raised ttk::frame .frmBody -border 0 -relief raised
ttk::frame .frmStatus -border 0 -relief raised ttk::frame .frmStatus -border 0 -relief raised
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
@ -122,7 +122,7 @@ pack $frmTool.btn_tree $frmTool.btn_search $frmTool.btn_git -side top -padx 1 -p
# #pack $frmTool.lbl_logo -side bottom -padx 5 -pady 5 # #pack $frmTool.lbl_logo -side bottom -padx 5 -pady 5
# #
# # Дерево с полосами прокрутки # # Дерево с полосами прокрутки
set frmTree [ttk::frame .frmBody.frmTree] set frmTree [ttk::frame .frmBody.frmTree -border 0]
set tree [ttk::treeview $frmTree.tree -show tree \ set tree [ttk::treeview $frmTree.tree -show tree \
-xscrollcommand [list .frmBody.frmTree.h set] \ -xscrollcommand [list .frmBody.frmTree.h set] \
@ -135,7 +135,7 @@ ttk::scrollbar $frmTree.h -orient horizontal -command [list $frmTree.tree xview]
ttk::scrollbar $frmTree.v -orient vertical -command [list $frmTree.tree yview] ttk::scrollbar $frmTree.v -orient vertical -command [list $frmTree.tree yview]
bind $tree <Double-ButtonPress-1> {Tree::DoublePressItem $tree} bind $tree <Double-ButtonPress-1> {Tree::DoublePressItem $tree}
bind $tree <ButtonRelease-1> {Tree::PressItem $tree; break} bind $tree <ButtonRelease-1> {Tree::PressItem $tree; break}
grid $tree -row 0 -column 0 -sticky nsew grid $tree -row 0 -column 0 -sticky nsew
grid $frmTree.v -row 0 -column 1 -sticky nsew grid $frmTree.v -row 0 -column 1 -sticky nsew

2
projman.tcl
View File

@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
###################################################### ######################################################
# Version: 2.0.0 # Version: 2.0.0
# Release: alpha # Release: alpha
# Build: 14112022113440 # Build: 14112022151107
###################################################### ######################################################
# определим текущую версию, релиз и т.д. # определим текущую версию, релиз и т.д.

10
theme/black.tcl
View File

@ -92,8 +92,11 @@ namespace eval ttk::theme::black {
-fieldbackground white -foreground black \ -fieldbackground white -foreground black \
-padding {2 0} -padding {2 0}
$styleCmd configure TNotebook \
-border -1
$styleCmd configure TNotebook.Tab \ $styleCmd configure TNotebook.Tab \
-padding {6 2 6 2} -padding {6 2 6 2} \
-border -1
$styleCmd map TNotebook.Tab -background [list \ $styleCmd map TNotebook.Tab -background [list \
selected $colors(-lighter)] selected $colors(-lighter)]
@ -105,15 +108,16 @@ namespace eval ttk::theme::black {
$styleCmd configure TreeCtrl \ $styleCmd configure TreeCtrl \
-background gray30 -itembackground {gray60 gray50} \ -background gray30 -itembackground {gray60 gray50} \
-itemfill white -itemaccentfill yellow -itemfill white -itemaccentfill yellow -border -1
$styleCmd map Treeview \ $styleCmd map Treeview\
-background [list selected $colors(-lighter)] \ -background [list selected $colors(-lighter)] \
-foreground [list selected $colors(-selectfg)] -foreground [list selected $colors(-selectfg)]
# -background [list selected $colors(-selectbg)] \ # -background [list selected $colors(-selectbg)] \
$styleCmd configure Treeview -fieldbackground gray25 $styleCmd configure Treeview -fieldbackground gray25
} }
puts [ttk::style element names]
} }
# A few tricks for Tablelist. # A few tricks for Tablelist.