(in-package :clim-user)

(define-application-frame test ()
  ()
  (:panes
   (interactor :interactor))
  (:layouts
   (default
       interactor)))

(defclass foo () ())
(defclass bar (foo) ())

(define-presentation-type foo ())
(define-presentation-type bar ()
  :inherit-from 'foo)

(define-presentation-method present (object (type foo) stream view &key)
  (declare (ignore view))
  (print "HELLO" stream))

(define-test-command (com-test :name t :menu t) ()
  (present (make-instance 'bar)))

(defun test ()
  (run-frame-top-level (make-application-frame 'test)))