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)