add (disabled) debug message in proc set_tab_names

2024-12-16 09:09:39 +01:00 · 2024-12-16 09:09:39 +01:00 · b4423126ea
parent 8c4d5cb7b8
commit b4423126ea
1 changed files with 1 additions and 0 deletions
--- 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")} {