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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
(pingus-controller
(standard-keyboard
(sdl:keyboard))
(standard-pointer
(sdl:mouse-pointer))
(standard-scroller
(core:button-scroller
(up (sdl:keyboard-button (key "up")))
(down (sdl:keyboard-button (key "down")))
(left (sdl:keyboard-button (key "left")))
(right (sdl:keyboard-button (key "right")))))
(primary-button
(sdl:mouse-button (button 1)))
(secondary-button
(sdl:mouse-button (button 2))
(sdl:mouse-button (button 3)))
(pause-button
(sdl:keyboard-button (key "p")))
(fast-forward-button
(sdl:keyboard-button (key "f"))
(sdl:keyboard-button (key "space")))
(single-step-button
(sdl:keyboard-button (key "s")))
(armageddon-button
(sdl:keyboard-button (key "a")))
(escape-button
(sdl:keyboard-button (key "escape")))
(action-up-button
(sdl:mouse-button (button 4)))
(action-down-button
(sdl:keyboard-button (key "tab"))
(sdl:mouse-button (button 5)))
(action-1-button (sdl:keyboard-button (key "1")))
(action-2-button (sdl:keyboard-button (key "2")))
(action-3-button (sdl:keyboard-button (key "3")))
(action-4-button (sdl:keyboard-button (key "4")))
(action-5-button (sdl:keyboard-button (key "5")))
(action-6-button (sdl:keyboard-button (key "6")))
(action-7-button (sdl:keyboard-button (key "7")))
(action-8-button (sdl:keyboard-button (key "8")))
(action-9-button (sdl:keyboard-button (key "9")))
(action-10-button (sdl:keyboard-button (key "0")))
)
;; EOF ;;
|
