picolisp

commit 2d250831ca2ef3e87e1a1c365c9cc7afd589da5b
parent 359fdb518a25418f6f795f3f12dbaeb13afac2a9
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri, 20 Jan 2012 11:04:46 +0100

Minor gui change
Diffstat:
M
lib/form.l
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/form.l b/lib/form.l
@@ -1,4 +1,4 @@
-# 05jan12abu
+# 20jan12abu
 # (c) Software Lab. Alexander Burger
 
 # *PRG *Top *Gui *Btn *Get *Got *Form *Evt *Lock *Spans
@@ -82,6 +82,7 @@
                                              (list (setq L (need (: cols)))) ) )
                                        (let Fld (pass new)
                                           (set (nth L X) Fld)
+                                          (put Fld 'chart (list This (: rows) X))
                                           (and (get Fld 'chg) (get Fld 'able) (=: lock))
                                           (set> Fld
                                              (get
@@ -90,7 +91,6 @@
                                                    (+ (: ofs) (: rows) -1) )
                                                 X )
                                              T )
-                                          (put Fld 'chart (list This (: rows) X))
                                           Fld ) ) ) ) )
                            ((get "*App" X) (quit "gui conflict" X))
                            (T (put "*App" X (pass new))) )