(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)