add text_window_hl_text

text color of selected/highlighted text in a [text define] window
sebshader · Dec 22, 2021 · d975b43 · d975b43
1 parent 81cfecf
commit d975b43
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 5 deletions.
diff --git a/doc/7.stuff/colors-plugin.txt b/doc/7.stuff/colors-plugin.txt
@@ -31,6 +31,7 @@
 # text_window_fill - [text] window background
 # text_window_text - [text] window text
 # text_window_highlight - like txt_highlight but for [text] window
+# text_window_hl_text - color of highlighted text in [text] window
 # text_window_cursor - [text] window cursor
 # pdwindow_fill - background of post window
 # pdwindow_fatal_text - text for fatal errors
@@ -72,6 +73,7 @@ atom_box_label "black"
 atom_box_outline "cyan"
 text_window_fill "black"
 text_window_text "white"
+text_window_hl_text "white"
 text_window_highlight "green"
 text_window_cursor "green"
 pdwindow_fill "#000"

diff --git a/tcl/pd-gui.tcl b/tcl/pd-gui.tcl
@@ -271,6 +271,7 @@ gop_box "#FF8080"
 text_window_fill "#FFFFFF"
 text_window_text "#000"
 text_window_highlight ""
+text_window_hl_text ""
 text_window_cursor "#000"
 pdwindow_fill "#FFFFFF"
 pdwindow_fatal_text "#D00"

diff --git a/tcl/pdtk_textwindow.tcl b/tcl/pdtk_textwindow.tcl
@@ -25,11 +25,7 @@ proc pdtk_textwindow_open {name geometry title font} {
         text $name.text -relief raised -highlightthickness 0 -bd 2 \
             -font [get_font_for_size $font] \
             -exportselection 1 -undo 1 \
-            -yscrollcommand "$name.scroll set" -background \
-            [::pdtk_canvas::get_color text_window_fill $name] \
-            -foreground [::pdtk_canvas::get_color text_window_text $name] \
-			-insertbackground \
-			[::pdtk_canvas::get_color text_window_cursor $name]
+            -yscrollcommand "$name.scroll set"
 
 		set tmpcol [::pdtk_canvas::get_color text_window_text $name]
 		if {$tmpcol ne ""} {
@@ -47,6 +43,10 @@ proc pdtk_textwindow_open {name geometry title font} {
 		if {$tmpcol ne ""} {
 			$name.text configure -selectbackground $tmpcol
 		}
+		set tmpcol [::pdtk_canvas::get_color text_window_hl_text $name]
+		if {$tmpcol ne ""} {
+			$name.text configure -selectforeground $tmpcol
+		}
         scrollbar $name.scroll -command "$name.text yview"
         pack $name.scroll -side right -fill y
         pack $name.text -side left -fill both -expand 1