From ad07999dd3160f1bf7955aac5992130630bd4f9c Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Tue, 17 Oct 2023 23:35:16 +0200
Subject: [PATCH] do not use text widget -selectbackground on tcl8.4

---
 src/xschem.tcl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 0b258585..c4d2e06c 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -1892,7 +1892,13 @@ proc graph_update_nodelist {} {
       }
       set b [lindex $colors $col_idx]  
       .graphdialog.center.right.text1 tag add t$n "1.0 + $t chars" "1.0 + $c chars"
-      .graphdialog.center.right.text1 tag configure t$n -background $b -selectbackground grey40
+
+      if { [info tclversion] > 8.4} {
+        .graphdialog.center.right.text1 tag configure t$n -background $b -selectbackground grey40
+      } else {
+        .graphdialog.center.right.text1 tag configure t$n -background $b
+      }
+      
       incr n
     }
     # remove excess colors