(uiop:define-package
    :simple-text-clim-frame/frame
    (:export)
  (:mix-reexport :simple-text-clim-frame/class)
  (:mix :clim :clim-lisp))

(in-package :simple-text-clim-frame/frame)

(define-application-frame
    my-frame
    (my-class standard-application-frame)
  ()
  (:panes
   (title :title :display-string "My title")
   (app :application :display-function 'my-display))
  (:layouts
   (default
    (vertically () title app))))