March 2014 update

Task/Hello-world-Graphical/Common-Lisp/hello-world-graphical-2.lisp

@@ -0,0 +1,28 @@
+((in-package :clim-user)
+
+(defclass hello-world-pane
+    (clim-stream-pane) ())
+
+(define-application-frame hello-world ()
+  ((greeting :initform "Hello World"
+             :accessor greeting))
+  (:pane (make-pane 'hello-world-pane)))
+
+;;; Behaviour defined by the Handle Repaint Protocol
+(defmethod handle-repaint ((pane hello-world-pane) region)
+  (let ((w (bounding-rectangle-width pane))
+        (h (bounding-rectangle-height pane)))
+    ;; Blank the pane out
+    (draw-rectangle* pane 0 0 w h
+                     :filled t
+                     :ink (pane-background pane))
+    ;; Draw greeting in center of pane
+    (draw-text* pane
+                (greeting *application-frame*)
+                (floor w 2) (floor h 2)
+                :align-x :center
+                :align-y :center)))
+
+(run-frame-top-level
+ (make-application-frame 'hello-world
+   :width 200 :height 200))