(in-package :clim-user)
;;; Application pane with only a
;;; WITH-OUTPUT-AS-GADGET form causes
;;; control stack overflow.
(define-application-frame woag ()
()
(:panes
(application :application
:scroll-bars nil
:display-function
#'(lambda (frame pane)
(declare (ignore frame))
;; uncomment to avoid overflow
;;(format pane "Hello~%") ; @@@
(with-output-as-gadget (pane)
(with-radio-box (:orientation :horizontal)
"1" "2" "3"))) )))
(find-application-frame 'woag
:left 900 :top 200)
