[rdnzl-devel] Keys comparision

[Francisco Rivera]

Hello,

 

I will like make a "between" comparison of Keys enumerator. 

 

The below code works fine, but I will like know if [%KeyCode e] is between
[$Keys.D0] and [$Keys.D9]

 

(defun learning ()

  (let ((form (new "Form")))

    [+KeyDown form

      (new "KeyEventHandler"

           #'(lambda (o e)

               (declare (ignore o))

               (cond ([Equals [%KeyCode e] [$Keys.D0]] (message-box
"Zero")))))]

   form))

 

Regards

 

Francisco Rivera

jfrivera56 at hotmail.com

 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/rdnzl-devel/attachments/20050102/eeba9b8d/attachment.html>