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

'+OnClick' GUI prefix class
Diffstat:
MCHANGES | 3++-
Mlib/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