From 2e1496c34fa70be631a86aba8aa4577a2f7eb5a5 Mon Sep 17 00:00:00 2001 From: Juan Monetta Date: Fri, 26 Jan 2024 22:03:02 -0300 Subject: [PATCH] Fix #132 quick jump should create and/or focus the tab --- CHANGELOG.md | 1 + src-dbg/flow_storm/debugger/ui/flows/screen.clj | 4 +++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/CHANGELOG.md b/CHANGELOG.md index 52d14a3e..7a72dbcf 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -21,6 +21,7 @@ ### Bugs fixed - Pasting in quick jump box doesn't fire autocomplete + - Quick jump should create and/or focus the tab ## 3.9.1 (12-01-2024) diff --git a/src-dbg/flow_storm/debugger/ui/flows/screen.clj b/src-dbg/flow_storm/debugger/ui/flows/screen.clj index 49ccafe3..00c7dd0e 100644 --- a/src-dbg/flow_storm/debugger/ui/flows/screen.clj +++ b/src-dbg/flow_storm/debugger/ui/flows/screen.clj @@ -225,7 +225,9 @@ [ev] (clean-objs flow-id thread-id))) (-> all-tabs - (.addAll [thread-tab])))))) + (.addAll [thread-tab])) + + (.select ^SingleSelectionModel sel-model ^Tab thread-tab))))) (defn select-flow-tab [flow-id] (let [[flows-tabs-pane] (obj-lookup "flows_tabs_pane")