anchor.diff:  
   (defun submit-mouse (buttons x-motion y-motion)
     "Submit a mouse event into the input system."
  -  (mezzano.supervisor:fifo-push (make-instance 'mouse-event
  -                                               :button-state buttons
  -                                               :x-motion x-motion
  -                                               :y-motion y-motion)
  -                                *event-queue*))
  +  (submit-compositor-event (make-instance 'mouse-event
  +                                          :button-state buttons
  +                                          :x-motion x-motion
  +                                          :y-motion y-motion)))
   
   (defun submit-mouse-absolute (x-position y-position)
     "Submit a mouse event into the input system."
  -  (mezzano.supervisor:fifo-push (make-instance 'mouse-event
  -                                               :x-position x-position
  -                                               :y-position y-position)
  -                                *event-queue*))
  +  (submit-compositor-event (make-instance 'mouse-event
  +                                          :x-position x-position
  +                                          :y-position y-position)))
   
   (defun global-mouse-state ()
     "Fetch the current mouse state."
  
positive.code: 
  (defun submit-key (scancode releasep)
    "Submit a key event into the input system."
    (mezzano.supervisor:fifo-push (make-instance 'key-event
                                                 :scancode scancode
                                                 :releasep releasep)
                                  *event-queue*))
  
  ;;;; Mouse events
  
  
negative.code:      (when (or (not (eql *main-screen* (mezzano.supervisor:current-framebuffer)))
                 (and (not (zerop *clip-rect-width*))
                      (not (zerop *clip-rect-height*))))
         (submit-compositor-event (make-instance 'redisplay-time-event)))))
  
  (when (not *compositor*)
    (setf *compositor* (mezzano.supervisor:make-thread 'compositor-thread
  