anchor.diff:  ;;;
   
   (defmethod port-set-mirror-region ((port graphic-forms-port) (mirror gf-mirror-mixin) region)
  -  (gfs::debug-format "~a~%" region)
     (setf (gfw:size mirror)
           (gfs:make-size :width (round-coordinate (bounding-rectangle-width region))
                          :height (round-coordinate (bounding-rectangle-height region)))))
  
positive.code:   ())
  
  (defmethod port-character-width ((port graphic-forms-port) text-style char)
    (gfs::debug-format "port-character-width called: ~a ~c~%" text-style char))
  
  (defmethod port-string-width ((port graphic-forms-port) text-style string &key (start 0) end)
    (gfs::debug-format "port-string-width called: ~a ~c~%" text-style string))
  
  (defmethod port-mirror-width ((port graphic-forms-port) (sheet mirrored-sheet-mixin))
    (gfs::debug-format "port-mirror-width called for ~a~%" sheet)
    (let ((mirror (climi::port-lookup-mirror port sheet)))
      (gfs:size-width (gfw:size mirror))))
  
  (defmethod port-mirror-height ((port graphic-forms-port) (sheet mirrored-sheet-mixin))
    (gfs::debug-format "port-mirror-height called for ~a~%" sheet)
    (let ((mirror (climi::port-lookup-mirror port sheet)))
      (gfs:size-height (gfw:size mirror))))
  
  
negative.code:       (gfw::put-widget (gfw::thread-context) menu-bar)
        (setf (gfw:menu-bar mirror) menu-bar))
      (climi::port-register-mirror (port sheet) sheet mirror)
      mirror))
  
  (defmethod destroy-mirror ((port graphic-forms-port) (sheet climi::top-level-sheet-pane))
  