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

replace text widget "count -displaylines" with alternative tcl8.4 compatible

This commit is contained in:
stefan schippers 2023-10-17 23:31:13 +02:00
parent 8e8145a241
commit ecbbb68447
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/xschem.tcl
View File

@ -4622,7 +4622,9 @@ proc infowindow {} {
} }
$z.f1.text delete 1.0 end $z.f1.text delete 1.0 end
$z.f1.text insert 1.0 $infowindow_text $z.f1.text insert 1.0 $infowindow_text
set lines [$z.f1.text count -displaylines 1.0 end] ## does not work in tcl/tk8.4
# set lines [$z.f1.text count -displaylines 1.0 end]
set lines [regexp -all \n [$z.f1.text get 1.0 end]]
$z.f1.text see ${lines}.0 $z.f1.text see ${lines}.0
return {} return {}
} }