anchor.diff:                   ((and (member :meta *keyboard-modifier-state*)
                          (eql translated #\F1))
                     (when (key-releasep event)
  -                    ;; Redraw the whole screen
  -                    (setf *clip-rect-width* (mezzano.supervisor:framebuffer-width *main-screen*)
  -                          *clip-rect-height* (mezzano.supervisor:framebuffer-height *main-screen*)
  -                          *clip-rect-x* 0
  -                          *clip-rect-y* 0)))
  +                    (damage-whole-screen)))
                    ((and (member :meta *keyboard-modifier-state*)
                          (eql translated #\F4))
                     (when *active-window*
  
positive.code:     (when (and *m-tab-active*
                 (allow-m-tab win))
        (push win *m-tab-list*))
      (setf *clip-rect-width* (mezzano.supervisor:framebuffer-width *main-screen*)
            *clip-rect-height* (mezzano.supervisor:framebuffer-height *main-screen*)
            *clip-rect-x* 0
            *clip-rect-y* 0)))
  
  (defmacro with-window ((window fifo width height &rest options) &body body)
    `(let (,window)
  
negative.code:   ((%window :initarg :window :reader window)))
  
  (defmethod process-event ((event window-close-event))
    (let ((win (window event)))
      (format t "Closing window ~S. Goodbye!~%" win)
      (setf *window-list* (remove win *window-list*))
      (when (eql *drag-window* win)
        (setf *drag-window* nil))
      (when (eql *active-window* win)
        (setf *active-window* (first *window-list*))
        (when *active-window*
          (send-event *active-window* (make-instance 'window-activation-event
                                                     :window *active-window*
                                                     :state t))))
      (expand-clip-rectangle-by-window win)
      (setf *m-tab-list* (remove win *window-list*))
      (send-event win event)))
  
  (defun close-window (window)
    (submit-compositor-event (make-instance 'window-close-event
  