From 6018a51626f4925e863778b99d546670eabbf006 Mon Sep 17 00:00:00 2001
From: Fredrik Gustafsson <fredrik@erlang.org>
Date: Tue, 21 May 2013 09:09:25 +0200
Subject: observer: re-indetion of observer_procinfo.erl

---
 lib/observer/src/observer_procinfo.erl | 96 +++++++++++++++++-----------------
 1 file changed, 48 insertions(+), 48 deletions(-)

(limited to 'lib/observer')

diff --git a/lib/observer/src/observer_procinfo.erl b/lib/observer/src/observer_procinfo.erl
index 4ab4715e1f..98e787426f 100644
--- a/lib/observer/src/observer_procinfo.erl
+++ b/lib/observer/src/observer_procinfo.erl
@@ -239,54 +239,54 @@ init_stack_page(Parent, Pid) ->
 
 init_state_page(Parent, Pid) ->
     Text = init_text_page(Parent),
-	Update = fun() ->
-			%% First, test if sys:get_status/2 have any chance to return an answer
-			case rpc:call(node(Pid), proc_lib, translate_initial_call, [Pid])
-			of
-			%% Not a gen process
-			{proc_lib,init_p,5} -> Misc = [{"Information", "Not available"}];
-			%% May be a gen process
-			{M, _F, _A} ->
-					%% Get the behavio(u)r
-					I = rpc:call(node(Pid), M, module_info, [attributes]),
-					case lists:keyfind(behaviour, 1, I) of
-						false -> case lists:keyfind(behavior, 1, I) of
-								false		-> B = undefined;
-								{behavior, [B]}	-> B
-							end;
-						{behaviour, [B]} -> B
-					end,
-					%% but not sure that system messages are treated by this process
-					%% so using a rpc with a small timeout in order not to lag the display
-					case rpc:call(node(Pid), sys, get_status, [Pid, 200])
-					of
-					{status, _, {module, _}, [_PDict, _SysState, _Parent, _Dbg,
-						[Header,{data, First},{data, Second}]]} ->
-							Misc = [{"Behaviour", B}] ++ [Header] ++ First ++ Second;
-					{status, _, {module, _}, [_PDict, _SysState, _Parent, _Dbg,
-						[Header,{data, First}, OtherFormat]]} ->
-							Misc = [{"Behaviour", B}] ++ [Header] ++ First ++ [{"State",OtherFormat}];
-					{status, _, {module, _}, [_PDict, _SysState, _Parent, _Dbg,
-						OtherFormat]} ->
-							%% Formatted status ?
-							case lists:keyfind(format_status, 1, rpc:call(node(Pid), M, module_info, [exports])) of
-								false	-> Opt = {"Format", unknown};
-								_	-> Opt = {"Format", overriden}
-							end,
-							Misc = [{"Behaviour", B}] ++ [Opt, {"State",OtherFormat}];
-					{badrpc,{'EXIT',{timeout, _}}} ->
-							Misc = [{"Information","Timed out"},
-								{"Tip","system messages are certainly not treated by this process"}]
-					end;
-			_ -> Misc=[], throw(process_undefined)
-			end,
-			Dict = [io_lib:format("~-20.s ~tp~n", [K, V]) || {K, V} <- Misc],
-			Last = wxTextCtrl:getLastPosition(Text),
-			wxTextCtrl:remove(Text, 0, Last),
-			wxTextCtrl:writeText(Text, Dict)
-	end,
-	Update(),
-	{Text, Update}.
+    Update = fun() ->
+		     %% First, test if sys:get_status/2 have any chance to return an answer
+		     case rpc:call(node(Pid), proc_lib, translate_initial_call, [Pid])
+		     of
+			 %% Not a gen process
+			 {proc_lib,init_p,5} -> Misc = [{"Information", "Not available"}];
+			 %% May be a gen process
+			 {M, _F, _A} ->
+			     %% Get the behavio(u)r
+			     I = rpc:call(node(Pid), M, module_info, [attributes]),
+			     case lists:keyfind(behaviour, 1, I) of
+				 false -> case lists:keyfind(behavior, 1, I) of
+					      false		-> B = undefined;
+					      {behavior, [B]}	-> B
+					  end;
+				 {behaviour, [B]} -> B
+			     end,
+			     %% but not sure that system messages are treated by this process
+			     %% so using a rpc with a small timeout in order not to lag the display
+			     case rpc:call(node(Pid), sys, get_status, [Pid, 200])
+			     of
+				 {status, _, {module, _}, [_PDict, _SysState, _Parent, _Dbg,
+							   [Header,{data, First},{data, Second}]]} ->
+				     Misc = [{"Behaviour", B}] ++ [Header] ++ First ++ Second;
+				 {status, _, {module, _}, [_PDict, _SysState, _Parent, _Dbg,
+							   [Header,{data, First}, OtherFormat]]} ->
+				     Misc = [{"Behaviour", B}] ++ [Header] ++ First ++ [{"State",OtherFormat}];
+				 {status, _, {module, _}, [_PDict, _SysState, _Parent, _Dbg,
+							   OtherFormat]} ->
+				     %% Formatted status ?
+				     case lists:keyfind(format_status, 1, rpc:call(node(Pid), M, module_info, [exports])) of
+					 false	-> Opt = {"Format", unknown};
+					 _	-> Opt = {"Format", overriden}
+				     end,
+				     Misc = [{"Behaviour", B}] ++ [Opt, {"State",OtherFormat}];
+				 {badrpc,{'EXIT',{timeout, _}}} ->
+				     Misc = [{"Information","Timed out"},
+					     {"Tip","system messages are certainly not treated by this process"}]
+			     end;
+			 _ -> Misc=[], throw(process_undefined)
+		     end,
+		     Dict = [io_lib:format("~-20.s ~tp~n", [K, V]) || {K, V} <- Misc],
+		     Last = wxTextCtrl:getLastPosition(Text),
+		     wxTextCtrl:remove(Text, 0, Last),
+		     wxTextCtrl:writeText(Text, Dict)
+	     end,
+    Update(),
+    {Text, Update}.
 
 
 create_menus(MenuBar) ->
-- 
cgit v1.2.3