From 7489e818de5da5e1648ac06356eeefdc98902564 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Fri, 12 Oct 2018 06:49:33 +0200
Subject: Implement a tab for persistent terms in crashdump viewer

Co-authored-by: Siri Hansen <siri@erlang.org>
---
 lib/observer/src/cdv_html_wx.erl | 26 +++++++++++++++++++++++++-
 1 file changed, 25 insertions(+), 1 deletion(-)

(limited to 'lib/observer/src/cdv_html_wx.erl')

diff --git a/lib/observer/src/cdv_html_wx.erl b/lib/observer/src/cdv_html_wx.erl
index d9efa7fc2f..ffef83227c 100644
--- a/lib/observer/src/cdv_html_wx.erl
+++ b/lib/observer/src/cdv_html_wx.erl
@@ -33,13 +33,17 @@
 	{panel,
 	 app,         %% which tool is the user
 	 expand_table,
-	 expand_wins=[]}).
+         expand_wins=[],
+         delayed_fetch,
+         trunc_warn=[]}).
 
 start_link(ParentWin, Info) ->
     wx_object:start_link(?MODULE, [ParentWin, Info], []).
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
+init([ParentWin, Callback]) when is_atom(Callback) ->
+    init(ParentWin, Callback);
 init([ParentWin, {App, Fun}]) when is_function(Fun) ->
     init([ParentWin, {App, Fun()}]);
 init([ParentWin, {expand,HtmlText,Tab}]) ->
@@ -60,9 +64,29 @@ init(ParentWin, HtmlText, Tab, App) ->
     wx_misc:endBusyCursor(),
     {HtmlWin, #state{panel=HtmlWin,expand_table=Tab,app=App}}.
 
+init(ParentWin, Callback) ->
+    {HtmlWin, State} = init(ParentWin, "", undefined, cdv),
+    {HtmlWin, State#state{delayed_fetch=Callback}}.
+
 %%%%%%%%%%%%%%%%%%%%%%% Callbacks %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
+handle_info(active, #state{panel=HtmlWin,delayed_fetch=Callback}=State)
+  when Callback=/=undefined ->
+    observer_lib:display_progress_dialog(HtmlWin,
+                                         "Crashdump Viewer",
+                                         "Reading data"),
+    {{expand,HtmlText,Tab},TW} = Callback:get_info(),
+    observer_lib:sync_destroy_progress_dialog(),
+    wx_misc:beginBusyCursor(),
+    wxHtmlWindow:setPage(HtmlWin,HtmlText),
+    cdv_wx:set_status(TW),
+    wx_misc:endBusyCursor(),
+    {noreply, State#state{expand_table=Tab,
+                          delayed_fetch=undefined,
+                          trunc_warn=TW}};
+
 handle_info(active, State) ->
+    cdv_wx:set_status(State#state.trunc_warn),
     {noreply, State};
 
 handle_info(Info, State) ->
-- 
cgit v1.2.3