Merge pull request pkamenarsky#3 from profer/master

Quit Menu Item
jasonjckn · Feb 21, 2012 · fe95fa1 · fe95fa1
2 parents 358457b + d948321
commit fe95fa1
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/tracker/core.clj b/src/tracker/core.clj
@@ -90,7 +90,11 @@
       (if (first part-items)
         (add-priority false (key (first part-items)) (val (first part-items)))
         (.addItem menu (str "No tasks in " file) nil)) 
-      (doseq [[pri prjs] (next part-items)] (add-priority true pri prjs)))))
+      (doseq [[pri prjs] (next part-items)] (add-priority true pri prjs)))
+
+    ; quit menu item
+    (.addSeparator menu)
+    (.addItem menu "Quit Atea" (action #((deactfn) (System/exit 0))))))
 
 ; IO -----------------------------------------------------------------------