fix regression: Properties->Edit Header/License text; fix keybinding documentation for Shift-Tab, Ctrl-Shift-Tab and Ctrl-Tab (switch tabs)

doc/xschem_man/commands.html

@@ -128,8 +128,9 @@ ctrl       Enter        Confirm closing dialog boxes
 -          Up           Move up
 ctrl       Left         Previous tab (if tabbed interface enabled) 
 ctrl       Right        Next tab (if tabbed interface enabled)
-ctrl+shift Tab          Previous tab (if tabbed interface enabled) 
+shift      Tab          Right tab (if tabbed interface enabled)
-ctrl       Tab          Next tab (if tabbed interface enabled)
+ctrl+shift Tab          Left tab (if tabbed interface enabled)
+ctrl       Tab          Previous tab (if tabbed interface enabled)
 -           ':'         Toggle flat netlist
 -           '\'         Toggle fullscreen
 -           '!'         Break selected wires at any wire or component pin

src/callback.c

@@ -3848,6 +3848,14 @@ static void handle_key_press(int event, KeySym key, int state, int rstate, int m
         tcleval("prev_tab");
         xctx->semaphore = save;
       }
+      else if(state == ShiftMask) { 
+        int save = xctx->semaphore;
+        if(xctx->semaphore >= 2) break;
+        xctx->semaphore = 0; 
+        tcleval("next_tab");
+        xctx->semaphore = save;
+      } 
+
       break;
     
     case XK_Right:

src/keys.help

@@ -69,8 +69,9 @@ ctrl       Enter        Confirm closing dialog boxes
 -          Up           Move up
 ctrl       Left         Previous tab (if tabbed interface enabled) 
 ctrl       Right        Next tab (if tabbed interface enabled)
-ctrl+shift Tab          Previous tab (if tabbed interface enabled) 
+shift      Tab          Right tab (if tabbed interface enabled) 
-ctrl       Tab          Next tab (if tabbed interface enabled)
+ctrl+shift Tab          Left tab (if tabbed interface enabled) 
+ctrl       Tab          Previous tab (if tabbed interface enabled)
 -           ':'         Toggle flat netlist
 -           '\'         Toggle fullscreen
 -           '!'         Break selected wires at any wire or component pin

src/xschem.tcl

@@ -1412,7 +1412,7 @@ proc ngspice::get_voltage {n} {
 
 proc update_schematic_header {} {
   set tctx::retval [xschem get header_text]
-  text_line {Header/License text:} 0
+  text_line {Header/License text:} 0 header
   if { $tctx::rcode ne {}} {
     xschem set header_text $tctx::retval
   }
@@ -6691,6 +6691,8 @@ proc text_line {txtlabel clear {preserve_disabled disabled} } {
   global text_line_default_geometry preserve_unchanged_attrs wm_fix tabstop
   global debug_var text_tabs_setting
 
+  set buttonstate $preserve_disabled
+  if {$preserve_disabled eq {header}} { set buttonstate {disabled}}
 
   if {$preserve_disabled eq {disabled}} {
     set tctx::selected_mode [xschem get netlist_type]
@@ -6784,12 +6786,14 @@ proc text_line {txtlabel clear {preserve_disabled disabled} } {
       label .dialog.f1.r6 -text {Mode:}
       ttk::combobox .dialog.f1.r7 -values $mode_list -textvariable tctx::selected_mode -width 14
     }
+    if { $preserve_disabled ne {header} } {
       label .dialog.f1.r4 -text {   Edit Attr:}
       ttk::combobox .dialog.f1.r5 -values $tok_list -textvariable tctx::selected_tok -width 14
     }
+  }
 
   checkbutton .dialog.f0.l2 -text "preserve unchanged props" -variable preserve_unchanged_attrs \
-     -state $preserve_disabled
+     -state $buttonstate
   pack .dialog.f0 -fill x
   pack .dialog.f0.l2 -side left
   pack .dialog.f0.l1 -side left -expand yes
@@ -6799,8 +6803,10 @@ proc text_line {txtlabel clear {preserve_disabled disabled} } {
   pack .dialog.f1.b3 -side left -fill x -expand yes
   pack .dialog.f1.b4 -side left -fill x -expand yes
   if  { [info tclversion] > 8.4} {
+    if { $preserve_disabled ne {header} } {
       pack .dialog.f1.r4 -side left
       pack .dialog.f1.r5 -side left
+    }
     if {$preserve_disabled eq {disabled}} {
       pack .dialog.f1.r6 -side left
       pack .dialog.f1.r7 -side left
@@ -6817,7 +6823,7 @@ proc text_line {txtlabel clear {preserve_disabled disabled} } {
     }
   }
 
-  if  { [info tclversion] > 8.4} {
+  if  { $preserve_disabled ne {header} && [info tclversion] > 8.4} {
       bind .dialog.f1.r5 <<ComboboxSelected>> {
         if {$tctx::old_selected_tok ne $tctx::selected_tok} {
           if { $tctx::old_selected_tok eq {<ALL>} } {

xschem_library/devices/bindkeys_cheatsheet.sym

@@ -463,8 +463,8 @@ T {-} 842.5 -126.25 0 0 0.18 0.18 {layer=7}
 T {-} 842.5 -137.5 0 0 0.18 0.18 {layer=6}
 T {Incr line width} 962.5 -366.25 0 0 0.18 0.18 {layer=6}
 T {Set line width} 882.5 -366.25 0 0 0.18 0.18 {layer=7}
-T {Next Tab} 2.5 -263.75 0 0 0.18 0.18 {layer=12}
+T {Right Tab} 2.5 -263.75 0 0 0.18 0.18 {layer=12}
-T {Previous Tab} 2.5 -297.5 0 0 0.18 0.18 {layer=6}
+T {Left Tab} 2.5 -297.5 0 0 0.18 0.18 {layer=6}
 T {Previous tab} 1222.5 -35 0 0 0.18 0.18 {layer=4}
 T {Move left} 1222.5 -12.5 0 0 0.18 0.18 {}
 T {Next tab} 1382.5 -35 0 0 0.18 0.18 {layer=4}
@@ -472,3 +472,4 @@ T {Move right} 1382.5 -12.5 0 0 0.18 0.18 {}
 T {Move down} 1302.5 -12.5 0 0 0.18 0.18 {}
 T {Move up} 1302.5 -92.5 0 0 0.18 0.18 {}
 T {Open last file} 762.5 -297.5 0 0 0.18 0.18 {layer=6}
+T {Previous Tab} 2.5 -275 0 0 0.18 0.18 {layer=4}