anchor.diff:  	  (setf (gfg:background-color gc) c
   		(gfg:foreground-color gc) c))
   	(gfg:draw-filled-rectangle gc rect)))
  -    (setf (event (port self))
  -	  (make-instance 'window-repaint-event
  -			 :sheet sheet
  -			 :region (translate-rectangle rect)))))
  +    (enqueue (port self)
  +	     (make-instance 'window-repaint-event
  +			    :sheet sheet
  +			    :region (translate-rectangle rect)))))
   
   (defun generate-configuration-event (mirror pnt size)
     (make-instance 'window-configuration-event
  
positive.code: 
  (defclass graphic-forms-port (basic-port)
    ((id)
     (event
      :accessor event
      :initform nil)
     (pointer
      :accessor port-pointer
      :initform (make-instance 'gfw-pointer))))
  
  (defvar *sheet-dispatcher* (make-instance 'sheet-event-dispatcher))
  
  
negative.code: 
  (defmethod gfw:event-mouse-move
      ((self sheet-event-dispatcher) mirror point button)
    (enqueue (port self)
  	   (make-instance 'pointer-motion-event
  			  :pointer 0
  			  :sheet (sheet mirror)
  			  :x (gfs:point-x point)
  			  :y (gfs:point-y point)
  			  :button (translate-button-name button)
  			  ;; FIXME:
  ;;; 		       :graft-x
  ;;; 		       :graft-y
  			  :modifier-state 0
  			  )))
  
  (defmethod gfw:event-mouse-down ((self sheet-event-dispatcher) mirror point button)
    (enqueue (port self)
  	   (make-instance 'pointer-button-press-event
  			  :pointer 0
  			  :sheet (sheet mirror)
  			  :x (gfs:point-x point)
  			  :y (gfs:point-y point)
  			  :button (translate-button-name button)
  			  ;; FIXME:
  ;;; 		       :graft-x
  ;;; 		       :graft-y
  			  :modifier-state 0
  			  )))
  
  (defmethod gfw:event-mouse-up ((self sheet-event-dispatcher) mirror point button)
    (enqueue (port self)
  	   (make-instance 'pointer-button-release-event
  			  :pointer 0
  			  :sheet (sheet mirror)
  			  :x (gfs:point-x point)
  			  :y (gfs:point-y point)
  			  :button (translate-button-name button)
  			  ;; FIXME:
  ;;; 		       :graft-x
  ;;; 		       :graft-y
  			  :modifier-state 0
  			  )))
  
  (defun char-to-sym (char)
    (case char
  