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 8cc50f7d97db4582220192052eaac5dfc5951f60
parent 0e2c1d8fd8b8b6349c528fefe6e754699774105b
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri, 15 Jun 2012 12:01:27 +0200

'+DbHint' gui prefix class
Diffstat:
MCHANGES | 1+
Mlib/form.l | 13++++++++++++-
2 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/CHANGES b/CHANGES @@ -1,4 +1,5 @@ * DDmmm12 picoLisp-3.1.1 + '+DbHint' gui prefix class Stack alignments (64-bit) Native 'struct' function (64-bit) double/float in 'native' structures (64-bit) diff --git a/lib/form.l b/lib/form.l @@ -1,4 +1,4 @@ -# 13jun12abu +# 15jun12abu # (c) Software Lab. Alexander Burger # *PRG *Top *Gui *Btn *Get *Got *Form *Evt *Lock *Spans @@ -574,6 +574,17 @@ (cons (list 'db Var Cls Hook Str '@@)) ) ) +(class +DbHint +Hint) + +(dm T (Rel . @) + (pass super + (list '(Str) + (list 'dbHint 'Str + (lit (car Rel)) + (lit (last Rel)) + (and (meta (cdr Rel) (car Rel) 'hook) (next)) ) ) ) ) + + (class +Hint1 +hint) # hint