Next Prev Up Top Contents Index

9.2.4 Example of the :pane Option to define-application-frame

Here is an example of how to use the :pane option of define-application-frame :

(define-application-frame test-frame ()
  ()
  (:pane
   (vertically ()
               (make-clim-interactor-pane
                :foreground +green+
                :background +red+)
               (make-pane 'push-button
                          :label "press me"
                          :background +black+
                          :foreground +purple+
                          :activate-callback
                          #'(lambda (button)
                              (frame-exit *application-frame*))
                          :text-style
                          (make-text-style :serif :roman 20)))))

Common Lisp Interface Manager 2.0 User Guide - 14 Dec 2001

Next Prev Up Top Contents Index