anchor.diff:      (setf (gfw:location mirror)
             (gfs:make-point :x (round-coordinate x)
                             :y (round-coordinate y)))))
  -
  -(defmethod port-set-mirror-transformation ((port graphic-forms-port) (mirror gfw-top-level) transformation)
  -  (declare (ignore port mirror transformation)))
   
   (defmethod port-set-mirror-transformation ((port graphic-forms-port) (mirror gfw-menu) transformation)
     (declare (ignore port mirror transformation)))
  
positive.code: ;;; mirror methods
  ;;;
  
  (defmethod port-set-mirror-region ((port graphic-forms-port) (mirror gf-mirror-mixin) region)
    (setf (gfw:size mirror)
          (gfs:make-size :width (round-coordinate (bounding-rectangle-width region))
  
negative.code: 
  (defmethod gfw:event-resize ((self sheet-event-dispatcher) mirror size type)
    (declare (ignore type))
    (setf size (gfw:client-size mirror))
    (let ((sheet (sheet mirror)))
      (if (and sheet (subtypep (class-of sheet) 'sheet-with-medium-mixin))
          (let ((medium (climi::sheet-medium sheet)))
  