diff options
| author | Sverker Eriksson <[email protected]> | 2016-10-05 16:11:31 +0200 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2016-10-05 16:11:31 +0200 |
| commit | 502ed5fd6bd36328d6be63c68ee2a56738ced058 (patch) | |
| tree | 80cfb83dd63ffa876541740cc067ea05bb39118d /lib/gs/doc/src/examples/ex4.erl | |
| parent | cf102c1b1225450e7918a6119b7d949eb7e575c4 (diff) | |
| parent | 0bac72a18e8a5f6a46baae9c9ac73bde32948ff6 (diff) | |
| download | otp-502ed5fd6bd36328d6be63c68ee2a56738ced058.tar.gz otp-502ed5fd6bd36328d6be63c68ee2a56738ced058.tar.bz2 otp-502ed5fd6bd36328d6be63c68ee2a56738ced058.zip | |
Merge branch 'master' into sverker/master/load_nif-print-init-error
Diffstat (limited to 'lib/gs/doc/src/examples/ex4.erl')
| -rw-r--r-- | lib/gs/doc/src/examples/ex4.erl | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/lib/gs/doc/src/examples/ex4.erl b/lib/gs/doc/src/examples/ex4.erl deleted file mode 100644 index 21a0fe3e96..0000000000 --- a/lib/gs/doc/src/examples/ex4.erl +++ /dev/null @@ -1,23 +0,0 @@ --module(ex4). --copyright('Copyright (c) 1991-97 Ericsson Telecom AB'). --vsn('$Revision: /main/release/2 $ '). - --export([init/0]). - -init() -> - S = gs:start(), - gs:create(window,win1,S,[{width,300},{height,200}]), - gs:create(button,b1,win1,[{label, {text,"Button1"}},{y,0}]), - gs:create(button,b2,win1,[{label, {text,"Button2"}},{y,40}]), - gs:config(win1, {map,true}), - loop(). %% look, no args! - -loop() -> - receive - {gs,b1,click,_,_} -> % button 1 pressed - io:format("Button 1 pressed!~n",[]), - loop(); - {gs,b2,click,_,_} -> % button 2 pressed - io:format("Button 2 pressed!~n",[]), - loop() - end. |