/[mcclim]/mcclim/ports.lisp
ViewVC logotype

Diff of /mcclim/ports.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.34 by adejneka, Thu Jul 4 06:57:43 2002 UTC revision 1.35 by moore, Thu Aug 8 07:44:18 2002 UTC
# Line 178  Line 178 
178  (defmethod distribute-event ((port basic-port) event)  (defmethod distribute-event ((port basic-port) event)
179    (cond    (cond
180     ((typep event 'keyboard-event)     ((typep event 'keyboard-event)
181      (when (port-keyboard-input-focus port)      (dispatch-event (or (port-keyboard-input-focus port) (event-sheet event))
182        (setf (slot-value event 'sheet) (port-keyboard-input-focus port)))                      event))
     (dispatch-event (event-sheet event) event))  
183     ((typep event 'window-event)     ((typep event 'window-event)
184  ;   (dispatch-event (window-event-mirrored-sheet event) event)  ;   (dispatch-event (window-event-mirrored-sheet event) event)
185      (dispatch-event (event-sheet event) event))      (dispatch-event (event-sheet event) event))

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

  ViewVC Help
Powered by ViewVC 1.1.5