[mcclim-cvs] CVS mcclim/Backends/gtkairo

[dlichteblau]

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

Modified Files:
	event.lisp 
Log Message:

	* event.lisp (gdkmodifiertype->modifier-state): Uncomment the
	mod2 -> super-key mapping, it has been reported to be incorrect.
	(key-handler): Map symbol :TAB to character #\tab.


--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/event.lisp	2006/11/25 21:14:53	1.14
+++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/event.lisp	2006/12/03 19:17:26	1.15
@@ -169,7 +169,7 @@
    (if (logtest GDK_SHIFT_MASK state) +shift-key+ 0)
    (if (logtest GDK_CONTROL_MASK state) +control-key+ 0)
    (if (logtest GDK_MOD1_MASK state) +meta-key+ 0)
-   (if (logtest GDK_MOD2_MASK state) +super-key+ 0)
+   ;; (if (logtest GDK_MOD2_MASK state) +super-key+ 0)
    (if (logtest GDK_MOD3_MASK state) +hyper-key+ 0)
 ;;;   (if (logtest GDK_MOD4_MASK state) ??? 0)
 ;;;   (if (logtest GDK_MOD5_MASK state) ??? 0)
@@ -224,6 +224,8 @@
 	    (cond
 	      ((eq sym :backspace)
 		(setf char #\backspace))
+	      ((eq sym :tab)
+		(setf char #\tab))
 	      ((null char))
 	      ((eql char #\return))
 	      ((eql char #\escape)