[mcclim-cvs] CVS mcclim/Backends/gtkairo
dlichteblau
dlichteblau at common-lisp.net
Mon Dec 25 12:37:39 UTC 2006
Update of /project/mcclim/cvsroot/mcclim/Backends/gtkairo
In directory clnet:/tmp/cvs-serv31141
Modified Files:
keygen.lisp keys.lisp
Log Message:
Keyboard handling, third try.
* Backends/gtkairo/keygen.lisp (COLLECT-KEY-TABLE-2): Generate
events only for the modifiers we are planning to support.
(DO-MODIFIERS): New. (PRINT-KEY-TABLE): Sort keys.lisp by keysym
number.
* Backends/gtkairo/keys.lisp: Regenerated.
--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/keygen.lisp 2006/12/10 16:34:32 1.1
+++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/keygen.lisp 2006/12/25 12:37:38 1.2
@@ -66,6 +66,13 @@
(collect-key-table-2 clx gtk table))
(setf (fdefinition 'key-handler-impl) real-handler))))
+(defmacro do-modifiers ((var) &rest body)
+ `(dolist (.shift. '(0 1))
+ (dolist (.meta. '(0 4))
+ (dolist (.control. '(0 8))
+ (let ((,var (logior .shift. .meta. .control.)))
+ , at body)))))
+
(defun collect-key-table-2 (clx gtk native-events)
(let* ((clx-target (find-pane-named clx 'target))
(clx-win (clim:sheet-mirror clx-target))
@@ -87,7 +94,7 @@
(gtk-events (make-hash-table)))
(format t "Waiting for windows to come up...~%")
(sleep 5)
- (dotimes (state 64)
+ (do-modifiers (state)
(format t "Sending events for state ~D...~%" state)
(loop for code from min to max do
(dolist (type '(:key-press :key-release))
@@ -191,8 +198,13 @@
(write-line ";; autogenerated by keygen.lisp" s)
(print '(in-package :clim-gtkairo) s)
(loop
- for value being each hash-key in table
- using (hash-value spec)
+ for (value . spec)
+ :in (sort (loop
+ for value being each hash-key in table
+ using (hash-value spec)
+ collect (cons value spec))
+ #'<
+ :key #'car)
do
(print `(define-key ,value ,@(simplify-spec spec)) s)))))
--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/keys.lisp 2006/12/10 16:34:33 1.1
+++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/keys.lisp 2006/12/25 12:37:38 1.2
@@ -2,224 +2,170 @@
(IN-PACKAGE :CLIM-GTKAIRO)
(DEFINE-KEY 0 ((0) THROW-AWAY THROW-AWAY) (T NIL NIL))
-(DEFINE-KEY 65307 (T :ESCAPE NIL))
-(DEFINE-KEY 49 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|1| #\1)
- (T :! #\!))
-(DEFINE-KEY 50 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|2| #\2)
- (T :@ #\@))
-(DEFINE-KEY 51 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|3| #\3)
- (T :|#| #\#))
-(DEFINE-KEY 52 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|4| #\4)
- (T :$ #\$))
-(DEFINE-KEY 53 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|5| #\5)
- (T :% #\%))
-(DEFINE-KEY 54 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|6| #\6)
- (T :DEAD-CIRCUMFLEX NIL))
-(DEFINE-KEY 55 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|7| #\7)
- (T :& #\&))
-(DEFINE-KEY 56 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|8| #\8)
- (T :* #\*))
-(DEFINE-KEY 57 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|9| #\9)
- (T :|(| #\())
-(DEFINE-KEY 48 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|0| #\0)
- (T :|)| #\)))
-(DEFINE-KEY 91 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :[ #\[)
- (T :{ #\{))
-(DEFINE-KEY 93 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :] #\])
- (T :} #\}))
-(DEFINE-KEY 65288 (T :BACKSPACE #\Backspace))
-(DEFINE-KEY 65289 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :TAB #\Tab)
- (T :ISO-LEFT-TAB NIL))
-(DEFINE-KEY 39 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|'| #\')
- (T :|"| #\"))
-(DEFINE-KEY 44 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|,| #\,)
- (T :< #\<))
-(DEFINE-KEY 46 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|.| #\.)
- (T :> #\>))
-(DEFINE-KEY 112 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|p| #\p)
- (T :P #\P))
-(DEFINE-KEY 121 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|y| #\y)
- (T :Y #\Y))
-(DEFINE-KEY 102 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|f| #\f)
- (T :F #\F))
-(DEFINE-KEY 103 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|g| #\g)
- (T :G #\G))
-(DEFINE-KEY 99 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|c| #\c)
- (T :C #\C))
-(DEFINE-KEY 114 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|r| #\r)
- (T :R #\R))
-(DEFINE-KEY 108 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|l| #\l)
- (T :L #\L))
-(DEFINE-KEY 47 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :/ #\/)
- (T :? #\?))
-(DEFINE-KEY 61 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) := #\=)
- (T :+ #\+))
-(DEFINE-KEY 65293 (T :RETURN #\Return))
-(DEFINE-KEY 65509 (T :CAPS-LOCK NIL))
-(DEFINE-KEY 97 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|a| #\a)
- (T :A #\A))
-(DEFINE-KEY 111 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|o| #\o)
- (T :O #\O))
-(DEFINE-KEY 101 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|e| #\e)
- (T :E #\E))
-(DEFINE-KEY 117 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|u| #\u)
- (T :U #\U))
-(DEFINE-KEY 105 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|i| #\i)
- (T :I #\I))
-(DEFINE-KEY 100 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|d| #\d)
- (T :D #\D))
-(DEFINE-KEY 104 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|h| #\h)
- (T :H #\H))
-(DEFINE-KEY 116 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|t| #\t)
- (T :T #\T))
-(DEFINE-KEY 110 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|n| #\n)
- (T :N #\N))
-(DEFINE-KEY 115 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|s| #\s)
- (T :S #\S))
-(DEFINE-KEY 45 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :- #\-)
- (T :_ #\_))
-(DEFINE-KEY 96 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|`| #\`)
- (T :DEAD-TILDE NIL))
-(DEFINE-KEY 65505 (T :SHIFT-LEFT NIL))
-(DEFINE-KEY 65508 (T :CONTROL-RIGHT NIL))
-(DEFINE-KEY 58 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|:| #\:)
- (T :|;| #\;))
-(DEFINE-KEY 113 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|q| #\q)
- (T :Q #\Q))
-(DEFINE-KEY 106 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|j| #\j)
- (T :J #\J))
-(DEFINE-KEY 107 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|k| #\k)
- (T :K #\K))
-(DEFINE-KEY 120 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|x| #\x)
- (T :X #\X))
-(DEFINE-KEY 98 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|b| #\b)
- (T :B #\B))
-(DEFINE-KEY 109 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|m| #\m)
- (T :M #\M))
-(DEFINE-KEY 119 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|w| #\w)
- (T :W #\W))
-(DEFINE-KEY 118 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|v| #\v)
- (T :V #\V))
-(DEFINE-KEY 122 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|z| #\z)
- (T :Z #\Z))
-(DEFINE-KEY 65506 (T :SHIFT-RIGHT NIL))
-(DEFINE-KEY 65450 (T :KP-MULTIPLY NIL))
-(DEFINE-KEY 65511 (T :META-LEFT NIL))
(DEFINE-KEY 32 (T :| | #\ ))
-(DEFINE-KEY 65507 (T :CONTROL-LEFT NIL))
-(DEFINE-KEY 65470 (T :F1 NIL))
-(DEFINE-KEY 65471 (T :F2 NIL))
-(DEFINE-KEY 65472 (T :F3 NIL))
-(DEFINE-KEY 65473 (T :F4 NIL))
-(DEFINE-KEY 65474 (T :F5 NIL))
-(DEFINE-KEY 65475 (T :F6 NIL))
-(DEFINE-KEY 65476 (T :F7 NIL))
-(DEFINE-KEY 65477 (T :F8 NIL))
-(DEFINE-KEY 65478 (T :F9 NIL))
-(DEFINE-KEY 65479 (T :F10 NIL))
-(DEFINE-KEY 65407
- ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :NUM-LOCK NIL)
- (T :POINTER-ENABLE-KEYS NIL))
-(DEFINE-KEY 65300 (T :SCROLL-LOCK NIL))
-(DEFINE-KEY 65429 ((44 40 36 32 12 8 4 0) :KP-HOME NIL) (T :KP-7 NIL))
-(DEFINE-KEY 65431 ((44 40 36 32 12 8 4 0) :KP-UP NIL) (T :KP-8 NIL))
-(DEFINE-KEY 65434 ((44 40 36 32 12 8 4 0) :KP-PRIOR NIL) (T :KP-9 NIL))
-(DEFINE-KEY 65453 (T :KP-SUBTRACT NIL))
-(DEFINE-KEY 65430 ((44 40 36 32 12 8 4 0) :KP-LEFT NIL) (T :KP-4 NIL))
-(DEFINE-KEY 65437 ((44 40 36 32 12 8 4 0) :KP-BEGIN NIL) (T :KP-5 NIL))
-(DEFINE-KEY 65432 ((44 40 36 32 12 8 4 0) :KP-RIGHT NIL) (T :KP-6 NIL))
-(DEFINE-KEY 65451 (T :KP-ADD NIL))
-(DEFINE-KEY 65436 ((44 40 36 32 12 8 4 0) :KP-END NIL) (T :KP-1 NIL))
-(DEFINE-KEY 65433 ((44 40 36 32 12 8 4 0) :KP-DOWN NIL) (T :KP-2 NIL))
-(DEFINE-KEY 65435 ((44 40 36 32 12 8 4 0) :KP-NEXT NIL) (T :KP-3 NIL))
-(DEFINE-KEY 65438 ((44 40 36 32 12 8 4 0) :KP-INSERT NIL) (T :KP-0 NIL))
-(DEFINE-KEY 65439 ((44 40 36 32 12 8 4 0) :KP-DELETE NIL) (T :KP-DECIMAL NIL))
-(DEFINE-KEY 65377 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :PRINT NIL)
- (T :SYS-REQ NIL))
-(DEFINE-KEY 60 ((62 58 54 50 46 42 38 34 30 26 22 18 14 10 6 2) :> #\>)
- (T :< #\<))
-(DEFINE-KEY 65480 (T :F11 NIL))
-(DEFINE-KEY 65312 (T :MULTI-KEY NIL))
-(DEFINE-KEY 65360 (T :HOME NIL))
-(DEFINE-KEY 65362 (T :UP NIL))
-(DEFINE-KEY 65365 (T :PRIOR NIL))
-(DEFINE-KEY 65361 (T :LEFT NIL))
-(DEFINE-KEY 65363 (T :RIGHT NIL))
-(DEFINE-KEY 65367 (T :END NIL))
-(DEFINE-KEY 65364 (T :DOWN NIL))
-(DEFINE-KEY 65366 (T :NEXT NIL))
-(DEFINE-KEY 65379 (T :INSERT NIL))
-(DEFINE-KEY 65535 (T :DELETE #\Rubout))
-(DEFINE-KEY 65421 (T :KP-ENTER NIL))
-(DEFINE-KEY 92 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :|\\| #\\)
- (T :|\|| #\|))
-(DEFINE-KEY 65299 ((60 56 52 48 44 40 36 32 28 24 20 16 12 8 4 0) :PAUSE NIL)
- (T :BREAK NIL))
-(DEFINE-KEY 65455 (T :KP-DIVIDE NIL))
-(DEFINE-KEY 65512 (T :META-RIGHT NIL))
-(DEFINE-KEY 65383 (T :MENU NIL))
-(DEFINE-KEY 268828536 (T :SUN-AUDIO-MUTE NIL))
-(DEFINE-KEY 268828535 (T :SUN-AUDIO-LOWER-VOLUME NIL))
-(DEFINE-KEY 268828537 (T :SUN-AUDIO-RAISE-VOLUME NIL))
(DEFINE-KEY 33 (T :! #\!))
-(DEFINE-KEY 64 (T :@ #\@))
+(DEFINE-KEY 34 (T :|"| #\"))
(DEFINE-KEY 35 (T :|#| #\#))
(DEFINE-KEY 36 (T :$ #\$))
(DEFINE-KEY 37 (T :% #\%))
-(DEFINE-KEY 65106 (T :DEAD-CIRCUMFLEX NIL))
(DEFINE-KEY 38 (T :& #\&))
-(DEFINE-KEY 42 (T :* #\*))
+(DEFINE-KEY 39 (T :|'| #\'))
(DEFINE-KEY 40 (T :|(| #\())
(DEFINE-KEY 41 (T :|)| #\)))
-(DEFINE-KEY 123 (T :{ #\{))
-(DEFINE-KEY 125 (T :} #\}))
-(DEFINE-KEY 65056 (T :ISO-LEFT-TAB NIL))
-(DEFINE-KEY 34 (T :|"| #\"))
+(DEFINE-KEY 42 (T :* #\*))
+(DEFINE-KEY 43 (T :+ #\+))
+(DEFINE-KEY 44 (T :|,| #\,))
+(DEFINE-KEY 45 (T :- #\-))
+(DEFINE-KEY 46 (T :|.| #\.))
+(DEFINE-KEY 47 (T :/ #\/))
+(DEFINE-KEY 48 (T :|0| #\0))
+(DEFINE-KEY 49 (T :|1| #\1))
+(DEFINE-KEY 50 (T :|2| #\2))
+(DEFINE-KEY 51 (T :|3| #\3))
+(DEFINE-KEY 52 (T :|4| #\4))
+(DEFINE-KEY 53 (T :|5| #\5))
+(DEFINE-KEY 54 (T :|6| #\6))
+(DEFINE-KEY 55 (T :|7| #\7))
+(DEFINE-KEY 56 (T :|8| #\8))
+(DEFINE-KEY 57 (T :|9| #\9))
+(DEFINE-KEY 58 (T :|:| #\:))
+(DEFINE-KEY 59 (T :|;| #\;))
+(DEFINE-KEY 60 (T :< #\<))
+(DEFINE-KEY 61 (T := #\=))
(DEFINE-KEY 62 (T :> #\>))
-(DEFINE-KEY 80 (T :P #\P))
-(DEFINE-KEY 89 (T :Y #\Y))
-(DEFINE-KEY 70 (T :F #\F))
-(DEFINE-KEY 71 (T :G #\G))
-(DEFINE-KEY 67 (T :C #\C))
-(DEFINE-KEY 82 (T :R #\R))
-(DEFINE-KEY 76 (T :L #\L))
(DEFINE-KEY 63 (T :? #\?))
-(DEFINE-KEY 43 (T :+ #\+))
+(DEFINE-KEY 64 (T :@ #\@))
(DEFINE-KEY 65 (T :A #\A))
-(DEFINE-KEY 79 (T :O #\O))
-(DEFINE-KEY 69 (T :E #\E))
-(DEFINE-KEY 85 (T :U #\U))
-(DEFINE-KEY 73 (T :I #\I))
+(DEFINE-KEY 66 (T :B #\B))
+(DEFINE-KEY 67 (T :C #\C))
(DEFINE-KEY 68 (T :D #\D))
+(DEFINE-KEY 69 (T :E #\E))
+(DEFINE-KEY 70 (T :F #\F))
+(DEFINE-KEY 71 (T :G #\G))
(DEFINE-KEY 72 (T :H #\H))
-(DEFINE-KEY 84 (T :T #\T))
-(DEFINE-KEY 78 (T :N #\N))
-(DEFINE-KEY 83 (T :S #\S))
-(DEFINE-KEY 95 (T :_ #\_))
-(DEFINE-KEY 65107 (T :DEAD-TILDE NIL))
-(DEFINE-KEY 59 (T :|;| #\;))
-(DEFINE-KEY 81 (T :Q #\Q))
+(DEFINE-KEY 73 (T :I #\I))
(DEFINE-KEY 74 (T :J #\J))
(DEFINE-KEY 75 (T :K #\K))
-(DEFINE-KEY 88 (T :X #\X))
-(DEFINE-KEY 66 (T :B #\B))
+(DEFINE-KEY 76 (T :L #\L))
(DEFINE-KEY 77 (T :M #\M))
-(DEFINE-KEY 87 (T :W #\W))
+(DEFINE-KEY 78 (T :N #\N))
+(DEFINE-KEY 79 (T :O #\O))
+(DEFINE-KEY 80 (T :P #\P))
+(DEFINE-KEY 81 (T :Q #\Q))
+(DEFINE-KEY 82 (T :R #\R))
+(DEFINE-KEY 83 (T :S #\S))
+(DEFINE-KEY 84 (T :T #\T))
+(DEFINE-KEY 85 (T :U #\U))
(DEFINE-KEY 86 (T :V #\V))
+(DEFINE-KEY 87 (T :W #\W))
+(DEFINE-KEY 88 (T :X #\X))
+(DEFINE-KEY 89 (T :Y #\Y))
(DEFINE-KEY 90 (T :Z #\Z))
+(DEFINE-KEY 91 (T :[ #\[))
+(DEFINE-KEY 92 (T :|\\| #\\))
+(DEFINE-KEY 93 (T :] #\]))
+(DEFINE-KEY 95 (T :_ #\_))
+(DEFINE-KEY 96 (T :|`| #\`))
+(DEFINE-KEY 97 (T :|a| #\a))
+(DEFINE-KEY 98 (T :|b| #\b))
+(DEFINE-KEY 99 (T :|c| #\c))
+(DEFINE-KEY 100 (T :|d| #\d))
+(DEFINE-KEY 101 (T :|e| #\e))
+(DEFINE-KEY 102 (T :|f| #\f))
+(DEFINE-KEY 103 (T :|g| #\g))
+(DEFINE-KEY 104 (T :|h| #\h))
+(DEFINE-KEY 105 (T :|i| #\i))
+(DEFINE-KEY 106 (T :|j| #\j))
+(DEFINE-KEY 107 (T :|k| #\k))
+(DEFINE-KEY 108 (T :|l| #\l))
+(DEFINE-KEY 109 (T :|m| #\m))
+(DEFINE-KEY 110 (T :|n| #\n))
+(DEFINE-KEY 111 (T :|o| #\o))
+(DEFINE-KEY 112 (T :|p| #\p))
+(DEFINE-KEY 113 (T :|q| #\q))
+(DEFINE-KEY 114 (T :|r| #\r))
+(DEFINE-KEY 115 (T :|s| #\s))
+(DEFINE-KEY 116 (T :|t| #\t))
+(DEFINE-KEY 117 (T :|u| #\u))
+(DEFINE-KEY 118 (T :|v| #\v))
+(DEFINE-KEY 119 (T :|w| #\w))
+(DEFINE-KEY 120 (T :|x| #\x))
+(DEFINE-KEY 121 (T :|y| #\y))
+(DEFINE-KEY 122 (T :|z| #\z))
+(DEFINE-KEY 123 (T :{ #\{))
+(DEFINE-KEY 124 (T :|\|| #\|))
+(DEFINE-KEY 125 (T :} #\}))
+(DEFINE-KEY 65056 (T :ISO-LEFT-TAB NIL))
+(DEFINE-KEY 65106 (T :DEAD-CIRCUMFLEX NIL))
+(DEFINE-KEY 65107 (T :DEAD-TILDE NIL))
(DEFINE-KEY 65273 (T :POINTER-ENABLE-KEYS NIL))
-(DEFINE-KEY 65463 ((60 56 52 48 28 24 20 16) :KP-HOME NIL) (T :KP-7 NIL))
-(DEFINE-KEY 65464 ((60 56 52 48 28 24 20 16) :KP-UP NIL) (T :KP-8 NIL))
-(DEFINE-KEY 65465 ((60 56 52 48 28 24 20 16) :KP-PRIOR NIL) (T :KP-9 NIL))
-(DEFINE-KEY 65460 ((60 56 52 48 28 24 20 16) :KP-LEFT NIL) (T :KP-4 NIL))
-(DEFINE-KEY 65461 ((60 56 52 48 28 24 20 16) :KP-BEGIN NIL) (T :KP-5 NIL))
-(DEFINE-KEY 65462 ((60 56 52 48 28 24 20 16) :KP-RIGHT NIL) (T :KP-6 NIL))
-(DEFINE-KEY 65457 ((60 56 52 48 28 24 20 16) :KP-END NIL) (T :KP-1 NIL))
-(DEFINE-KEY 65458 ((60 56 52 48 28 24 20 16) :KP-DOWN NIL) (T :KP-2 NIL))
-(DEFINE-KEY 65459 ((60 56 52 48 28 24 20 16) :KP-NEXT NIL) (T :KP-3 NIL))
-(DEFINE-KEY 65456 ((60 56 52 48 28 24 20 16) :KP-INSERT NIL) (T :KP-0 NIL))
-(DEFINE-KEY 65454 ((60 56 52 48 28 24 20 16) :KP-DELETE NIL)
- (T :KP-DECIMAL NIL))
+(DEFINE-KEY 65288 (T :BACKSPACE #\Backspace))
+(DEFINE-KEY 65289 (T :TAB #\Tab))
+(DEFINE-KEY 65293 (T :RETURN #\Return))
+(DEFINE-KEY 65299 ((9 1) :BREAK NIL) (T :PAUSE NIL))
+(DEFINE-KEY 65300 (T :SCROLL-LOCK NIL))
(DEFINE-KEY 65301 (T :SYS-REQ NIL))
-(DEFINE-KEY 124 (T :|\|| #\|))
-(DEFINE-KEY 65387 ((60 52 44 36 28 20 12 4) :PAUSE NIL) (T :BREAK NIL))
\ No newline at end of file
+(DEFINE-KEY 65307 (T :ESCAPE NIL))
+(DEFINE-KEY 65312 (T :MULTI-KEY NIL))
+(DEFINE-KEY 65360 (T :HOME NIL))
+(DEFINE-KEY 65361 (T :LEFT NIL))
+(DEFINE-KEY 65362 (T :UP NIL))
+(DEFINE-KEY 65363 (T :RIGHT NIL))
+(DEFINE-KEY 65364 (T :DOWN NIL))
+(DEFINE-KEY 65365 (T :PRIOR NIL))
+(DEFINE-KEY 65366 (T :NEXT NIL))
+(DEFINE-KEY 65367 (T :END NIL))
+(DEFINE-KEY 65377 ((12 4 8 0) :PRINT NIL) (T :SYS-REQ NIL))
+(DEFINE-KEY 65379 (T :INSERT NIL))
+(DEFINE-KEY 65383 (T :MENU NIL))
+(DEFINE-KEY 65387 ((12 4) :PAUSE NIL) (T :BREAK NIL))
+(DEFINE-KEY 65407 (T :NUM-LOCK NIL))
+(DEFINE-KEY 65421 (T :KP-ENTER NIL))
+(DEFINE-KEY 65429 (T :KP-HOME NIL))
+(DEFINE-KEY 65430 (T :KP-LEFT NIL))
+(DEFINE-KEY 65431 (T :KP-UP NIL))
+(DEFINE-KEY 65432 (T :KP-RIGHT NIL))
+(DEFINE-KEY 65433 (T :KP-DOWN NIL))
+(DEFINE-KEY 65434 (T :KP-PRIOR NIL))
+(DEFINE-KEY 65435 (T :KP-NEXT NIL))
+(DEFINE-KEY 65436 (T :KP-END NIL))
+(DEFINE-KEY 65437 (T :KP-BEGIN NIL))
+(DEFINE-KEY 65438 (T :KP-INSERT NIL))
+(DEFINE-KEY 65439 (T :KP-DELETE NIL))
+(DEFINE-KEY 65450 (T :KP-MULTIPLY NIL))
+(DEFINE-KEY 65451 (T :KP-ADD NIL))
+(DEFINE-KEY 65453 (T :KP-SUBTRACT NIL))
+(DEFINE-KEY 65454 (T :KP-DECIMAL NIL))
+(DEFINE-KEY 65455 (T :KP-DIVIDE NIL))
+(DEFINE-KEY 65456 (T :KP-0 NIL))
+(DEFINE-KEY 65457 (T :KP-1 NIL))
+(DEFINE-KEY 65458 (T :KP-2 NIL))
+(DEFINE-KEY 65459 (T :KP-3 NIL))
+(DEFINE-KEY 65460 (T :KP-4 NIL))
+(DEFINE-KEY 65461 (T :KP-5 NIL))
+(DEFINE-KEY 65462 (T :KP-6 NIL))
+(DEFINE-KEY 65463 (T :KP-7 NIL))
+(DEFINE-KEY 65464 (T :KP-8 NIL))
+(DEFINE-KEY 65465 (T :KP-9 NIL))
+(DEFINE-KEY 65470 (T :F1 NIL))
+(DEFINE-KEY 65471 (T :F2 NIL))
+(DEFINE-KEY 65472 (T :F3 NIL))
+(DEFINE-KEY 65473 (T :F4 NIL))
+(DEFINE-KEY 65474 (T :F5 NIL))
+(DEFINE-KEY 65475 (T :F6 NIL))
+(DEFINE-KEY 65476 (T :F7 NIL))
+(DEFINE-KEY 65477 (T :F8 NIL))
+(DEFINE-KEY 65478 (T :F9 NIL))
+(DEFINE-KEY 65479 (T :F10 NIL))
+(DEFINE-KEY 65480 (T :F11 NIL))
+(DEFINE-KEY 65505 (T :SHIFT-LEFT NIL))
+(DEFINE-KEY 65506 (T :SHIFT-RIGHT NIL))
+(DEFINE-KEY 65507 (T :CONTROL-LEFT NIL))
+(DEFINE-KEY 65508 (T :CONTROL-RIGHT NIL))
+(DEFINE-KEY 65509 (T :CAPS-LOCK NIL))
+(DEFINE-KEY 65511 (T :META-LEFT NIL))
+(DEFINE-KEY 65512 (T :META-RIGHT NIL))
+(DEFINE-KEY 65535 (T :DELETE #\Rubout))
+(DEFINE-KEY 268828535 (T :SUN-AUDIO-LOWER-VOLUME NIL))
+(DEFINE-KEY 268828536 (T :SUN-AUDIO-MUTE NIL))
+(DEFINE-KEY 268828537 (T :SUN-AUDIO-RAISE-VOLUME NIL))
\ No newline at end of file
More information about the Mcclim-cvs
mailing list