diff options
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. |