frame.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

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