anchor.diff:           (scrolling (:width 600 :height 400) canvas))
          (horizontally (:height 30) clear undo redo)
          status)))
  +;  #+nil
      (:top-level (clim-fig-frame-top-level)))
   
   (defmethod clim-fig-frame-top-level ((frame application-frame) &key)
  
positive.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  (in-package :CLIM-INTERNALS)
  
  (defclass canvas-pane (application-pane)
    ((first-point-x :initform nil)
     (first-point-y :initform nil)
     (canvas-pixmap :initform nil)
     (selected-object :initform nil)))
  
  (defun set-status-line (string)
    (setf (gadget-value (slot-value *application-frame* 'clim-demo::status))
  	string))
  
  #+nil
  
negative.code:               first-point-x nil
                first-point-y nil)))))
  
  (defun clim-fig ()
    (loop for port in climi::*all-ports*
        do (destroy-port port))
    (setq climi::*all-ports* nil)
   (run-frame-top-level (make-application-frame 'clim-fig))
   ;(setq frame (make-application-frame 'clim-fig))
   ;(setq fm (frame-manager frame))
   ;(setq port (climi::frame-manager-port fm))
   ;(setq pane (first (frame-panes frame)))
   ;(setq medium (sheet-medium pane))
   ;(setq graft (graft frame))
   ;(setq vbox (climi::frame-pane frame))
   ;(run-frame-top-level frame)
   )
  
  (defun make-colored-button (color &key width height)
    (make-pane 'push-button-pane
  