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

[junrue at common-lisp.net]

Author: junrue
Date: Wed May  3 18:01:17 2006
New Revision: 116

Modified:
   trunk/src/uitoolkit/widgets/event.lisp
Log:
hopefully this is the last time I have to fiddle with key event processing

Modified: trunk/src/uitoolkit/widgets/event.lisp
==============================================================================
--- trunk/src/uitoolkit/widgets/event.lisp	(original)
+++ trunk/src/uitoolkit/widgets/event.lisp	Wed May  3 18:01:17 2006
@@ -215,7 +215,7 @@
          (ch (gfs::map-virtual-key wparam-lo 2))
          (w (get-widget tc hwnd)))
     (setf (virtual-key tc) wparam-lo)
-    (when w
+    (when (and w (zerop ch))
       (event-key-down (dispatcher w) w (event-time tc) wparam-lo (code-char ch))))
   0)