picolisp

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:
M
CHANGES
 | 
1
+
M
lib/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