cl-rw

Layered streams for Common Lisp
git clone https://logand.com/git/cl-rw.git/
Log | Files | Refs

commit be6a342c5a7046b5bd023bf461a9031bd45f2058
parent bad72057667173334b074d56d7e2e7f831ef0582
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun,  6 Sep 2015 14:06:52 +0200

add accesskey arg

Diffstat:
Mui.lisp | 8++++++--
1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/ui.lisp b/ui.lisp @@ -228,11 +228,15 @@ (defun draw (create construct deconstruct) (funcall *pool* create construct deconstruct)) -(defun link (draw click &key style (enabled t)) +(defun link (draw click &key style (enabled t) accesskey) (flet ((%draw () (if (functionp draw) (funcall draw) draw))) (if enabled - `((:a :href ,(funcall *click-link* click) :style ,style) ,(%draw)) + `((:a + :href ,(funcall *click-link* click) + :style ,style + :accesskey ,accesskey) + ,(%draw)) `((:span :style "color:gray") ,(%draw))))) (defun input (set type value enabled editable style size maxlength)