A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Hello-world-Graphical/Clojure/hello-world-graphical.clj
+++ b/Task/Hello-world-Graphical/Clojure/hello-world-graphical.clj
@ -0,0 +1,15 @@
+(ns experimentation.core
+  (:import (javax.swing JOptionPane JFrame JTextArea JButton)
+	   (java.awt FlowLayout)))
+
+(JOptionPane/showMessageDialog nil "Goodbye, World!")
+(let [button (JButton. "Goodbye, World!")
+      window (JFrame. "Goodbye, World!")
+      text (JTextArea. "Goodbye, World!")]
+  (doto window
+    (.setLayout (FlowLayout.))
+    (.add button)
+    (.add text)
+    (.pack)
+    (.setDefaultCloseOperation (JFrame/EXIT_ON_CLOSE))
+    (.setVisible true)))