diff options
| author | Dan Gudmundsson <[email protected]> | 2012-05-07 14:28:55 +0200 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2012-05-08 12:36:48 +0200 |
| commit | 5628fb8d88f91b3ef8e140e2658a6f61b4e42adb (patch) | |
| tree | 5fd637bb062e5646cb6c70db6d564ad8d76253b7 /lib/observer/src/observer_wx.erl | |
| parent | 515e0ad4040bc50a637bb31fc33c825d41b4f0ac (diff) | |
| download | otp-5628fb8d88f91b3ef8e140e2658a6f61b4e42adb.tar.gz otp-5628fb8d88f91b3ef8e140e2658a6f61b4e42adb.tar.bz2 otp-5628fb8d88f91b3ef8e140e2658a6f61b4e42adb.zip | |
[observer] Add more popup menus and info selected pid
Diffstat (limited to 'lib/observer/src/observer_wx.erl')
| -rw-r--r-- | lib/observer/src/observer_wx.erl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/observer/src/observer_wx.erl b/lib/observer/src/observer_wx.erl index cff5d08f06..ce3f48a05d 100644 --- a/lib/observer/src/observer_wx.erl +++ b/lib/observer/src/observer_wx.erl @@ -20,7 +20,7 @@ -behaviour(wx_object). -export([start/0]). --export([create_menus/2, get_attrib/1, get_tracer/0, +-export([create_menus/2, get_attrib/1, get_tracer/0, set_status/1, create_txt_dialog/4, try_rpc/4, return_to_localnode/2]). -export([init/1, handle_event/2, handle_cast/2, terminate/2, code_change/3, @@ -74,6 +74,9 @@ create_menus(Object, Menus) when is_list(Menus) -> get_attrib(What) -> wx_object:call(observer, {get_attrib, What}). +set_status(What) -> + wx_object:cast(observer, {status_bar, What}). + get_tracer() -> wx_object:call(observer, get_tracer). @@ -290,6 +293,10 @@ handle_event(Event, State) -> Pid ! Event, {noreply, State}. +handle_cast({status_bar, Msg}, State=#state{status_bar=SB}) -> + wxStatusBar:setStatusText(SB, Msg), + {noreply, State}; + handle_cast(_Cast, State) -> {noreply, State}. |