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