picolisp

commit b4704f33021027ea5c3c60f791095a88e43a2b94
parent 6c1d07b8ab58860a58b43c45f81a7ee0053271d5
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon,  6 May 2013 16:59:10 +0200

'+OnClick' GUI prefix class
Diffstat:
M
CHANGES
 | 
3
++-
M
lib/form.l
 | 
14
+++++++++++++-

2 files changed, 15 insertions(+), 2 deletions(-)
diff --git a/CHANGES b/CHANGES
@@ -1,4 +1,5 @@
 * DDjun13 picoLisp-3.1.3
+   '+OnClick' GUI prefix class
    Flight Simulator in "misc/rcsim.l" (64-bit)
    Removed z3d/rcsim flight simulator (32-bit)
    Bug in 'conc' (64-bit)
@@ -31,7 +32,7 @@
    File descriptor leak in 'dir' (64-bit)
    Namespace support also in Ersatz PicoLisp
    JavaScript 'lisp' calls
-   '+DbHint' gui prefix class
+   '+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 @@
-# 09mar13abu
+# 06may13abu
 # (c) Software Lab. Alexander Burger
 
 # *PRG *Top *Gui *Btn *Get *Got *Form *Evt *Lock *Spans
@@ -1081,6 +1081,18 @@
    (and (able) (eval (: act))) )
 
 
+(class +OnClick)
+# onclick
+
+(dm T (Exe . @)
+   (=: onclick Exe)
+   (pass extra) )
+
+(dm show> ("Var")
+   (<js> (list (cons 'onclick (pack (eval (: onclick)) "; return false;")))
+      (extra "Var") ) )
+
+
 (class +Drop)
 # "drop" drop