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

Diff of /mcclim/frames.lisp

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

revision 1.28 by brian, Sun Apr 21 12:41:14 2002 UTC revision 1.29 by moore, Sun Apr 21 18:46:26 2002 UTC
# Line 104  Line 104 
104                            :initarg :intercept-event-queue                            :initarg :intercept-event-queue
105                            :accessor frame-event-queue)))                            :accessor frame-event-queue)))
106    
 ;<<<<<<< frames.lisp  
 ;(defmethod frame-intercept-events ((frame application-frame))  
 ;  (without-scheduling  
 ;    (slot-value frame 'intercept-events)))  
 ;  
 ;(defmethod (setf frame-intercept-events) (newval (frame application-frame))  
 ;  (without-scheduling  
 ;    (setf (slot-value frame 'intercept-events) newval)))  
 ;  
 ;;;; XXX Should this check that the frame isn't intercepting events, so  
 ;;;; it will terminate?  
 ;(defmethod cleanup-frame-events ((frame application-frame))  
 ;  (loop with queue = (frame-intercept-event-queue frame)  
 ;       for event = (event-queue-read-no-hang queue)  
 ;       while event  
 ;       ;do nil #+ignore (dispatch-event frame event)  
 ;        ))  
 ;  
 ;=======  
 ;>>>>>>> 1.27  
107  (defun application-frame-p (x)  (defun application-frame-p (x)
108    (typep x 'application-frame))    (typep x 'application-frame))
109    

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

  ViewVC Help
Powered by ViewVC 1.1.5