(eval-when (:compile-toplevel)
  (asdf:oos 'asdf:load-op :clim)
  (asdf:oos 'asdf:load-op :clim-clx))

(in-package :clim-user)

(define-application-frame draw-frame () ()
  (:pane
   (scrolling () (make-pane 'interactor-pane :scroll-bars :both))))
     
(define-draw-frame-command (com-implicit-AV :menu t :name t) ((string 'string) (x 'integer) (y 'integer)) ())

(define-draw-frame-command (com-explicit-AV :menu t :name t) ()
  (let ((input-stream (frame-standard-input *application-frame*)))
    (format t "~A~&" input-stream)                    ; Make sure we got the interactor panes
    (accepting-values (input-stream)
		      (accept 'string :prompt "A string" :stream input-stream )
		      (terpri input-stream)
		      (accept 'integer :prompt "An integer" :stream input-stream )
		      (terpri input-stream)
		      (accept 'integer :prompt "An integer" :stream input-stream ))))