anchor.diff:  (defmethod handle-event :around ((pane t) (event t))
     (let ((*application-frame* (pane-frame pane)))
       (call-next-method pane event)))
  +
  +(defmethod dispatch-event ((pane canvas-pane) event)
  +  (handle-event pane event))
   
   (defmethod handle-event ((pane canvas-pane) (event pointer-button-press-event))
     (when (= (pointer-event-button event) +pointer-left-button+)
  
positive.code:   (loop for port in climi::*all-ports*
        do (destroy-port port))
    (setq climi::*all-ports* nil)
    (progn 'run-frame-top-level (make-application-frame 'clim-fig)))
  
  (defun make-colored-button (color &key width height)
    (make-pane 'push-button-pane
  
negative.code:           (stream-current-output-record *standard-output*)
            (slot-value frame 'status)
            (find-if #'(lambda (pane) (typep pane 'text-field-pane))
                     (frame-panes frame)))))
  
  ; (defmethod clim-fig-frame-top-level ((frame application-frame) &key)
  ;   (let ((*standard-input* (frame-standard-input frame))
  ; 	(*standard-output* (frame-standard-output frame))
  ; 	(*query-io* (frame-query-io frame)))
  ;     (setf (slot-value frame 'output-record)
  ;           (stream-current-output-record *standard-output*)
  ;           (slot-value frame 'status)
  ;           (find-if #'(lambda (pane) (typep pane 'text-field-pane))
  ;                    (frame-panes frame)))
  ;     (catch 'exit
  ;       (loop (read-command (climi::frame-pane frame))))
  ;     (destroy-port (port frame))))
  
  