23 lines
374 B
Common Lisp
23 lines
374 B
Common Lisp
; this demo shows how to use the key events.
|
|
;
|
|
(clear)
|
|
;
|
|
(defn draw-title
|
|
()
|
|
(fill
|
|
(text 30 80 50 "press key") "grey" 2))
|
|
;
|
|
(defn show-letter
|
|
(e)
|
|
(a
|
|
(clear)
|
|
(draw-title)
|
|
(fill
|
|
(text 30 170 50 (concat e:key " — " e:type)) "orange" 2)))
|
|
;
|
|
(draw-title)
|
|
;
|
|
(on "key-down" show-letter)
|
|
(on "key-up" show-letter)
|
|
(on "key-press" show-letter)
|