|
|
@ -309,8 +309,8 @@ |
|
|
|
|
|
|
|
(defun-local path-append-divider-if-necessary (path-dynstring (* dynstring)) |
|
|
|
(unless (or (= '/' (at (- (dynstring-strlen (deref path-dynstring)) 1) |
|
|
|
(deref path-dynstring))) |
|
|
|
(is-root-path (deref path-dynstring))) |
|
|
|
(deref path-dynstring))) |
|
|
|
(is-root-path (deref path-dynstring))) |
|
|
|
(dynstring-append path-dynstring "/"))) |
|
|
|
|
|
|
|
;; TODO Remember past selection position? |
|
|
@ -319,7 +319,7 @@ |
|
|
|
(if (path activated-entry > is-directory) |
|
|
|
(scope |
|
|
|
(set (path state > focus-filter) true) |
|
|
|
(path-append-divider-if-necessary (addr (path state > current-dir))) |
|
|
|
(path-append-divider-if-necessary (addr (path state > current-dir))) |
|
|
|
(dynstring-append (addr (path state > current-dir)) (path activated-entry > name)) |
|
|
|
(set (path state > needs-update) true) |
|
|
|
(set (path state > should-scroll-to-entry) true) |
|
|
@ -754,10 +754,10 @@ |
|
|
|
|
|
|
|
(call-on Draw (path state > directory-filter)) |
|
|
|
(when (imgui-call IsItemHovered) |
|
|
|
(imgui-call BeginTooltip) |
|
|
|
(imgui-call Text "Filter items in the current directory. This is a fast way to navigate.") |
|
|
|
(imgui-print-shortcut "Ctrl+F to focus filter from any window") |
|
|
|
(imgui-call EndTooltip)) |
|
|
|
(imgui-call BeginTooltip) |
|
|
|
(imgui-call Text "Filter items in the current directory. This is a fast way to navigate.") |
|
|
|
(imgui-print-shortcut "Ctrl+F to focus filter from any window") |
|
|
|
(imgui-call EndTooltip)) |
|
|
|
|
|
|
|
;; Update the actual list immediately after the filter |
|
|
|
(update-filtered-entry-list state) |
|
|
@ -881,7 +881,7 @@ |
|
|
|
(if (path current-entry > is-directory) |
|
|
|
(when (imgui-call Selectable entry-name (= entry-index (path state > on-activate-index)) |
|
|
|
;;(bit-or ImGuiSelectableFlags_SpanAllColumns |
|
|
|
ImGuiSelectableFlags_AllowDoubleClick) ;;) |
|
|
|
ImGuiSelectableFlags_AllowDoubleClick) ;;) |
|
|
|
(set (path state > focus-filter) true) |
|
|
|
(set (path state > on-activate-index) entry-index) |
|
|
|
(when (imgui-call IsMouseDoubleClicked 0) |
|
|
@ -890,7 +890,7 @@ |
|
|
|
(set (path state > needs-update) true))) |
|
|
|
;; File |
|
|
|
(when (imgui-call Selectable entry-name (= entry-index (path state > on-activate-index))) |
|
|
|
;;ImGuiSelectableFlags_SpanAllColumns) |
|
|
|
;;ImGuiSelectableFlags_SpanAllColumns) |
|
|
|
(set (path state > focus-filter) true) |
|
|
|
(set (path state > on-activate-index) entry-index))) |
|
|
|
|
|
|
@ -984,9 +984,9 @@ |
|
|
|
(path state > last-used-category)) |
|
|
|
(set (path state > needs-update) true)) |
|
|
|
(when (imgui-call IsItemHovered) |
|
|
|
(imgui-call BeginTooltip) |
|
|
|
(imgui-call Text "Use last selected category (marked with a * in key)") |
|
|
|
(imgui-call EndTooltip))) |
|
|
|
(imgui-call BeginTooltip) |
|
|
|
(imgui-call Text "Use last selected category (marked with a * in key)") |
|
|
|
(imgui-call EndTooltip))) |
|
|
|
|
|
|
|
(imgui-call PopID)) |
|
|
|
(imgui-call EndTable) |
|
|
@ -1130,10 +1130,10 @@ |
|
|
|
(imgui-call SameLine) |
|
|
|
(imgui-call Checkbox "Use colors from theme" (addr g-treemap-use-theme-for-colorization)) |
|
|
|
(when (imgui-call IsItemHovered) |
|
|
|
(imgui-call BeginTooltip) |
|
|
|
(imgui-call Text "Category colors will match the automatic theme.") |
|
|
|
(imgui-call Text "You will not be able to customize the colors while this is enabled.") |
|
|
|
(imgui-call EndTooltip)) |
|
|
|
(imgui-call BeginTooltip) |
|
|
|
(imgui-call Text "Category colors will match the automatic theme.") |
|
|
|
(imgui-call Text "You will not be able to customize the colors while this is enabled.") |
|
|
|
(imgui-call EndTooltip)) |
|
|
|
(imgui-call Separator) |
|
|
|
|
|
|
|
(each-item-addr-in-dynarray g-file-colorizers i colorizer (* file-colorizer) |
|
|
@ -1225,12 +1225,12 @@ |
|
|
|
(var g-imgui-output-file ([] 1024 char) (array 0)) |
|
|
|
|
|
|
|
(comptime-cond ('Windows |
|
|
|
(c-preprocessor-define WIN32_LEAN_AND_MEAN) |
|
|
|
(c-import "windows.h"))) |
|
|
|
(c-preprocessor-define WIN32_LEAN_AND_MEAN) |
|
|
|
(c-import "windows.h"))) |
|
|
|
(defun wait-for-debugger () |
|
|
|
(comptime-cond ('Windows |
|
|
|
(while (not (IsDebuggerPresent)) |
|
|
|
(Sleep 100))))) |
|
|
|
(while (not (IsDebuggerPresent)) |
|
|
|
(Sleep 100))))) |
|
|
|
|
|
|
|
;; TODO Need infect |
|
|
|
(add-c-search-directory-module "Dependencies/enkiTS/src") |
|
|
@ -1284,9 +1284,9 @@ |
|
|
|
(strdict-use-key-strdup g-userdata-dict) |
|
|
|
|
|
|
|
(if g-should-save-load-user-config |
|
|
|
(unless (load-state-s-expr) |
|
|
|
(SDL_Log "Did not load UserData\n")) |
|
|
|
(load-state-default)) |
|
|
|
(unless (load-state-s-expr) |
|
|
|
(SDL_Log "Did not load UserData\n")) |
|
|
|
(load-state-default)) |
|
|
|
|
|
|
|
;; Ensure the default colorizer exists |
|
|
|
(unless (dynarray-length g-file-colorizers) |
|
|
|