Fixes

1 files changed, 8 insertions, 8 deletions

diff --git a/frame.lisp b/frame.lisp
index b65c631..2f3cc91 100644
--- a/frame.lisp
+++ b/frame.lisp
@@ -13,14 +13,14 @@
   (:panes
    (title :title :display-string "Solar short")
    (app :application :display-function 'display-haiku)
-   (action-next :push-button :label "Next"))
+   (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 t)
-;;     ((book 'book))
-;;   (with-application-frame (frame)
-;;     (let ((book (book frame)))
-;;       (when book
-;; 	(next-haiku book)))))
+
+(define-read-haiku-command (com-next :name "Next")
+    ()
+  (with-application-frame (frame)
+    (next-haiku frame)
+    (redisplay-frame frame)))