luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

do not use text widget -selectbackground on tcl8.4

This commit is contained in:
stefan schippers 2023-10-17 23:35:16 +02:00
parent ecbbb68447
commit ad07999dd3
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/xschem.tcl
View File

@ -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