Browse Source

Add WIP icon

windows
Macoy Madson 9 months ago
parent
commit
7f0b8b5378
  1. BIN
      assets/Icon.xcf
  2. BIN
      data/Icon.bmp
  3. 13
      src/FileHelper.cake

BIN
assets/Icon.xcf

Binary file not shown.

BIN
data/Icon.bmp

Binary file not shown.

After

Width:  |  Height:  |  Size: 256 KiB

13
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))

Loading…
Cancel
Save