blob: 94716d6feb11dc1a9ced308f228d9b3b8eac2031 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
(defn handle-key [event]
(println event)
(let [mask (.stateMask event)
state-string (str (if (zero? (bit-and mask SWT/ALT))
"" "M-")
(if (zero? (bit-and mask SWT/CTRL))
"" "C-"))
shift-p (not (zero? (bit-and mask SWT/SHIFT)))
key (.keyCode event)]
(when (and (.isEmpty state-string)
(= @*focused-widget* *answer-text*))
(let [upcase-char (Character/toUpperCase (char key))
upcase-code (int upcase-char)]
(println "you typed" upcase-char "into *answer-text*")
(when (<= (int \A) upcase-code (int \Z))
(set! (.doit event) false)
(append-styled-text *answer-text* (str upcase-char)
{:fg (color "black")}))))
(unless (or (zero? key) (= key (int \backspace)))
(let [key-string (str state-string (char key))
key-fn (get *key-bindings* key-string)]
(println "key:" key-string)
(println "key-fn:" key-fn)
(when key-fn (key-fn))))))
(defn handle-key-listener []
(proxy [Listener] []
(handleEvent [event] (handle-key event))))
(defn verify-key-listener []
(proxy [VerifyKeyListener] []
(verifyKey [event] (handle-key event))))
(defn handle-focus-gained [event]
(def *focused-widget* (ref (.widget event))))
(defn focus-listener []
(proxy [FocusListener] []
(focusGained [event] (handle-focus-gained event))
(focusLost [event])))
|
