anchor.diff:        (let ((medium (climi::sheet-medium sheet)))
           (if (and medium (image-of medium))
             (resize-medium-buffer medium size))))
  -    (setf (event (port self))
  -          (generate-configuration-event mirror (gfw:location mirror) size))))
  +    (enqueue (port self)
  +	     (generate-configuration-event mirror (gfw:location mirror) size))))
   
   (defclass gadget-event (window-event) ())
   (defclass button-pressed-event (gadget-event) ())
   
   (defmethod gfw:event-select ((self pane-event-dispatcher) mirror)
  -  (setf (event (port self))
  -	(typecase mirror
  -	  (gfw-button
  -	   (make-instance 'button-pressed-event :sheet (sheet mirror)))
  -	  (t
  -	   (make-instance 'menu-clicked-event
  -			  :sheet (sheet (gfw:owner mirror))
  -			  :item (sheet mirror))))))
  +  (enqueue (port self)
  +	   (typecase mirror
  +	     (gfw-button
  +	      (make-instance 'button-pressed-event :sheet (sheet mirror)))
  +	     (t
  +	      (make-instance 'menu-clicked-event
  +			     :sheet (sheet (gfw:owner mirror))
  +			     :item (sheet mirror))))))
   
   (defmethod handle-event ((pane push-button) (event button-pressed-event))
     (activate-callback pane (gadget-client pane) (gadget-id pane)))
  
positive.code:   (gfs::debug-format "menu item: ~a invoked~%" item))
  
  (defmethod gfw:event-close ((self sheet-event-dispatcher) mirror)
    (setf (event (port self)) (make-instance 'window-manager-delete-event
                                             :sheet  (sheet mirror))))
  
  ;; copy&paste from port.lisp|CLX:
  (defun sheet-desired-ink (sheet)
  
negative.code: 
  (defclass graphic-forms-port (basic-port)
    ((id)
     (events
      :accessor events
      :initform nil)
     (pointer
      :accessor port-pointer
      :initform (make-instance 'gfw-pointer))))
  
  (defun enqueue (port event)
    (push event (events port)))
  
  (defvar *sheet-dispatcher* (make-instance 'sheet-event-dispatcher))
  
  