From 9306cb60c32082c5403931de0823a9fd5daa196c Mon Sep 17 00:00:00 2001 From: Jason Katz-Brown Date: Sun, 25 Aug 2013 02:17:13 -0700 Subject: Initial git commit. --- clojure/wordmonger/timer.clj | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 clojure/wordmonger/timer.clj (limited to 'clojure/wordmonger/timer.clj') 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))))) -- cgit v1.2.3