2011年10月19日水曜日
Erlang Dialog setLabel サンプル Sample
タイトルにある通りのサンプル。
Dialogの生成でタイトルを"Target Display"に設定しているが、setLabelで"setLabel"に再設定している。
表示される画面の左上が"setLabel"になっているはず。
ソース:
-module(dialogSetLabel).
-export([start/0]).
%%-export([new/2]). %% API
-include_lib("wx.hrl").
start()->
Wx = wx:new(),
Dialog = wx:batch(fun()->new(Wx, 100) end),
wxWindow:show(Dialog),
loop(Dialog).
new(Parent,Id)->
Option = [ { size, {210, 100} } ],
Head = "Target Display",
Dialog = wxDialog:new(Parent, Id, Head, Option),
wxDialog:setLabel(Dialog, "setLabel"),
wxDialog:connect(Dialog, close_window),
Dialog.
loop(Dialog)->
receive
%% Closeボタン押下時
#wx{obj = Obj, event = #wxClose{}}->
io:format("~p Closing window ~n", [self()]),
wxWindow:destroy(Obj)
end.
登録:
コメントの投稿 (Atom)
0 件のコメント:
コメントを投稿