(uiop:define-package
    :solar-short/frame
    (:export)
  (:mix-reexport :solar-short/class)
  (:mix :clim :clim-lisp))

(in-package :solar-short/frame)

(define-application-frame
    read-haiku
    (book standard-application-frame)
  ()
  (:panes
   (title :title :display-string "Solar short")
   (app :application :display-function 'display-haiku)
   (action-next :push-button :label "Next"))
  (:layouts
   (default
    (vertically () title app action-next))))
    
;; (define-read-haiku-command (com-next :name t)
;;     ((book 'book))
;;   (with-application-frame (frame)
;;     (let ((book (book frame)))
;;       (when book
;; 	(next-haiku book)))))