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 0a5fc98a6a11387eb4ecedf9036999a04558d4e4
parent 9f8f150e3667b9673924e74c06f74cbefdcf35a1
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun, 11 Nov 2012 16:09:26 +0100

Simplify +ChoButton with direct choice function
Diffstat:
Mdoc/family.l | 10+++++-----
Mdoc/family.tgz | 0
Mdoc/family64.tgz | 0
3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/doc/family.l b/doc/family.l @@ -1,4 +1,4 @@ -# 04jul12abu +# 11nov12abu # (c) Software Lab. Alexander Burger (load "@lib/http.l" "@lib/xhtml.l" "@lib/form.l" "@lib/ps.l") @@ -104,13 +104,13 @@ (gui '(+ClassField) '(: home obj) '(("Male" +Man) ("Female" +Woman))) ) (<grid> 5 "Occupation" (gui '(+E/R +TextField) '(job : home obj) 20) - "Father" (gui '(+ChoButton) '(choPerson (field 1))) + "Father" (choPerson 0) (gui '(+E/R +Obj +TextField) '(pa : home obj) '(nm +Man) 30) "born" (gui '(+E/R +DateField) '(dat : home obj) 10) - "Mother" (gui '(+ChoButton) '(choPerson (field 1))) + "Mother" (choPerson 0) (gui '(+E/R +Obj +TextField) '(ma : home obj) '(nm +Woman) 30) "died" (gui '(+E/R +DateField) '(fin : home obj) 10) - "Partner" (gui '(+ChoButton) '(choPerson (field 1))) + "Partner" (choPerson 0) (gui '(+E/R +Obj +TextField) '(mate : home obj) '(nm +Person) 30) ) (gui '(+E/R +Chart) '(kids : home obj) 5 '((This) (list NIL This (: dat) (: pa) (: ma))) @@ -119,7 +119,7 @@ '(NIL (NIL "Children") (NIL "born") (NIL "Father") (NIL "Mother")) (do 4 (<row> NIL - (gui 1 '(+ChoButton) '(choPerson (field 1))) + (choPerson 1) (gui 2 '(+Obj +TextField) '(nm +Person) 20) (gui 3 '(+E/R +DateField) '(dat curr) 10) (gui 4 '(+ObjView +TextField) '(: nm) 20) diff --git a/doc/family.tgz b/doc/family.tgz Binary files differ. diff --git a/doc/family64.tgz b/doc/family64.tgz Binary files differ.