1 files changed, 18 insertions, 0 deletions
diff --git a/clojure/wordmonger/timer.clj b/clojure/wordmonger/timer.clj
new file mode 100644
index 0000000..f739e7e
--- /dev/null
+++ b/clojure/wordmonger/timer.clj
@@ -0,0 +1,18 @@
+(doto *timer-label*
+  (.setFont (new Font *display* "bitstream vera sans mono" 12 SWT/NORMAL))
+  (.setText "   ")
+  (.setLayoutData (new GridData GridData/HORIZONTAL_ALIGN_CENTER)))
+
+(defn initialize-timer [timer-max]
+  (def *timer-value* (ref timer-max)))
+
+(defn decrement-timer []
+  (let [value @*timer-value*
+        new-value (dec value)]
+    (unless (.isDisposed *shell*)
+        (.asyncExec *display* (proxy [Runnable] []
+                                (run [] (.setText *timer-label* 
+                                                  (str new-value)))))
+      (comment
+        (async (.setText *timer-label* (str new-value))))
+      (def *timer-value* (ref new-value)))))