From 5b9d1091b27043d9d2351c3ea4d31c3946295640 Mon Sep 17 00:00:00 2001
From: Stefan Schippers <stefan.schippers@gmail.com>
Date: Tue, 22 Sep 2020 14:22:59 +0200
Subject: [PATCH] print red message in status bar if caps lock set

---
 src/callback.c | 9 +++++++++
 src/xschem.tcl | 4 +++-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/src/callback.c b/src/callback.c
index faaf9177..dea50244 100644
--- a/src/callback.c
+++ b/src/callback.c
@@ -79,6 +79,15 @@ int callback(int event, int mx, int my, KeySym key,
  unsigned short sel;
 
  state &=~Mod2Mask; /* 20170511 filter out NumLock status */
+
+ if(event == KeyPress && key == XK_Caps_Lock && !(state & LockMask)) {
+     tcleval(".statusbar.8 configure -state active -text {CAPS LOCK SET! }");
+ }
+ 
+ if(event == KeyPress && key == XK_Caps_Lock && (state & LockMask)) {
+     tcleval(".statusbar.8 configure -state  normal -text {}");
+ }
+   
  if(semaphore)
  {
    if(debug_var>=2) 
diff --git a/src/xschem.tcl b/src/xschem.tcl
index 2675095c..6aaf3bd9 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -2931,6 +2931,7 @@ proc build_windows {} {
     pack .statusbar.5 -side left 
     pack .statusbar.6 -side left 
     pack .statusbar.7 -side left 
+    pack .statusbar.8 -side left 
     pack .statusbar.1 -side left -fill x
     pack .drw -anchor n -side top -fill both -expand true
     pack .menubar -anchor n -side top -fill x  -before .drw
@@ -3769,7 +3770,8 @@ font configure Underline-Font -underline true -size 24
           -width 10 -foreground black -takefocus 0
    label .statusbar.6   -text "NETLIST MODE:"
    entry .statusbar.7 -textvariable netlist_type -relief sunken -bg white \
-          -width 10 -state disabled -disabledforeground black 
+          -width 8 -state disabled -disabledforeground black 
+   label .statusbar.8 -activebackground red -text {} 
 
 
    ##