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

Diff of /mcclim/input.lisp

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

revision 1.7 by mikemac, Sat Feb 23 23:25:59 2002 UTC revision 1.8 by moore, Tue Mar 12 21:05:06 2002 UTC
# Line 85  Line 85 
85  (defmethod event-queue-listen ((eq standard-event-queue))  (defmethod event-queue-listen ((eq standard-event-queue))
86    (not (null (event-queue-head eq))))    (not (null (event-queue-head eq))))
87    
88    (defmethod event-queue-listen-or-wait ((eq standard-event-queue) &key timeout)
89      (or (not (null (event-queue-peek eq)))
90          (flet ((pred ()
91                   (not (null (event-queue-head eq)))))
92            (if timeout
93                (process-wait-with-timeout "Listening for event" timeout #'pred)
94                (process-wait "Listening for event" #'pred)))))
95    
96    
97  ;; STANDARD-SHEET-INPUT-MIXIN  ;; STANDARD-SHEET-INPUT-MIXIN
98    
99  (defclass standard-sheet-input-mixin ()  (defclass standard-sheet-input-mixin ()

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

  ViewVC Help
Powered by ViewVC 1.1.5