diff options
author | Erlang/OTP <[email protected]> | 2009-11-20 14:54:40 +0000 |
---|---|---|
committer | Erlang/OTP <[email protected]> | 2009-11-20 14:54:40 +0000 |
commit | 84adefa331c4159d432d22840663c38f155cd4c1 (patch) | |
tree | bff9a9c66adda4df2106dfd0e5c053ab182a12bd /lib/gs/doc/src/examples/ex8.erl | |
download | otp-84adefa331c4159d432d22840663c38f155cd4c1.tar.gz otp-84adefa331c4159d432d22840663c38f155cd4c1.tar.bz2 otp-84adefa331c4159d432d22840663c38f155cd4c1.zip |
The R13B03 release.OTP_R13B03
Diffstat (limited to 'lib/gs/doc/src/examples/ex8.erl')
-rw-r--r-- | lib/gs/doc/src/examples/ex8.erl | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/lib/gs/doc/src/examples/ex8.erl b/lib/gs/doc/src/examples/ex8.erl new file mode 100644 index 0000000000..3081cb6114 --- /dev/null +++ b/lib/gs/doc/src/examples/ex8.erl @@ -0,0 +1,22 @@ +-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. |