anchor.diff:                        (+ (- height (truncate (* h-step (+ y (- minimum))))) 50))))
   
       ;; Draw the title
  -    (draw-text* pane (format nil "~a" (title *application-frame*))
  +    (draw-text* pane (format nil "~a" (title frame))
                   (/ width 2) 10)
       
       ;; Draw the Y labels
  
positive.code:     (example-data frame)))
  
  (defmethod handle-event ((frame graph-toy) (event refresh-event))
    (redisplay-frame-pane frame 'main-display))
  
  (defun add-value (graph val)
    (schedule-event (frame-top-level-sheet graph)
  
negative.code:     (reduce (lambda (acc yval)
                (let ((xpos (funcall step-fn-x))
                      (ypos (funcall fn-y yval)))
                  (when (draw-values frame)
                    (clim:draw-text* pane (format nil "~a" yval) (- xpos 20) ypos))
                  (when (not (eq acc nil))
                    (draw-line* pane (car acc) (cdr acc) xpos ypos))
                  (cons xpos ypos)))
              values :initial-value nil)
      (format stream "Length: ~a~%" (length (val-array frame)))))
  
  (define-application-frame graph-toy ()
    ((val-array :initform (make-array 8 :adjustable t :fill-pointer 0) :accessor val-array)
  