From ecbbb684475821a13798ae3166790a26c2bca4c8 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Tue, 17 Oct 2023 23:31:13 +0200
Subject: [PATCH] replace text widget "count -displaylines" with alternative
 tcl8.4 compatible

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

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 19acd551..0b258585 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -4622,7 +4622,9 @@ proc infowindow {} {
   }
   $z.f1.text delete 1.0 end
   $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
   return {}
 }