anchor.diff:                                 input-context)
     (frame-update-pointer-documentation frame input-context stream event))
   
  -(defun simple-event-loop ()
  +(defun simple-event-loop (&optional (frame *application-frame*))
     "An simple event loop for applications that want all events to be handled by
    handle-event methods"
  -  (let ((queue (frame-event-queue *application-frame*)))
  +  (let ((queue (frame-event-queue frame)))
       (loop for event = (event-queue-read queue)
          ;; EVENT-QUEUE-READ in single-process mode calls PROCESS-NEXT-EVENT itself.
          do (handle-event (event-sheet event) event))))
  
positive.code:   ;; If we do things as the spec says, command accelerators will
    ;; appear to not work, confusing new users.
    #+NIL (read-command (frame-command-table frame) :use-keystrokes nil :stream stream)
    (read-command (frame-command-table frame) :use-keystrokes t :stream stream))
  
  (define-event-class execute-command-event (window-manager-event)
    ((sheet :initarg :sheet :reader event-sheet)
  
negative.code: 		 (beep))))))))
  
  (defmethod read-frame-command :around ((frame application-frame)
  				       &key (stream *standard-input*))
    (with-input-context ('menu-item)
        (object)
        (call-next-method)
  