Add WIP icon

src/FileHelper.cake

@@ -658,9 +658,7 @@
        (imgui-call SameLine))
      (imgui-draw-category-color-icon category)
      (imgui-call SameLine)
-     (imgui-call TextDisabled "%s" (path category > name))
-     (imgui-call SameLine)
-     (imgui-call TextDisabled "(%s)" category-keybind-name)
+     (imgui-call TextDisabled "%s (%s)" (path category > name) category-keybind-name)
 
      (incr keybind-prompt-index)
 
@@ -1075,6 +1073,15 @@ File helper is designed to have a very efficient user interface to assist you in
           (bit-xor (field imgui-io ConfigFlags)
                    ImGuiConfigFlags_NavEnableKeyboard))))
 
+  (scope ;; Window icon
+   (var icon-filename (* (const char)) "data/Icon.bmp")
+   (var icon-surface (* SDL_Surface) (SDL_LoadBMP icon-filename))
+   (if icon-surface
+       (SDL_SetWindowIcon window icon-surface)
+       (scope ;; No icon isn't the end of the world
+        (SDL_Log "warning: failed to load surface from BMP %s\n" icon-filename)
+        (sdl-print-error))))
+
   ;; (scope
   ;;  (var colors (* ImVec4) (field (imgui-call GetStyle) Colors))
   ;;  (set (at ImGuiCol_Text colors)                   (ImVec4 0.44f 0.55f 0.63f 1.00f))