picolisp

commit 73b76c1e175e6030e89624b8abfd3ee9876a0607
parent 77067a4a3427aa64336cc017f2e0d397adfcab93
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue, 28 May 2013 13:14:15 +0200

Slightly simplified 'idForm'
Diffstat:
M
lib/form.l
 | 
5
++---

1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/lib/form.l b/lib/form.l
@@ -1,4 +1,4 @@
-# 13may13abu
+# 28may13abu
 # (c) Software Lab. Alexander Burger
 
 # *PRG *Top *Gui *Btn *Get *Got *Form *Evt *Lock *Spans
@@ -2274,9 +2274,8 @@
             (if (pair "Cho")
                (eval @)
                (choDlg NIL "Cho" (list "Var" "Cls")) ) ) )
-      (<h3> NIL "Entity")
       (form NIL
-         (<h2> NIL (idObj "Lst"))
+         (<h3> NIL "Entity" ": " (idObj "Lst"))
          (panel "Able" (pack "Entity" " '@1'") "Del"
             (or
                (pair "Cho")