Initial data commit

Task/Simple-windowed-application/Common-Lisp/simple-windowed-application-1.lisp

@@ -0,0 +1,3 @@
+(defpackage #:rcswa
+  (:use #:clim #:clim-lisp))
+(in-package #:rcswa)

Task/Simple-windowed-application/Common-Lisp/simple-windowed-application-2.lisp

@@ -0,0 +1,19 @@
+(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*)))

Task/Simple-windowed-application/Common-Lisp/simple-windowed-application-3.lisp

@@ -0,0 +1,27 @@
+(define-application-frame simple-windowed-application ()
+  ((clicks :initform 0
+           :accessor clicks-of))
+  (:panes
+   (the-label :application
+              :width '(40 :character)
+              :height '(3 :character)
+              :display-time t
+              :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*))))
+   (the-button :push-button
+               :label "Click Me"
+               :activate-callback
+                 (lambda (button)
+                   (declare (ignore button))
+                   (incf (clicks-of *application-frame*))
+                   (redisplay-frame-pane *application-frame*
+                                         (find-pane-named *application-frame* 'the-label)
+                                         :force-p t))))
+  (:layouts (default
+             (vertically (:equalize-width nil :align-x :center)
+               the-label
+               (spacing (:thickness 10) the-button)))))

Task/Simple-windowed-application/Common-Lisp/simple-windowed-application-4.lisp

@@ -0,0 +1 @@
+(run-frame-top-level (make-application-frame 'simple-windowed-application))