doohoyi/color-themes-plugin
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change helpbrowser, textwindow, and canvas colors when set

Browse source
This commit is contained in:
Seb Shader 2022-01-03 20:03:49 -08:00
parent 47f6aeb9f8
commit 72526d1429
1 changed files with 47 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
color-themes-plugin.tcl
View file

@ -89,7 +89,53 @@ proc ::color-themes::set_theme {name} {
if {[winfo class $wind] eq "PatchWindow"} { if {[winfo class $wind] eq "PatchWindow"} {
pdsend "$wind map 0" pdsend "$wind map 0"
pdsend "$wind map 1" pdsend "$wind map 1"
${wind}.c configure -background [::pdtk_canvas::get_color canvas_fill] set tmpcol [::pdtk_canvas::get_color txt_highlight $wind]
if {$tmpcol ne ""} {
${wind}.c configure -selectbackground $tmpcol
}
set tmpcol [::pdtk_canvas::get_color canvas_fill $wind]
if {$tmpcol ne ""} {
${wind}.c configure -background $tmpcol
}
set tmpcol [::pdtk_canvas::get_color canvas_text_cursor $wind]
if {$tmpcol ne ""} {
${wind}.c configure -insertbackground $tmpcol
}
#in Tk 8.6 the selectforeground is set by the os theme?
set tmpcol [::pdtk_canvas::get_color txt_highlight_front $wind]
if {$tmpcol ne ""} {
${wind}.c configure -selectforeground $tmpcol
}
} elseif {[winfo class $wind] eq "HelpBrowser"} {
foreach child [winfo children .helpbrowser.c.f] {
if {[winfo class $child] eq "Listbox"} {
::helpbrowser::set_listbox_colors $child
}
}
} else {
# assume text window if text widget
if {[winfo exists $wind.text]} {
set tmpcol [::pdtk_canvas::get_color text_window_text $wind]
if {$tmpcol ne ""} {
$wind.text configure -foreground $tmpcol
}
set tmpcol [::pdtk_canvas::get_color text_window_cursor $wind]
if {$tmpcol ne ""} {
$wind.text configure -insertbackground $tmpcol
}
set tmpcol [::pdtk_canvas::get_color text_window_fill $wind]
if {$tmpcol ne ""} {
$wind.text configure -background $tmpcol
}
set tmpcol [::pdtk_canvas::get_color text_window_highlight $wind]
if {$tmpcol ne ""} {
$wind.text configure -selectbackground $tmpcol
}
set tmpcol [::pdtk_canvas::get_color text_window_hl_text $wind]
if {$tmpcol ne ""} {
$wind.text configure -selectforeground $tmpcol
}
}
} }
} }
::pdwindow::set_colors ::pdwindow::set_colors