From 0e583cfac174ebc1aca716f8306aeb5e0737b015 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Thu, 19 Oct 2023 15:14:29 +0200
Subject: [PATCH] add tooltip showing full path of schematic when hovering the
 mouse over a tab

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

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 8d007fde..8b1f6aee 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -5625,6 +5625,7 @@ proc set_tab_names {{mod {}}} {
     regsub {\.drw} $currwin {} tabname
     if {$tabname eq {}} { set tabname .x0}
     .tabs$tabname configure -text [file tail [xschem get schname]]$mod -bg Palegreen
+    balloon .tabs$tabname [xschem get schname]
     for { set i 0} { $i < $tctx::max_new_windows} { incr i} {
       if { [winfo exists .tabs.x$i] && ($tabname ne ".x$i")} {
          .tabs.x$i configure -bg $tctx::tab_bg