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_choices.erl | 159 ++++++++++++++++++++++++++++++++++++ 1 file changed, 159 insertions(+) create mode 100644 lib/wx/examples/demo/ex_choices.erl (limited to 'lib/wx/examples/demo/ex_choices.erl') diff --git a/lib/wx/examples/demo/ex_choices.erl b/lib/wx/examples/demo/ex_choices.erl new file mode 100644 index 0000000000..75f8d22493 --- /dev/null +++ b/lib/wx/examples/demo/ex_choices.erl @@ -0,0 +1,159 @@ +%% +%% %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_choices). + +-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, + list_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 = wxScrolledWindow:new(Parent, []), + + %% Setup sizers + MainSizer = wxBoxSizer:new(?wxVERTICAL), + ListBoxSizer = wxStaticBoxSizer:new(?wxVERTICAL, Panel, + [{label, "wxListBox"}]), + + ChoiceSizer = wxStaticBoxSizer:new(?wxVERTICAL, Panel, + [{label, "wxChoice"}]), + SpinSizer = wxStaticBoxSizer:new(?wxVERTICAL, Panel, + [{label, "wxSpinCtrl"}]), + ComboSizer = wxStaticBoxSizer:new(?wxVERTICAL, Panel, + [{label, "wxComboBox"}]), + Sizer = wxBoxSizer:new(?wxHORIZONTAL), + Sizer3 = wxBoxSizer:new(?wxHORIZONTAL), + + Choices = ["one","two","three", + "four","five","six", + "seven","eight","nine", + "ten", "eleven", "twelve"], + + %% Create a wxListBox that uses multiple selection + ListBox = wxListBox:new(Panel, 1, [{size, {-1,100}}, + {choices, ["Multiple selection"|Choices]}, + {style, ?wxLB_MULTIPLE}]), + wxListBox:setToolTip(ListBox, "A wxListBox with multiple selection"), + + %% Create a wxListBox that uses single selection + ListBox2 = wxListBox:new(Panel, 2, [{size, {-1,100}}, + {choices, ["Single selection"|Choices]}, + {style, ?wxLB_SINGLE}]), + wxListBox:setToolTip(ListBox2, "A wxListBox with single selection"), + + %% Create a wxChoice + Choice = wxChoice:new(Panel, 4, [{choices, Choices}]), + wxChoice:setToolTip(Choice, "A wxChoice"), + + %% Create a wxSpinCtrl with range between 0 and 100 + SpinCtrl = wxSpinCtrl:new(Panel, []), + wxSpinCtrl:setRange(SpinCtrl, 0, 100), + wxSpinCtrl:setToolTip(SpinCtrl, "A wxSpinCtrl with range from 0 to 100"), + + %% Create a wxComboBox and set the value to "Default value" + ComboBox = wxComboBox:new(Panel, 5, [{choices, Choices}]), + wxComboBox:setToolTip(ComboBox, "A wxComboBox"), + + + wxChoice:connect(Choice,command_choice_selected), + wxSpinCtrl:connect(SpinCtrl,command_spinctrl_updated), + wxComboBox:connect(ComboBox, command_combobox_selected), + + + %% Add to sizers + Options = [{border,4}, {flag, ?wxALL}], + wxSizer:add(Sizer, ListBox, Options), + wxSizer:add(Sizer, ListBox2, Options), + + wxSizer:add(ChoiceSizer, Choice, Options), + wxSizer:add(SpinSizer, SpinCtrl, Options), + wxSizer:add(Sizer3, ChoiceSizer, []), + wxSizer:add(Sizer3, SpinSizer, [{border, 4}, {flag, ?wxLEFT}]), + + wxSizer:add(ComboSizer, ComboBox, Options), + + wxSizer:add(ListBoxSizer, Sizer, Options), + wxSizer:add(MainSizer, ListBoxSizer, Options), + wxSizer:add(MainSizer, Sizer3, Options), + wxSizer:add(MainSizer, ComboSizer, Options), + + wxScrolledWindow:setScrollRate(Panel, 5, 5), + wxPanel:setSizer(Panel, MainSizer), + {Panel, #state{parent=Panel, config=Config, + list_box = ListBox}}. + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% Async Events are handled in handle_event as in handle_info +handle_event(#wx{obj = ComboBox, + event = #wxCommand{type = command_combobox_selected}}, + State = #state{}) -> + Value = wxComboBox:getValue(ComboBox), + demo:format(State#state.config,"Selected wxComboBox ~p\n",[Value]), + {noreply, State}; +handle_event(#wx{event = #wxCommand{type = command_choice_selected, + cmdString = Value}}, + State = #state{}) -> + demo:format(State#state.config,"Selected wxChoice ~p\n",[Value]), + {noreply, State}; +handle_event(#wx{event = #wxSpin{type = command_spinctrl_updated, + commandInt = Int}}, + State = #state{}) -> + demo:format(State#state.config,"wxSpinCtrl changed to ~p\n",[Int]), + {noreply, State}; +handle_event(Ev = #wx{}, State = #state{}) -> + demo:format(State#state.config,"Got 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) -> + ok. + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% Local functions +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + -- cgit v1.2.3