[#9] Set icons

clojerl · Nov 20, 2018 · 79b7e09 · 79b7e09
1 parent e75c71a
commit 79b7e09
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/src/doodler/sketch.clje b/src/doodler/sketch.clje
@@ -126,6 +126,16 @@
                           (erlang/halt 0))
                         close-fn))
 
+        priv-dir    (-> (code/priv_dir :doodler)
+                        (erlang/list_to_binary))
+        icon       #(-> priv-dir
+                        (str "/icon-" % ".ico"))
+        icon-bundle (reduce (fn [bundle size]
+                              (wxIconBundle/addIcon bundle (icon size) 3)
+                              bundle)
+                            (wxIconBundle/new)
+                            [16 32 128 256 512 1024])
+
         state       nil]
 
     ;; Paint events need to be handled synchronously
@@ -141,6 +151,9 @@
     (wxFrame/showFullScreen frame (:present features))
     (wxWindow/show frame)
 
+    ;; Set icon
+    (wxTopLevelWindow/setIcons frame icon-bundle)
+
     ;; Signal to trigger the setup phase
     (timer/send_after 0 :setup)