From b4423126ea75b4b70685f44c5638b48912b169b2 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Mon, 16 Dec 2024 09:09:39 +0100
Subject: [PATCH] add (disabled) debug message in proc set_tab_names

---
 src/xschem.tcl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index eb573104..ad33ab2d 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -6986,6 +6986,7 @@ proc set_tab_names {{mod {}}} {
     regsub {\.drw} $currwin {} tabname
     if {$tabname eq {}} { set tabname .x0}
     .tabs$tabname configure -text [file tail $currsch]$mod -background $tab_color
+    # puts ".tabs$tabname --> name=[file tail $currsch]$mod"
     balloon .tabs$tabname $currsch
     for { set i 0} { $i < $tctx::max_new_windows} { incr i} {
       if { [winfo exists .tabs.x$i] && ($tabname ne ".x$i")} {