← Back to branch summary

~ubuntu-branches/debian/squeeze/erlang/squeeze

« back to all changes in this revision

Viewing changes to lib/wx/examples/simple/hello.erl

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2009-05-07 15:07:37 UTC
  • mfrom: (1.2.1 upstream) (5.1.2 sid)
  • Revision ID: james.westby@ubuntu.com-20090507150737-i4yb5elwinm7r0hc
Tags: 1:13.b-dfsg1-1
http://bugs.debian.org/527053
http://bugs.debian.org/526682
http://bugs.debian.org/526627
* Removed another bunch of non-free RFCs from original tarball
  (closes: #527053).
* Fixed build-dependencies list by adding missing comma. This requires
  libsctp-dev again. Also, added libsctp1 dependency to erlang-base and
  erlang-base-hipe packages because the shared library is loaded via
  dlopen now and cannot be added using dh_slibdeps (closes: #526682).
* Weakened dependency of erlang-webtool on erlang-observer to recommends
  to avoid circular dependencies (closes: #526627).
* Added solaris-i386 to HiPE enabled architectures.
* Made script sources in /usr/lib/erlang/erts-*/bin directory executable,
  which is more convenient if a user wants to create a target Erlang system.
* Shortened extended description line for erlang-dev package to make it
  fit 80x25 terminals.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/wx/examples/simple/hello.erl
 
1
%%
 
2
%% %CopyrightBegin%
 
3
%% 
 
4
%% Copyright Ericsson AB 2009. All Rights Reserved.
 
5
%% 
 
6
%% The contents of this file are subject to the Erlang Public License,
 
7
%% Version 1.1, (the "License"); you may not use this file except in
 
8
%% compliance with the License. You should have received a copy of the
 
9
%% Erlang Public License along with this software. If not, it can be
 
10
%% retrieved online at http://www.erlang.org/.
 
11
%% 
 
12
%% Software distributed under the License is distributed on an "AS IS"
 
13
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
 
14
%% the License for the specific language governing rights and limitations
 
15
%% under the License.
 
16
%% 
 
17
%% %CopyrightEnd%
 
18
%%
 
19
%%%-------------------------------------------------------------------
 
20
%%% File    : hello.erl
 
21
%%% Author  : Matthew Harrison <harryhuk at users.sourceforge.net>
 
22
%%% Description : _really_ minimal example of a wxerlang app
 
23
%%%
 
24
%%% Created :  18 Sep 2008 by  Matthew Harrison <harryhuk at users.sourceforge.net>
 
25
%%%-------------------------------------------------------------------
 
26
-module(hello).
 
27
 
 
28
-include_lib("wx/include/wx.hrl").
 
29
 
 
30
-export([start/0]).
 
31
-compile(export_all).
 
32
 
 
33
start() ->
 
34
    Wx = wx:new(),
 
35
    Frame = wx:batch(fun() -> create_window(Wx) end),
 
36
    wxWindow:show(Frame),
 
37
    loop(Frame),
 
38
    wx:destroy(),
 
39
    ok.
 
40
 
 
41
create_window(Wx) ->
 
42
    Frame = wxFrame:new(Wx, 
 
43
                        -1, % window id
 
44
                        "Hello World", % window title
 
45
                        [{size, {600,400}}]),
 
46
 
 
47
 
 
48
    wxFrame:createStatusBar(Frame,[]),
 
49
 
 
50
    %% if we don't handle this ourselves, wxwidgets will close the window
 
51
    %% when the user clicks the frame's close button, but the event loop still runs
 
52
    wxFrame:connect(Frame, close_window),
 
53
 
 
54
    ok = wxFrame:setStatusText(Frame, "Hello World!",[]),
 
55
    Frame.
 
56
 
 
57
loop(Frame) ->
 
58
    receive 
 
59
        #wx{event=#wxClose{}} ->
 
60
            io:format("~p Closing window ~n",[self()]),
 
61
            ok = wxFrame:setStatusText(Frame, "Closing...",[]),
 
62
            wxWindow:destroy(Frame),
 
63
            ok;
 
64
        Msg ->
 
65
            io:format("Got ~p ~n", [Msg]),
 
66
            loop(Frame)
 
67
    end.
 
68