2011年10月16日日曜日

Erlang wxDialog showメソッド 表示/非表示

Java逆引き大全500の極意
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 件のコメント:

コメントを投稿