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

Diff of /mcclim/input.lisp

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

revision 1.5 by gilbert, Mon Feb 11 21:34:23 2002 UTC revision 1.6 by gilbert, Sat Feb 16 02:48:22 2002 UTC
# Line 95  Line 95 
95        (queue-event sheet event)        (queue-event sheet event)
96      (handle-event sheet event)))      (handle-event sheet event)))
97    
98    (defmethod dispatch-event ((sheet standard-sheet-input-mixin) (event device-event))
99      (queue-event sheet event))
100    
101    (defmethod dispatch-event ((sheet standard-sheet-input-mixin) event)
102      (handle-event sheet event))
103    
104  (defmethod queue-event ((sheet standard-sheet-input-mixin) event)  (defmethod queue-event ((sheet standard-sheet-input-mixin) event)
105    (with-slots (queue) sheet    (with-slots (queue) sheet
106      (event-queue-append queue event)))      (event-queue-append queue event)))

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.5