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 21:28:02 +03:00
parent 8662f4925d
commit 8fe46ab488
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/editor.tcl
View File

@ -633,7 +633,8 @@ namespace eval Editor {
pack $frmText -side top -expand true -fill both pack $frmText -side top -expand true -fill both
pack [ttk::scrollbar $frmText.s -command "$frmText.t yview"] -side right -fill y pack [ttk::scrollbar $frmText.s -command "$frmText.t yview"] -side right -fill y
ctext $txt -yscrollcommand "$frmText.s set" -font $cfgVariables(font) -linemapfg $cfgVariables(lineNumberFG) \ ctext $txt -yscrollcommand "$frmText.s set" -font $cfgVariables(font) -linemapfg $cfgVariables(lineNumberFG) \
-tabs "[expr {4 * [font measure $cfgVariables(font) 0]}] left" -tabstyle tabular -undo true -tabs "[expr {4 * [font measure $cfgVariables(font) 0]}] left" -tabstyle tabular -undo true \
-relief flat
pack $txt -fill both -expand 1 pack $txt -fill both -expand 1
# puts ">>>>>>> [bindtags $txt]" # puts ">>>>>>> [bindtags $txt]"

2
theme/ttk_theme_dark.tcl
View File

@ -112,7 +112,7 @@ namespace eval ttk::theme::dark {
option add *Text.Foreground $colors(-foreground) interactive option add *Text.Foreground $colors(-foreground) interactive
option add *Text.Background $colors(-frame) interactive option add *Text.Background $colors(-frame) interactive
option add *Text.Insertbackground yellow interactive # option add *Text.Insertbackground yellow interactive
# option add *Text.BorderWidth -2 interactive # option add *Text.BorderWidth -2 interactive
# option add *Text.selectBorderWidth -2 interactive # option add *Text.selectBorderWidth -2 interactive
# option add *Text.Relief flat interactive # option add *Text.Relief flat interactive