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

Diff of /mcclim/frames.lisp

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

revision 1.40 by adejneka, Sun Jun 30 08:19:00 2002 UTC revision 1.41 by adejneka, Sun Jul 7 06:20:52 2002 UTC
# Line 624  FRAME-EXIT condition.")) Line 624  FRAME-EXIT condition."))
624                                            x y                                            x y
625                                            :frame frame :event event))                                            :frame frame :event event))
626    
627  (defmethod frame-input-context-button-press-handler  (defmethod frame-input-context-button-press-handler
628      ((frame standard-application-frame)      ((frame standard-application-frame)
629       (stream output-recording-stream)       (stream output-recording-stream)
630       button-press-event)       button-press-event)
# Line 692  FRAME-EXIT condition.")) Line 692  FRAME-EXIT condition."))
692  (defun simple-event-loop ()  (defun simple-event-loop ()
693    "An simple event loop for applications that want all events to be handled by    "An simple event loop for applications that want all events to be handled by
694   handle-event methods"   handle-event methods"
695    (if *multiprocessing-p*    (let ((queue (frame-event-queue *application-frame*)))
696        (let ((queue (frame-event-queue *application-frame*)))      (loop for event = (event-queue-read queue)
697          (loop for event = (event-queue-read queue)         ;; EVENT-QUEUE-READ in single-process mode calls PROCESS-NEXT-EVENT itself.
698                do (handle-event (event-sheet event) event)))         do (handle-event (event-sheet event) event))))
       (let ((port (port *application-frame*)))  
         (loop  
          (process-next-event port)))))  

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

  ViewVC Help
Powered by ViewVC 1.1.5