diff options
| author | Dan Gudmundsson <[email protected]> | 2015-03-27 16:23:11 +0100 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2015-03-27 17:49:27 +0100 |
| commit | 21a1802064b3c2293687f2ba4171eb2389377e47 (patch) | |
| tree | 5b88fd167eaeebd2262c5830cc08dc9e104a439d /lib/observer/src/observer_lib.erl | |
| parent | d477e5978d165d7496fa6b983f8933f5105f901f (diff) | |
| download | otp-21a1802064b3c2293687f2ba4171eb2389377e47.tar.gz otp-21a1802064b3c2293687f2ba4171eb2389377e47.tar.bz2 otp-21a1802064b3c2293687f2ba4171eb2389377e47.zip | |
observer: Fix crash in process_window
Links can be to named processes, convert atom to list
Diffstat (limited to 'lib/observer/src/observer_lib.erl')
| -rw-r--r-- | lib/observer/src/observer_lib.erl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/observer/src/observer_lib.erl b/lib/observer/src/observer_lib.erl index 34c7b127ff..9592ab5977 100644 --- a/lib/observer/src/observer_lib.erl +++ b/lib/observer/src/observer_lib.erl @@ -493,8 +493,11 @@ link_entry2(Panel,{Target,Str},Cursor) -> wxWindow:setToolTip(TC, ToolTip), TC. -to_link(Tuple = {_Target, _Str}) -> - Tuple; +to_link(RegName={Name, Node}) when is_atom(Name), is_atom(Node) -> + Str = io_lib:format("{~p,~p}", [Name, Node]), + {RegName, Str}; +to_link(TI = {_Target, _Identifier}) -> + TI; to_link(Target0) -> Target=to_str(Target0), {Target, Target}. |