anchor.diff:      :initform (make-instance 'gfw-pointer))))
   
   (defun enqueue (port event)
  +  (setf (slot-value event 'climi::timestamp) (gfw:obtain-event-time))
     (push event (events port)))
   
   (defvar *sheet-dispatcher* (make-instance 'sheet-event-dispatcher))
  
positive.code:                  :orientation orientation :units units))
  
  (defmethod make-medium ((port graphic-forms-port) sheet)
    (gfs::debug-format "creating medium for ~a~%" (class-of sheet))
    (make-instance 'graphic-forms-medium :port port :sheet sheet))
  
  (defmethod text-style-mapping
  
negative.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 gfw-top-level) transformation)
    ;; FIXME: does McCLIM really need to set position of top-level window's?
    ())
  
  (defmethod port-set-mirror-transformation ((port graphic-forms-port) (mirror gf-mirror-mixin) transformation)
    (multiple-value-bind (x y)
  