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:
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.
