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.))) + ,@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