http://goo.gl/JBiP9
上記Java本のサンプル129の「フレームウィンドウの表示/非表示を切り替える」というページをErlangで記述してみた。その表示例とソースを以下に掲載する。
表示例:
本サンプルの実行手順は以下。
1.setVisible.erlをコンパイルする。[c(setVisible).]
2.setVisible2.erlをコンパイルする。[c(setVisible2).]
3.[setVisible:start().]を実行すると、setVisible Test.画面(後ろの画面)が表示される。
4.[show Window]ボタンを押下すると、Target Display画面が表示される。
5.Target Display画面の×ボタンを押下すると、Target Display画面が非表示される。
6.setVisible Test.画面の×ボタンを押下すると、setVisible Test.画面が閉じる。
ソース:
setVisible.erl:https://docs.google.com/leaf?id=0B8Fi1kuQJgFrZmJjNzRlY2ItMWJkMC00NTljLWI5NTktYjBhMGFiN2Q4YTE3&hl=ja
setVisible2.erl:https://docs.google.com/leaf?id=0B8Fi1kuQJgFrYTIxMDk0MGYtMWE0ZS00YmI4LWIzMWYtNDUzNTkwY2VlOWZk&hl=ja
setVisible.erl:
-module(setVisible).
-export([start/0]).
-include_lib("wx.hrl").
-define(wxIDButton, 10).
start()->
Wx = wx:new(),
{Frame, Pid} = wx:batch(fun()->create_window(Wx) end),
wxWindow:show(Frame),
loop(Pid),
ok.
%% 画面を表示
create_window(Wx)->
Option = [ { size, {310, 150 } } ],
Str = "setVisible Test.",
Frame = wxFrame:new(Wx,
?wxID_ANY,
Str,
Option),
% Set Button On Frame
%PnlOp = [ {pos, {120, 10}}, {size, {50, 10}}],
BtnOp = [ {label, "show Window"} ],
Panel = wxPanel:new(Frame, 120, 10, 50, 10),
Button = wxButton:new(Panel, ?wxIDButton, BtnOp),
% Create Status Bar
wxFrame:createStatusBar(Frame, []),
wxFrame:setStatusText(Frame, Str),
%% Dialog生成
Pid = spawn_link(fun() -> setVisible2:start() end),
%% イベントを登録
wxFrame:connect( Frame, close_window ),%% Closeボタン
wxButton:connect(Button, command_button_clicked),%% show Windowボタン
{Frame, Pid}.
loop(Pid)->
receive
%% Closeボタン押下時
#wx{obj = Obj, event = #wxClose{}}->
io:format("~p Closing window ~n", [self()]),
wxWindow:destroy(Obj);
%% ボタン押下時
#wx{ event = #wxCommand{} } ->
Pid ! {visible, self()},
io:format(" Clicked Button ~n"),
loop(Pid);
%% Dialogからのメッセージがあった時
{reply, ok}->
loop(Pid)
end.
setVisible2.erl:
-module(setVisible2).
-export([start/0]).
%%-export([new/2]). %% API
-include_lib("wx.hrl").
start()->
Wx = wx:new(),
Dialog = wx:batch(fun()->new(Wx, 100) end),
loop(Dialog).
new(Parent,Id)->
Option = [ { size, {210, 100} } ],
Head = "Target Display",
Dialog = wxDialog:new(Parent, Id, Head, Option),
Str = "Push close Button.",
OPST1 = [{pos, {50,10}}],
wxStaticText:new( Dialog, 1 , Str, OPST1),
wxDialog:connect(Dialog, close_window),
Dialog.
%% 閉じるボタン押下時の動作
loop(Dialog)->
receive
%% closeボタン押下時
#wx{event=#wxClose{ type = close_window }}->
wxDialog:show(Dialog, [{show, false}]),
loop(Dialog);
%% 他ウィンドウのボタンが押下された時
{visible, _From} ->
%% Dialogを表示する
wxDialog:show(Dialog, [{show, true}]),
_From ! {reply, ok},
loop(Dialog)
end.
0 件のコメント:
コメントを投稿