add tooltip showing full path of schematic when hovering the mouse over a tab

2023-10-19 15:14:29 +02:00 · 2023-10-19 15:14:29 +02:00 · 0e583cfac1
parent 0325b14499
commit 0e583cfac1
1 changed files with 1 additions and 0 deletions
--- 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