(uiop:define-package
    :haiku-book/frame
    (:export)
  (:mix-reexport :haiku-book/class)
  (:mix :clim :clim-lisp))

(in-package :haiku-book/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"
			     :activate-callback (lambda (gadget) (com-next))))
  (:layouts
   (default
    (vertically () title app action-next))))

(define-read-haiku-command (com-next :name "Next")
    ()
  (with-application-frame (frame)
    (next-haiku frame)
    (redisplay-frame-pane frame 'app)))