anchor.diff:        (send-event win (make-instance 'window-activation-event
                                        :window win
                                        :state t)))
  +    (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
  
positive.code:                           *clip-rect-height* (mezzano.supervisor:framebuffer-height *main-screen*)
                            *clip-rect-x* 0
                            *clip-rect-y* 0)))
                   ;; Otherwise, dispatch to active window.
                   (*active-window*
                    (send-event *active-window*
  
negative.code:            (setf *keyboard-modifier-state*
                   (if (key-releasep event)
                       (remove (second modifier) *keyboard-modifier-state*)
                       (list* (second modifier) *keyboard-modifier-state*)))
             (when (and (key-releasep event)
                        (eql (second modifier) :meta))
               (setf *m-tab-active* nil
                     *m-tab-list* '())))
            (t ;; Normal key, try to translate it.
             (let ((translated (convert-scancode-to-key *current-keymap* scancode *keyboard-modifier-state*)))
               (when translated
  