20 lines
739 B
Common Lisp
20 lines
739 B
Common Lisp
(define-application-frame simple-windowed-application ()
|
|
((clicks :initform 0
|
|
:accessor clicks-of))
|
|
(:menu-bar t)
|
|
(:pane
|
|
(make-pane 'application-pane
|
|
:width '(40 :character)
|
|
:height '(3 :character)
|
|
:display-time :command-loop
|
|
:display-function
|
|
(lambda (pane stream)
|
|
(declare (ignore pane))
|
|
(format stream "~[There have been no clicks yet.~
|
|
~:;~:*There ~[have~;has~:;have~]~:* been ~R click~:P.~]"
|
|
(clicks-of *application-frame*))))))
|
|
|
|
(define-simple-windowed-application-command (com-click-me :menu t)
|
|
()
|
|
(incf (clicks-of *application-frame*)))
|