clim app3

app3.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 ()
  ((val 
     :initform 0
     :accessor val))
  (:pointer-documentation t)
  (:panes 
    (app 
      :application 
      :display-function 'disp
      :height 400 
      :width 600)
    (int :interactor :height 200 :width 600))
  (:layouts 
    (default (vertically () app int))))


(defun disp (frame pane)
  (format pane "current number = ~A~%" (val frame))
  )

(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))
   (with-accessors ((val val)) *application-frame*
     (setf val number)
     ))


(main)