picolisp

commit 2eaf1a13be8045e01cba9ff642c78803fd857dcb
parent f3a1336f312fdcbe1a9b2e32c7f032c737e07257
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri, 18 Feb 2011 09:40:37 +0100

Added +SubE/R class
Diffstat:
M
lib/form.l
 | 
21
++++++++++++++++++++-

1 file changed, 20 insertions(+), 1 deletion(-)
diff --git a/lib/form.l b/lib/form.l
@@ -1,4 +1,4 @@
-# 24jan11abu
+# 18feb11abu
 # (c) Software Lab. Alexander Burger
 
 # *PRG *Top *Gui *Btn *Get *Got *Form *Evt *Lock *Spans
@@ -1864,6 +1864,25 @@
          (mis> @ (: erVar) (val> This)) ) ) )
 
 
+(class +SubE/R +E/R)
+# sub
+
+(dm T (Lst . @)
+   (pass super
+      (cons
+         (pop 'Lst)
+         (append '(: home obj) (cons (car Lst))) ) )
+   (=: sub Lst)
+   (=: able (bool (: able))) )
+
+(dm set> (Val Dn)
+   (and
+      Val
+      (not (eval (: erObj)))
+      (put!> (: home obj) (: sub 1) (new! (: sub -1))) )
+   (super Val Dn) )
+
+
 (class +BlobField +/R +TextField)
 # org