diff options
| author | Sverker Eriksson <[email protected]> | 2016-10-26 17:37:35 +0200 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2016-10-26 17:37:35 +0200 |
| commit | 42b9881d075344344a8c78026e282b40fa707a0c (patch) | |
| tree | d9755627cee82a99eff6755c8f092ed45dd7a71e /lib/gs/doc/src/examples/ex8.erl | |
| parent | 6408400fc1ca9609169f6a0450f1c4671aced91c (diff) | |
| parent | 1302b09c4aa0f944bdc0e3beeebb2cf84cc06c89 (diff) | |
| download | otp-42b9881d075344344a8c78026e282b40fa707a0c.tar.gz otp-42b9881d075344344a8c78026e282b40fa707a0c.tar.bz2 otp-42b9881d075344344a8c78026e282b40fa707a0c.zip | |
Merge branch 'master' into sverker/hipe-fun-purge
Diffstat (limited to 'lib/gs/doc/src/examples/ex8.erl')
| -rw-r--r-- | lib/gs/doc/src/examples/ex8.erl | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/lib/gs/doc/src/examples/ex8.erl b/lib/gs/doc/src/examples/ex8.erl deleted file mode 100644 index 3081cb6114..0000000000 --- a/lib/gs/doc/src/examples/ex8.erl +++ /dev/null @@ -1,22 +0,0 @@ --module(ex8). --copyright('Copyright (c) 1991-97 Ericsson Telecom AB'). --vsn('$Revision: /main/release/2 $ '). - --export([start/0]). - -start() -> - gs:window(win,gs:start(),{map,true}), - gs:radiobutton(rb1,win,[{label,{text,"rb1"}},{value,a},{y,0}]), - gs:radiobutton(rb2,win,[{label,{text,"rb2"}},{value,a},{y,30}]), - gs:radiobutton(rb3,win,[{label,{text,"rb3"}},{value,b},{y,60}]), - rb_loop(). - -rb_loop() -> - receive - {gs,Any_Rb,click,Data,[Text, Grp, a | Rest]} -> - io:format("either rb1 or rb2 is on.~n",[]), - rb_loop(); - {gs,rb3,click,Data,[Text, Grp, b | Rest]} -> - io:format("rb3 is selected.~n",[]), - rb_loop() - end. |