(defpackage :mini
  (:use :clim :clim-extensions :clim-lisp))
(in-package :mini)

(let ((colors (list +red+ +green+)))
  (setf colors (nconc colors colors))
  (defun display-function (frame pane)
    (draw-circle* pane 10 10 10 :ink (pop colors))
    (sleep 0.5)
    (redisplay-frame-panes frame)))

(defun quit ()
  (frame-exit *application-frame*))

(define-application-frame mini ()
  ()
  (:panes
   (display :application
	    :display-function 'display-function
	    :incremental-redisplay t)
   (quit
    :push-button
    :label "Quit"
    :activate-callback (lambda (x)
			 (declare (ignore x))
			 (quit))))
  (:layouts
   (defaults (vertically () display quit))))

(defun run-test (name)
  (loop for port in climi::*all-ports*
     do (destroy-port port))
  (setq climi::*all-ports* nil)
  (let ((frame (make-application-frame name)))
    (run-frame-top-level frame)))

(defun start ()
  (run-test 'mini)
  0)

(defmethod run-frame-top-level :before ((mini mini) &key)
  (let* ((frame-manager (frame-manager *application-frame*))
	 (port (climi::frame-manager-port frame-manager))
	 (display (clim-clx::clx-port-display port)))
    (setf (xlib:display-after-function display)
	  g#'xlib:display-force-output)))