anchor.diff:      (prog1 (port-keyboard-input-focus port)
         (setf (port-keyboard-input-focus port) stream))))
   
  -#+nil
  -(defmethod stream-set-input-focus ((stream null))
  -  (let ((frame *application-frame*))
  -    (prog1
  -        (frame-keyboard-input-focus frame)
  -      (setf (frame-keyboard-input-focus frame) nil))))
  -
   ;;; output any buffered stuff before input
   
   (defmethod stream-read-gesture :before ((stream clim-stream-pane)
  
positive.code:              for minor in minors
               do
               (when (box-client-pane child)
                 #+NIL
                 (format *trace-output* "~&;;   child ~S at 0, ~D ~D x ~D(~D)~%;;       ~S~%"
                         (box-client-pane child)
                         x width height real-height
                         (compose-space (box-client-pane child)))
                 (layout-child (box-client-pane child)
                               :expand
                               :expand
  
negative.code:                      :incremental-redisplay t))
  
  (defmethod initialize-instance :after ((pane interactor-pane) &rest args)
    (declare (ignore args)))
  
  ;;; KLUDGE: this is a hack to get keyboard focus (click-to-focus)
  ;;; roughly working for interactor panes.  It's a hack somewhat
  