The R13B03 release.OTP_R13B03

1 files changed, 150 insertions, 0 deletions

diff --git a/lib/wx/examples/demo/ex_popupMenu.erl b/lib/wx/examples/demo/ex_popupMenu.erl
new file mode 100644
index 0000000000..8774dbef7b
--- /dev/null
+++ b/lib/wx/examples/demo/ex_popupMenu.erl
@@ -0,0 +1,150 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 2009. All Rights Reserved.
+%% 
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%% 
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%% 
+%% %CopyrightEnd%
+
+-module(ex_popupMenu).
+
+-behaviour(wx_object).
+
+%% Client API
+-export([start/1]).
+
+%% wx_object callbacks
+-export([init/1, terminate/2,  code_change/3,
+	 handle_info/2, handle_call/3, handle_event/2]).
+
+-include_lib("wx/include/wx.hrl").
+
+-record(state, 
+	{
+	  parent,
+	  config,
+	  menu
+	}).
+
+start(Config) ->
+    wx_object:start_link(?MODULE, Config, []).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+init(Config) ->
+    wx:batch(fun() -> do_init(Config) end).
+
+do_init(Config) ->
+    Root = proplists:get_value(parent, Config),
+    Parent = wxPanel:new(Root,[]),    
+    MainSizer = wxBoxSizer:new(?wxVERTICAL),
+    Box = wxStaticBox:new(Parent, ?wxID_ANY, "Popup Menu"),
+    Sz = wxStaticBoxSizer:new(Box, ?wxVERTICAL),
+    Text = wxStaticText:new(Parent, ?wxID_ANY, "Right click to open popup menu", []),
+    Panel = wxPanel:new(Parent),
+    wxPanel:connect(Panel, right_up),
+    Sizer = wxBoxSizer:new(?wxVERTICAL),    
+    wxSizer:add(Sizer, Text, [{border, 20}, {flag, ?wxALL}]),
+    wxPanel:setSizer(Panel, Sizer),
+    wxSizer:add(Sz, Panel, [{proportion,1}, {flag, ?wxEXPAND}]),
+    wxSizer:layout(Sz),
+    PopupMenu = create_menu(),
+    wxSizer:add(MainSizer, Sz, [{proportion,1}, {flag, ?wxEXPAND}]),
+    wxWindow:setSizer(Parent, MainSizer),
+    {Parent, #state{parent=Parent, config=Config, menu=PopupMenu}}.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Async Events are handled in handle_event as in handle_info
+handle_event(#wx{obj = Panel,
+		 event = #wxMouse{type = right_up}},
+	     State = #state{menu = Menu}) ->
+    %% Open the popup menu
+    wxWindow:popupMenu(Panel, Menu),
+    {noreply, State};
+handle_event(#wx{obj = Menu, id = Id,
+		 event = #wxCommand{type = command_menu_selected}},
+	     State = #state{}) ->
+    %% Get the selected item label
+    Label = wxMenu:getLabel(Menu, Id),
+    demo:format(State#state.config, "wxMenu clicked ~p\n", [Label]),
+    {noreply, State};
+handle_event(Ev, State) ->
+    demo:format(State#state.config, "Unexpected Event ~p\n", [Ev]),
+    {noreply, State}.
+
+%% Callbacks handled as normal gen_server callbacks
+handle_info(Msg, State) ->
+    demo:format(State#state.config, "Got Info ~p\n", [Msg]),
+    {noreply, State}.
+
+handle_call(Msg, _From, State) ->
+    demo:format(State#state.config, "Got Call ~p\n", [Msg]),
+    {reply,{error, nyi}, State}.
+
+code_change(_, _, State) ->
+    {stop, ignore, State}.
+
+terminate(_Reason, #state{menu=Popup}) ->
+    wxMenu:destroy(Popup),
+    ok.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Local functions
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+create_menu() ->
+    Menu = wxMenu:new([]),
+    SubMenu  = wxMenu:new([]),
+    SubMenu2 = wxMenu:new([]),
+
+    wxMenu:append(Menu, ?wxID_UNDO, "Undo", []),
+    wxMenu:append(Menu, ?wxID_REDO, "Redo", []),
+    wxMenu:append(Menu, ?wxID_HELP, "Help", []),
+    wxMenu:appendSeparator(Menu),
+    wxMenu:appendCheckItem(Menu, ?wxID_ANY, "Check item", []),
+    wxMenu:appendSeparator(Menu),
+    wxMenu:appendRadioItem(Menu, ?wxID_ANY, "Radio item 1", []),
+    wxMenu:appendRadioItem(Menu, ?wxID_ANY, "Radio item 2", []),
+    wxMenu:appendRadioItem(Menu, ?wxID_ANY, "Radio item 3", []),
+    wxMenu:appendRadioItem(Menu, ?wxID_ANY, "Radio item 4", []),
+
+    wxMenu:appendSeparator(Menu),
+    wxMenuItem:enable(wxMenu:append(Menu, ?wxID_ANY, "Disabled", []), [{enable,false}]),
+    wxMenu:appendSeparator(Menu),
+
+    wxMenu:append(SubMenu, ?wxID_ABOUT, "About", []),
+    wxMenu:append(SubMenu, ?wxID_ANY, "Sub Item2", []),
+    wxMenu:append(SubMenu, ?wxID_SAVE, "Save", []),
+    wxMenu:break(SubMenu),
+    wxMenu:append(SubMenu, ?wxID_EXIT, "Exit", []),
+    wxMenu:append(SubMenu, ?wxID_OPEN, "Open", []),
+    wxMenu:append(SubMenu, ?wxID_NEW, "New", []),
+    wxMenu:append(Menu, ?wxID_ANY, "Sub menu", SubMenu, []),
+
+    wxMenu:appendCheckItem(SubMenu2, ?wxID_ANY, "Check Item", []),
+    wxMenu:appendSeparator(SubMenu2),
+    wxMenu:append(SubMenu2, ?wxID_CLEAR, "Clear", []),
+    wxMenu:append(SubMenu2, ?wxID_ANY, "Sub Item", []),
+
+    Bitmap = wxArtProvider:getBitmap("wxART_NEW"),
+    AnotherSubMenu = wxMenuItem:new([{parentMenu, Menu},
+				     {id, ?wxID_ANY},
+				     {text, "Another sub menu"},
+				     {subMenu, SubMenu2},
+				     {kind, ?wxITEM_NORMAL}]),
+    wxMenuItem:setBitmap(AnotherSubMenu, Bitmap),
+    wxMenu:append(Menu, AnotherSubMenu),
+
+    wxMenu:connect(Menu, command_menu_selected),
+    wxMenu:connect(SubMenu, command_menu_selected),
+    wxMenu:connect(SubMenu2, command_menu_selected),
+    Menu.