luke/xschem
1
0
Fork 0
mirror of https://github.com/StefanSchippers/xschem.git synced 2026-08-22 14:17:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files
src/xschem.tcl
+3 -1
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 {}
} }