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

Diff of /mcclim/ports.lisp

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

revision 1.7 by cvs, Tue Nov 28 15:39:13 2000 UTC revision 1.8 by cvs, Mon Dec 4 14:59:05 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))
127       ((typep event 'window-unmap-event)
128        (port-destroy-mirror port (sheet-mirror (event-sheet event))))
129     ((typep event 'window-destroy-event)     ((typep event 'window-destroy-event)
130      (port-unregister-mirror port      (port-unregister-mirror port
131                              (event-sheet event)                              (event-sheet event)

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

  ViewVC Help
Powered by ViewVC 1.1.5