[graphic-forms-cvs] r107 - trunk/src/uitoolkit/widgets

[junrue at common-lisp.net]

Author: junrue
Date: Tue Apr 25 23:20:11 2006
New Revision: 107

Modified:
   trunk/src/uitoolkit/widgets/event.lisp
Log:
key event processing bug fix

Modified: trunk/src/uitoolkit/widgets/event.lisp
==============================================================================
--- trunk/src/uitoolkit/widgets/event.lisp	(original)
+++ trunk/src/uitoolkit/widgets/event.lisp	Tue Apr 25 23:20:11 2006
@@ -215,19 +215,18 @@
          (ch (gfs::map-virtual-key wparam-lo 2))
          (w (get-widget tc hwnd)))
     (setf (virtual-key tc) wparam-lo)
-    (when (and w (= ch 0))
+    (when w
       (event-key-down (dispatcher w) w (event-time tc) wparam-lo (code-char ch))))
   0)
 
 (defmethod process-message (hwnd (msg (eql gfs::+wm-keyup+)) wparam lparam)
   (declare (ignore lparam))
   (let ((tc (thread-context)))
-    (unless (zerop (virtual-key tc))
-      (let* ((wparam-lo (lo-word wparam))
-             (ch (gfs::map-virtual-key wparam-lo 2))
-             (w (get-widget tc hwnd)))
-        (when w
-          (event-key-up (dispatcher w) w (event-time tc) wparam-lo (code-char ch)))))
+    (let* ((wparam-lo (lo-word wparam))
+           (ch (gfs::map-virtual-key wparam-lo 2))
+           (w (get-widget tc hwnd)))
+      (when w
+        (event-key-up (dispatcher w) w (event-time tc) wparam-lo (code-char ch))))
     (setf (virtual-key tc) 0))
   0)