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

Added +SubE/R class
Diffstat:
Mlib/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