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

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)