From 479b8ef6e97b7ff0a1bb12bef041eed61d490331 Mon Sep 17 00:00:00 2001
From: Stefan Schippers <stefan.schippers@gmail.com>
Date: Mon, 2 Jan 2023 19:34:27 +0100
Subject: [PATCH] add accelerator Shift-B for edit schematic header/license

---
 src/callback.c                         |  4 ++++
 src/xschem.tcl                         | 17 ++++++++++-------
 xschem_library/ngspice/solar_panel.sch |  4 +++-
 3 files changed, 17 insertions(+), 8 deletions(-)

diff --git a/src/callback.c b/src/callback.c
index 994127cf..14eaa668 100644
--- a/src/callback.c
+++ b/src/callback.c
@@ -2378,6 +2378,10 @@ int callback(const char *winpath, int event, int mx, int my, KeySym key,
     }
     break;
    }
+   if(key=='B' && state==ShiftMask)    /* edit schematic header/license */
+   {
+     tcleval("update_schematic_header");
+   }
    if(key=='b' && state==0)                     /* merge schematic */
    {
     if(xctx->semaphore >= 2) break;
diff --git a/src/xschem.tcl b/src/xschem.tcl
index c9788363..33da79cb 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -835,6 +835,15 @@ proc ngspice::get_voltage {n} {
   return $res
 }
 
+proc update_schematic_header {} {
+  global retval rcode
+  set retval [xschem get header_text]
+  text_line {Header/License text:} 0
+  if { $rcode ne {}} {
+    xschem set header_text $retval
+  }
+}
+
 proc ngspice::get_node {n} {
   global graph_raw_level
   set path [string range [xschem get sch_path] 1 end]
@@ -5861,13 +5870,7 @@ proc build_widgets { {topwin {} } } {
   $topwin.menubar.prop.menu add command -label "Edit with editor" -command "xschem edit_vi_prop" -accelerator Shift+Q
   $topwin.menubar.prop.menu add command -label "View" -command "xschem view_prop" -accelerator Ctrl+Shift+Q
   $topwin.menubar.prop.menu add command -label "Edit Header/License text" \
-     -command {
-       set retval [xschem get header_text]
-       text_line {Header/License text:} 0
-       if { $rcode ne {}} {
-         xschem set header_text $retval
-       }
-     }
+     -command { update_schematic_header } -accelerator Shift+B
   $topwin.menubar.prop.menu add command -background red -label "Edit file (danger!)" \
      -command "xschem edit_file" -accelerator Alt+Q
   $topwin.menubar.sym.menu add radiobutton -label "Show Symbols" \
diff --git a/xschem_library/ngspice/solar_panel.sch b/xschem_library/ngspice/solar_panel.sch
index 58d7bc40..da8b41bc 100644
--- a/xschem_library/ngspice/solar_panel.sch
+++ b/xschem_library/ngspice/solar_panel.sch
@@ -1,5 +1,7 @@
 v {xschem version=3.1.0 file_version=1.2
-}
+Solar panel simulation. 
+A Photovoltaic model has been created for this (pv_ngspice.sym)
+Stefan.}
 G {}
 K {}
 V {}