9.2 Defining CLIM Application Frames
(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)))))
Generated with Harlequin WebMaker