それを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 件のコメント:
コメントを投稿