clim app2

app2.lisp

(in-package :cl-user)

(ql:quickload :clx)
(ql:quickload :mcclim)

(defpackage app 
  (:use :clim
        :clim-lisp))

(in-package :app)

(define-application-frame main-frame ()
  ()
  (:pointer-documentation t)
  (:panes 
    (app :application :display-time nil :height 400 :width 600)
    (int :interactor :height 200 :width 600))
  (:layouts 
    (default (vertically () app int))))

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

(define-main-frame-command (com-quit :name t) ()
   (frame-exit *application-frame*))

(define-main-frame-command (com-parity :name t) ((number 'integer))
   (format t "~A is a ~A~%" number
           (if (oddp number) "odd" "even")))


(main)