From 84adefa331c4159d432d22840663c38f155cd4c1 Mon Sep 17 00:00:00 2001 From: Erlang/OTP Date: Fri, 20 Nov 2009 14:54:40 +0000 Subject: The R13B03 release. --- lib/wx/examples/demo/ex_radioBox.erl | 163 +++++++++++++++++++++++++++++++++++ 1 file changed, 163 insertions(+) create mode 100644 lib/wx/examples/demo/ex_radioBox.erl (limited to 'lib/wx/examples/demo/ex_radioBox.erl') diff --git a/lib/wx/examples/demo/ex_radioBox.erl b/lib/wx/examples/demo/ex_radioBox.erl new file mode 100644 index 0000000000..8211aec4a2 --- /dev/null +++ b/lib/wx/examples/demo/ex_radioBox.erl @@ -0,0 +1,163 @@ +%% +%% %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_radioBox). + +-behaviour(wx_object). + +-export([start/1, 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, + radio_box + }). + +start(Config) -> + wx_object:start_link(?MODULE, Config, []). + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +init(Config) -> + wx:batch(fun() -> do_init(Config) end). + +do_init(Config) -> + Parent = proplists:get_value(parent, Config), + Panel = wxPanel:new(Parent, []), + + %% Setup sizers + MainSizer = wxBoxSizer:new(?wxVERTICAL), + Sizer = wxBoxSizer:new(?wxHORIZONTAL), + + Choices = ["Item " ++ integer_to_list(Int) || Int <- lists:seq(1,12)], + RadioBox = wxRadioBox:new(Panel, 1, "wxRadioBox Horizontal", + ?wxDefaultPosition, + ?wxDefaultSize, + Choices, + [{majorDim, 3}, + {style, ?wxHORIZONTAL}]), + wxRadioBox:connect(RadioBox, command_radiobox_selected), + + RadioButtonSizer = create_radio_buttons(Panel), + + CheckSizer = create_checkboxes(Panel), + + %% Add to sizers + wxSizer:add(Sizer, RadioButtonSizer), + wxSizer:addSpacer(Sizer, 20), + wxSizer:add(Sizer, CheckSizer), + + wxSizer:add(MainSizer, RadioBox), + wxSizer:addSpacer(MainSizer, 20), + wxSizer:add(MainSizer, Sizer), + + wxPanel:setSizer(Panel, MainSizer), + {Panel, #state{parent=Panel, config=Config, + radio_box = RadioBox}}. + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% Async Events are handled in handle_event as in handle_info +handle_event(#wx{event = #wxCommand{type = command_radiobox_selected, + cmdString = Item}}, + State = #state{}) -> + demo:format(State#state.config,"wxRadioBox selected ~p\n",[Item]), + {noreply, State}; +handle_event(#wx{obj = Checkbox, + event = #wxCommand{type = command_checkbox_clicked, + commandInt = Int}}, + State = #state{config = Config}) -> + Label = wxCheckBox:getLabel(Checkbox), + case Int of + 0 -> demo:format(Config,"wxCheckBox deselected ~p\n",[Label]); + 1 -> demo:format(Config,"wxCheckBox selected ~p \n",[Label]); + 2 -> demo:format(Config,"wxCheckBox middle-state ~p\n",[Label]) + end, + {noreply, State}; +handle_event(#wx{obj = RadioButton, + event = #wxCommand{type = command_radiobutton_selected}}, + State = #state{}) -> + Label = wxRadioButton:getLabel(RadioButton), + demo:format(State#state.config,"wxRadioButton selected ~p\n",[Label]), + {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) -> + ok. + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% Local functions +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +create_checkboxes(Panel) -> + CheckSizer = wxStaticBoxSizer:new(?wxVERTICAL, Panel, + [{label, "wxCheckBox"}]), + + CheckBoxes = + [wxCheckBox:new(Panel, ?wxID_ANY, "Label1", []), + wxCheckBox:new(Panel, ?wxID_ANY, "Label2", []), + wxCheckBox:new(Panel, ?wxID_ANY, "Label3", []), + wxCheckBox:new(Panel, ?wxID_ANY, "3-state checkbox", + [{style, ?wxCHK_3STATE bor + ?wxCHK_ALLOW_3RD_STATE_FOR_USER}]), + wxCheckBox:new(Panel, ?wxID_ANY, "Right aligned", + [{style, ?wxALIGN_RIGHT}])], + Fun = + fun(Item) -> + wxCheckBox:connect(Item, command_checkbox_clicked), + wxSizer:add(CheckSizer, Item) + end, + wx:foreach(Fun, CheckBoxes), + CheckSizer. + + +create_radio_buttons(Panel) -> + RadioButtonSizer = wxStaticBoxSizer:new(?wxVERTICAL, Panel, + [{label, "wxRadioButton"}]), + + Buttons = + [wxRadioButton:new(Panel, ?wxID_ANY, "Group1 Radio1", + [{style, ?wxRB_GROUP}]), + wxRadioButton:new(Panel, ?wxID_ANY, "Group1 Radio2", []), + wxRadioButton:new(Panel, ?wxID_ANY, "Group1 Radio3", []), + wxRadioButton:new(Panel, ?wxID_ANY, "Group2 Radio1", + [{style, ?wxRB_GROUP}]), + wxRadioButton:new(Panel, ?wxID_ANY, "Group2 Radio2", []), + wxRadioButton:new(Panel, ?wxID_ANY, "Group2 Radio3", [])], + Fun = + fun(Item) -> + wxRadioButton:connect(Item, command_radiobutton_selected), + wxSizer:add(RadioButtonSizer, Item) + end, + + wx:foreach(Fun, Buttons), + RadioButtonSizer. -- cgit v1.2.3