Simple windowed application: Difference between revisions

=={{header|Common Lisp}}==

{{libheader|CLIM}}

{{works with|McCLIM}}

<lang e>(defpackage #:rcswa

(:use #:clim #:clim-lisp))

(in-package #:rcswa)

(define-application-frame simple-windowed-application ()

((clicks :initform 0

:accessor clicks-of))

(:panes

(the-label :text-editor

:value "There have been no clicks yet."

:editable-p nil

:nlines 2

:ncolumns 60)

(the-button :push-button

:label "Click Me"

:activate-callback

(lambda (button)

(declare (ignore button))

(incf (clicks-of *application-frame*))

(setf (gadget-value (find-pane-named *application-frame* 'the-label))

(format nil "There have been ~R click~:P."

(clicks-of *application-frame*))))))

(:layouts (default

(vertically (:equalize-width nil :align-x :center)

the-label

(spacing (:thickness 10) the-button)))))

(run-frame-top-level (make-application-frame 'simple-windowed-application))</lang>