[mcclim-cvs] CVS mcclim/Backends/gtkairo

[dlichteblau]

Update of /project/mcclim/cvsroot/mcclim/Backends/gtkairo
In directory clnet:/tmp/cvs-serv28434

Modified Files:
	keys.lisp 
Log Message:
german keyboard layout support (umlauts and eszett in particular)


--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/keys.lisp	2006/12/25 12:37:38	1.2
+++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/keys.lisp	2007/07/15 12:00:08	1.3
@@ -64,6 +64,7 @@
 (DEFINE-KEY 91 (T :[ #\[)) 
 (DEFINE-KEY 92 (T :|\\| #\\)) 
 (DEFINE-KEY 93 (T :] #\])) 
+(DEFINE-KEY 94 (T :^ #\^)) 
 (DEFINE-KEY 95 (T :_ #\_)) 
 (DEFINE-KEY 96 (T :|`| #\`)) 
 (DEFINE-KEY 97 (T :|a| #\a)) 
@@ -95,16 +96,27 @@
 (DEFINE-KEY 123 (T :{ #\{)) 
 (DEFINE-KEY 124 (T :|\|| #\|)) 
 (DEFINE-KEY 125 (T :} #\})) 
+(DEFINE-KEY 167 (T :SECTION NIL)) 
+(DEFINE-KEY 176 (T :DEGREE NIL)) 
+(DEFINE-KEY 196 (T :A-DIAERESIS #.(code-char 196))) 
+(DEFINE-KEY 214 (T :O-DIAERESIS #.(code-char 214))) 
+(DEFINE-KEY 220 (T :U-DIAERESIS #.(code-char 220))) 
+(DEFINE-KEY 223 (T :SSHARP #.(code-char 223))) 
+(DEFINE-KEY 228 (T :|a-DIAERESIS| #.(code-char 228))) 
+(DEFINE-KEY 246 (T :|o-DIAERESIS| #.(code-char 246))) 
+(DEFINE-KEY 252 (T :|u-DIAERESIS| #.(code-char 252))) 
 (DEFINE-KEY 65056 (T :ISO-LEFT-TAB NIL)) 
 (DEFINE-KEY 65106 (T :DEAD-CIRCUMFLEX NIL)) 
 (DEFINE-KEY 65107 (T :DEAD-TILDE NIL)) 
+(DEFINE-KEY 65237 ((12) :BACKSPACE #\Backspace) (T :TERMINATE-SERVER NIL)) 
 (DEFINE-KEY 65273 (T :POINTER-ENABLE-KEYS NIL)) 
 (DEFINE-KEY 65288 (T :BACKSPACE #\Backspace)) 
+(DEFINE-KEY 65288 ((4 8 0) :BACKSPACE #\Backspace) (T :TERMINATE-SERVER NIL)) 
 (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 65301 ((12 8) :PRINT NIL) (T :SYS-REQ NIL)) 
 (DEFINE-KEY 65307 (T :ESCAPE NIL)) 
 (DEFINE-KEY 65312 (T :MULTI-KEY NIL)) 
 (DEFINE-KEY 65360 (T :HOME NIL)) 
@@ -116,9 +128,11 @@
 (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 65377 ((4 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 65406 (T :MODE-SWITCH NIL)) 
 (DEFINE-KEY 65407 (T :NUM-LOCK NIL)) 
 (DEFINE-KEY 65421 (T :KP-ENTER NIL)) 
 (DEFINE-KEY 65429 (T :KP-HOME NIL)) 
@@ -137,6 +151,11 @@
 (DEFINE-KEY 65453 (T :KP-SUBTRACT NIL)) 
 (DEFINE-KEY 65454 (T :KP-DECIMAL NIL)) 
 (DEFINE-KEY 65455 (T :KP-DIVIDE NIL)) 
+(DEFINE-KEY 65450 ((4 8 0) :KP-MULTIPLY NIL) (T NIL NIL)) 
+(DEFINE-KEY 65451 ((4 8 0) :KP-ADD NIL) (T NIL NIL)) 
+(DEFINE-KEY 65452 (T :KP-SEPARATOR NIL)) 
+(DEFINE-KEY 65453 ((4 8 0) :KP-SUBTRACT NIL) (T NIL NIL)) 
+(DEFINE-KEY 65455 ((4 8 0) :KP-DIVIDE NIL) (T NIL NIL)) 
 (DEFINE-KEY 65456 (T :KP-0 NIL)) 
 (DEFINE-KEY 65457 (T :KP-1 NIL)) 
 (DEFINE-KEY 65458 (T :KP-2 NIL)) 
@@ -158,6 +177,18 @@
 (DEFINE-KEY 65478 (T :F9 NIL)) 
 (DEFINE-KEY 65479 (T :F10 NIL)) 
 (DEFINE-KEY 65480 (T :F11 NIL)) 
+(DEFINE-KEY 65470 ((4 8 0) :F1 NIL) (T NIL NIL)) 
+(DEFINE-KEY 65471 ((4 8 0) :F2 NIL) (T NIL NIL)) 
+(DEFINE-KEY 65472 ((4 8 0) :F3 NIL) (T NIL NIL)) 
+(DEFINE-KEY 65473 ((4 8 0) :F4 NIL) (T NIL NIL)) 
+(DEFINE-KEY 65474 ((4 8 0) :F5 NIL) (T NIL NIL)) 
+(DEFINE-KEY 65475 ((4 8 0) :F6 NIL) (T NIL NIL)) 
+(DEFINE-KEY 65476 ((4 8 0) :F7 NIL) (T NIL NIL)) 
+(DEFINE-KEY 65477 ((4 8 0) :F8 NIL) (T NIL NIL)) 
+(DEFINE-KEY 65478 ((4 8 0) :F9 NIL) (T NIL NIL)) 
+(DEFINE-KEY 65479 ((4 8 0) :F10 NIL) (T NIL NIL)) 
+(DEFINE-KEY 65480 ((4 8 0) :F11 NIL) (T NIL NIL)) 
+(DEFINE-KEY 65481 ((4 8 0) :F12 NIL) (T NIL NIL)) 
 (DEFINE-KEY 65505 (T :SHIFT-LEFT NIL)) 
 (DEFINE-KEY 65506 (T :SHIFT-RIGHT NIL)) 
 (DEFINE-KEY 65507 (T :CONTROL-LEFT NIL)) 
@@ -165,7 +196,25 @@
 (DEFINE-KEY 65509 (T :CAPS-LOCK NIL)) 
 (DEFINE-KEY 65511 (T :META-LEFT NIL)) 
 (DEFINE-KEY 65512 (T :META-RIGHT NIL)) 
+(DEFINE-KEY 65513 (T :ALT-LEFT NIL)) 
+(DEFINE-KEY 65515 (T :SUPER-LEFT 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
+(DEFINE-KEY 268828537 (T :SUN-AUDIO-RAISE-VOLUME NIL)) 
+(DEFINE-KEY 269024769 ((12) :F1 NIL) (T NIL NIL)) 
+(DEFINE-KEY 269024770 ((12) :F2 NIL) (T NIL NIL)) 
+(DEFINE-KEY 269024771 ((12) :F3 NIL) (T NIL NIL)) 
+(DEFINE-KEY 269024772 ((12) :F4 NIL) (T NIL NIL)) 
+(DEFINE-KEY 269024773 ((12) :F5 NIL) (T NIL NIL)) 
+(DEFINE-KEY 269024774 ((12) :F6 NIL) (T NIL NIL)) 
+(DEFINE-KEY 269024775 ((12) :F7 NIL) (T NIL NIL)) 
+(DEFINE-KEY 269024776 ((12) :F8 NIL) (T NIL NIL)) 
+(DEFINE-KEY 269024777 ((12) :F9 NIL) (T NIL NIL)) 
+(DEFINE-KEY 269024778 ((12) :F10 NIL) (T NIL NIL)) 
+(DEFINE-KEY 269024779 ((12) :F11 NIL) (T NIL NIL)) 
+(DEFINE-KEY 269024780 ((12) :F12 NIL) (T NIL NIL)) 
+(DEFINE-KEY 269024800 ((12) :KP-DIVIDE NIL) (T NIL NIL)) 
+(DEFINE-KEY 269024801 ((12) :KP-MULTIPLY NIL) (T NIL NIL)) 
+(DEFINE-KEY 269024802 ((12) :KP-ADD NIL) (T NIL NIL)) 
+(DEFINE-KEY 269024803 ((12) :KP-SUBTRACT NIL) (T NIL NIL))