From da7247826575a495c602fa608eb6eb3b5e4f3fb8 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Mon, 5 Feb 2024 23:33:25 +0100
Subject: [PATCH] proc graph_edit_properties: "unlock X axis" checkbutton state
 immediately applied to graph, not only after closing dialog.

---
 src/xschem.tcl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 5546d434..85cfe30d 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -2769,7 +2769,14 @@ proc graph_edit_properties {n} {
   } else {
     .graphdialog.top.lwe insert 0 $custom_lw
   }
-  checkbutton .graphdialog.top.unlocked -text {Unlock. X axis} -variable graph_unlocked
+  checkbutton .graphdialog.top.unlocked -text {Unlock. X axis} -variable graph_unlocked \
+  -command {
+      if {$graph_unlocked} {
+        xschem setprop rect 2 $graph_selected flags {graph,unlocked} fast
+      } else {
+        xschem setprop rect 2 $graph_selected flags {graph} fast
+      }
+  }
   checkbutton .graphdialog.top.dig -text {Digital} -variable graph_digital -indicatoron 1 \
     -command {
        if { [xschem get schname] eq $graph_schname } {