anchor.diff:    (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)))
  +  (run-frame-top-level (make-application-frame 'clim-fig)))
   
   (defun make-colored-button (color &key width height)
     (make-pane 'push-button-pane
  
positive.code:           (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))))
  
negative.code: (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+)
  