anchor.diff:      (gfs:dispose mirror)))
   
   (defmethod realize-mirror ((port graphic-forms-port) (sheet mirrored-sheet-mixin))
  -  (gfs::debug-format "---> realizing ~a~%" (class-of sheet))
     (let* ((parent (sheet-mirror (sheet-parent sheet)))
  -         (req (compose-space sheet))
            (mirror (make-instance 'gfw-panel
                                   :sheet sheet
                                   :dispatcher *sheet-dispatcher*
                                   :style '() ;was: '(:border)
                                   :parent parent)))
  -    (setf (gfw:size mirror) (requirement->size req))
  -    (multiple-value-bind (x y)
  -        (transform-position (climi::%sheet-mirror-transformation sheet) 0 0)
  -      (setf (gfw:location mirror)
  -            (gfs:make-point :x (round-coordinate x)
  -                            :y (round-coordinate y))))
       (climi::port-register-mirror (port sheet) sheet mirror)
  -    (port-enable-sheet port sheet)
       mirror))
   
   (defmethod destroy-mirror ((port graphic-forms-port) (sheet mirrored-sheet-mixin))
  
positive.code: 
  (defmethod port-set-mirror-region ((port graphic-forms-port) (mirror gfw-menu-item) region)
    (declare (ignore port mirror region)))
  
  (defmethod port-set-mirror-transformation ((port graphic-forms-port) (mirror gf-mirror-mixin) transformation)
    (multiple-value-bind (x y)
  
negative.code:   (declare (ignore wait-function timeout)) ; FIXME
    (or (pop (events port))
        (cffi:with-foreign-object (msg-ptr 'gfs::msg)
          (let ((gm (gfs::get-message msg-ptr (cffi:null-pointer) 0 0)))
            (gfw::default-message-filter gm msg-ptr))
          (pop (events port)))))
  
  (defmethod process-next-event :after ((port graphic-forms-port) &key wait-function (timeout nil))
    (declare (ignore wait-function timeout))
  