picolisp

commit 6090f7ba4f7b1e3db4a934e4d4f6f736861a7d15
parent e014a1667299c64164acd0956f4071cb1f979987
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu,  8 Sep 2011 16:38:43 +0200

Check 'lock' (for +E/R +Chart) before 'put!>'
Diffstat:
M
lib/form.l
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lib/form.l b/lib/form.l
@@ -1,4 +1,4 @@
-# 06may11abu
+# 08sep11abu
 # (c) Software Lab. Alexander Burger
 
 # *PRG *Top *Gui *Btn *Get *Got *Form *Evt *Lock *Spans
@@ -1857,6 +1857,7 @@
 
 (dm set> (Val Dn)
    (and
+      (not (: lock))
       (eval (: erObj))
       (put!> @ (: erVar) Val) )
    (extra Val Dn) )
@@ -1895,6 +1896,7 @@
 
 (dm set> (Val Dn)
    (and
+      (not (: lock))
       (<> Val (: org))
       (let? Obj (eval (: erObj))
          (protect