;;; -*- Package: clim-user -*-
(in-package :clim-user)
;;; Lispworks CLIM displays a radio box. ;;; McCLIM throws No Primary Method for MAKE-PANE-1 ;;; with NIL as first argument.
(define-application-frame test-woag () () (:panes (p0 :application :display-function (lambda (f p) (with-output-as-gadget (p) (with-radio-box (:label "xxx" :type :some-of) :x :y))) :min-width 100 :min-height 100 )) (:layouts (default p0)))
(defun testme () (run-frame-top-level (make-application-frame 'test-woag)))