picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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

Slightly simplified 'idForm'
Diffstat:
Mlib/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")