2011年5月29日日曜日

wxErlang wxFrameのみ表示させる

ここのブログの記事に「wxErlang wxDialogのみ表示させる」ってのがある。
それをwxFrameにした版。
DialogをFrameに置換しただけ。

ソース:


-module(onlyframe).
-export([start/0]).
-include_lib("wx.hrl").


start() ->
    Wx = wx:new(),
    Frame = wx:batch(fun() -> create_window(Wx) end),
    wxWindow:show(Frame),
    loop(Frame),
    wx:destroy(),
    ok.


create_window(Wx)->
    Frame = wxFrame:new(Wx,
-1,
"Frame Example",
[{size,{300,200}}]),
    % connect
    wxFrame:connect(Frame, close_window),


    Frame.


loop(Frame) ->
    receive
% Window Close Event
#wx{event=#wxClose{}} ->
   io:format("~p Closing window ~n",[self()]),
   wxWindow:destroy(Frame),
   ok
    end.

色を変えているのは見やすさのため。
インデントがうまくできてないのは、すみません。

0 件のコメント:

コメントを投稿