From 41380c0ff6c4fb56aad5702b9d9554ae36580063 Mon Sep 17 00:00:00 2001
From: Siri Hansen <siri@erlang.org>
Date: Wed, 16 Oct 2013 16:53:53 +0200
Subject: observer: improve wx version of crashdump_viewer

* bugfixes
* better progress dialogs
* show expanded binaries in different formats
* speed up reading of big crashdumps
---
 lib/observer/src/cdv_int_tab_wx.erl | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

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

diff --git a/lib/observer/src/cdv_int_tab_wx.erl b/lib/observer/src/cdv_int_tab_wx.erl
index f039bb3502..b4fa6ca889 100644
--- a/lib/observer/src/cdv_int_tab_wx.erl
+++ b/lib/observer/src/cdv_int_tab_wx.erl
@@ -23,9 +23,16 @@
 -include("crashdump_viewer.hrl").
 
 get_info() ->
-    [{"Hash Tables",cdv_table_page,get_hash_info()},
-     {"Index Tables",cdv_table_page,get_index_info()},
-     {"Internal ETS Tables",cdv_table_page,get_internal_ets_info()}].
+    observer_lib:report_progress({ok,"Processing internal tables"}),
+    HashInfo = get_hash_info(),
+    observer_lib:report_progress({ok,33}),
+    IndexInfo = get_index_info(),
+    observer_lib:report_progress({ok,66}),
+    IntEtsInfo = get_internal_ets_info(),
+    observer_lib:report_progress({ok,100}),
+    [{"Hash Tables",cdv_table_page,HashInfo},
+     {"Index Tables",cdv_table_page,IndexInfo},
+     {"Internal ETS Tables",cdv_table_page,IntEtsInfo}].
 
 %%%-----------------------------------------------------------------
 %%% Hash tables
-- 
cgit v1.2.3