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

Diff of /mcclim/ports.lisp

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

revision 1.8 by cvs, Mon Dec 4 14:59:05 2000 UTC revision 1.9 by cvs, Mon Dec 11 09:04:50 2000 UTC
# Line 124  returns a list in CLIM X11 format (:x11 Line 124  returns a list in CLIM X11 format (:x11
124     ((typep event 'keyboard-event)     ((typep event 'keyboard-event)
125      (dispatch-event (or (port-keyboard-input-focus port)      (dispatch-event (or (port-keyboard-input-focus port)
126                          (event-sheet event)) event))                          (event-sheet event)) event))
    ((typep event 'window-unmap-event)  
     (port-destroy-mirror port (sheet-mirror (event-sheet event))))  
    ((typep event 'window-destroy-event)  
     (port-unregister-mirror port  
                             (event-sheet event)  
                             (sheet-mirror (event-sheet event))))  
127     ((typep event 'window-event)     ((typep event 'window-event)
128  ;    (dispatch-event (window-event-mirrored-sheet event) event))  ;    (dispatch-event (window-event-mirrored-sheet event) event))
129      (dispatch-event (event-sheet event) event))      (dispatch-event (event-sheet event) event))

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.5