blob: a4313c9cf038067740d3b37dc651e539e86072d5 (
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"
: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)))
|
