anchor.diff:               (scrolling (:scroll-bar :vertical)
                  tests-pane))))
            (1/10 run-tests-button)
  -         (1/10 output-pane)))))
  -
  -(defun display-progress-bar (frame pane)
  -  (draw-rectangle* pane
  -                   0 0
  -                   (/ (bounding-rectangle-width pane) 2)
  -                   (bounding-rectangle-height pane)
  -                   :ink +red+))
  +         (1/10
  +          (scrolling (:scroll-bar :vertical)
  +            output-pane))))))
   
   (defclass progress-bar-pane (application-pane)
     ((total :initarg :total
  
positive.code:     ;; pbw = pbx2 - x1
      ;; pbx2 = ((total/done) * (x2 - x1) / total) + x1
      (with-slots (total done) pane
        (let ((progress-bar-width (/ (* done (- x2 x1)) total)))
          (draw-rectangle* pane x1 y1
                           (+ progress-bar-width x1)
                           y2
                           :ink (foreground-color pane))))))
  
  (defun run-tests (button)
    (let ((progress-bar (find-pane-named *application-frame* 'progress-bar)))
      (loop for i from 5 to (total progress-bar) by 5
           do
           (progn
             (sleep 0.5)
             (setf (done progress-bar) i)))))
  
  
  (defmethod (setf done) :after (new-value (pane progress-bar-pane))
    (handle-repaint pane (or (pane-viewport-region pane)
                               (sheet-region pane))))
  
  (defun selected-tests-changed (pane value)
      )
  
  (defun selected-test-suites-changed (pane value)
    (let ((tests
  
negative.code:         (tests-pane (find-pane-named *application-frame*
                             'tests-pane)))
      (setf (list-pane-items tests-pane)
            tests)
      ;; Update tests to run
      (let ((new-tests-to-run
             (intersection (tests-to-run *application-frame*)
                           value)))
      (setf (tests-to-run *application-frame*) new-tests-to-run)
      (setf (gadget-value tests-pane) new-tests-to-run))))
  
  (run-frame-top-level
   (make-application-frame 'fiveam-test-runner))