blob: b65c63170847d774fde9e178ed0baa8dddfa22f0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
(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)))))
|
