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))

Task/Hello-world-Graphical/Frink/hello-world-graphical.frink

@@ -1,7 +1,7 @@
 g = new graphics
 g.font["SansSerif", 10]
-g.text["Hello World!", 0, 0]
+g.text["Goodbye, World!", 0, 0, 10 degrees]
 g.show[]
 
 g.print[]                           // Optional: render to printer
-g.write["HelloWorld.png", 400, 300] // Optional: write to graphics file
+g.write["GoodbyeWorld.png", 400, 300] // Optional: write to graphics file

Task/Hello-world-Graphical/Julia/hello-world-graphical.julia

@@ -0,0 +1,14 @@
+using Tk
+
+window = Toplevel("Hello World", 200, 100, false)
+pack_stop_propagate(window)
+
+fr = Frame(window)
+pack(fr, expand=true, fill="both")
+
+txt = Label(fr, "Hello World")
+pack(txt, expand=true)
+
+set_visible(window, true)
+
+# sleep(7)

Task/Hello-world-Graphical/Objective-C/hello-world-graphical-1.m

@@ -1,3 +1,3 @@
-NSAlert *alert = [[[NSAlert alloc] init] autorelease];
+NSAlert *alert = [[NSAlert alloc] init];
 [alert setMessageText:@"Goodbye, World!"];
 [alert runModal];

Task/Hello-world-Graphical/Objective-C/hello-world-graphical-2.m

@@ -1,2 +1,2 @@
-UIAlertView *alert = [[[UIAlertView alloc] initWithTitle:@"Goodbye, World!" message:nil delegate:nil cancelButtonTitle:@"OK" otherButtonTitles:nil] autorelease];
+UIAlertView *alert = [[UIAlertView alloc] initWithTitle:@"Goodbye, World!" message:nil delegate:nil cancelButtonTitle:@"OK" otherButtonTitles:nil];
 [alert show];

Task/Hello-world-Graphical/TI-83-BASIC/hello-world-graphical.ti-83

@@ -0,0 +1,2 @@
+PROGRAM:GUIHELLO
+:Text(0,0,"GOODBYE, WORLD!")