diff options
author | Björn Gustavsson <[email protected]> | 2016-06-27 11:48:03 +0200 |
---|---|---|
committer | Björn Gustavsson <[email protected]> | 2016-06-27 11:49:57 +0200 |
commit | 6931dce17580d097351dd7be09ce7c9ed3f72827 (patch) | |
tree | 2456845e95ed0112c2f08ed8ab6e867686b91d7a /lib/gs/doc/src/examples/ex9.erl | |
parent | dfccd57cb2b69fc3ab01acd0ccbfc894a8403358 (diff) | |
download | otp-6931dce17580d097351dd7be09ce7c9ed3f72827.tar.gz otp-6931dce17580d097351dd7be09ce7c9ed3f72827.tar.bz2 otp-6931dce17580d097351dd7be09ce7c9ed3f72827.zip |
Remove the gs application
The gs application ws deprecated in R15B01.
Diffstat (limited to 'lib/gs/doc/src/examples/ex9.erl')
-rw-r--r-- | lib/gs/doc/src/examples/ex9.erl | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/lib/gs/doc/src/examples/ex9.erl b/lib/gs/doc/src/examples/ex9.erl deleted file mode 100644 index 2034520c6c..0000000000 --- a/lib/gs/doc/src/examples/ex9.erl +++ /dev/null @@ -1,43 +0,0 @@ --module(ex9). --copyright('Copyright (c) 1991-97 Ericsson Telecom AB'). --vsn('$Revision: /main/release/2 $ '). - --export([start/0,init/1]). - -start() -> - spawn(ex9, init, [self()]), - receive - {entry_reply, Reply} -> Reply - end. - -init(Pid) -> - S = gs:start(), - Win = gs:create(window,S,[{title,"Entry Demo"}, - {width,150},{height,100}]), - gs:create(label,Win,[{label,{text,"What's your name?"}}, - {width,150}]), - gs:create(entry,entry,Win,[{x,10},{y,30},{width,130}, - {keypress,true}]), - gs:create(button,ok,Win,[{width,45},{y,60},{x,10}, - {label,{text,"Ok"}}]), - gs:create(button,cancel,Win,[{width,60},{y,60},{x,80}, - {label,{text,"Cancel"}}]), - gs:config(Win,{map,true}), - loop(Pid). - -loop(Pid) -> - receive - {gs,entry,keypress,_,['Return'|_]} -> - Text=gs:read(entry,text), - Pid ! {entry_reply,{name,Text}}; - {gs,entry,keypress,_,_} -> % all other keypresses - loop(Pid); - {gs,ok,click,_,_} -> - Text=gs:read(entry,text), - Pid ! {entry_reply,{name,Text}}; - {gs,cancel,click,_,_} -> - Pid ! {entry_reply,cancel}; - X -> - io:format("Got X=~w~n",[X]), - loop(Pid) - end. |