From 6931dce17580d097351dd7be09ce7c9ed3f72827 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= Date: Mon, 27 Jun 2016 11:48:03 +0200 Subject: Remove the gs application The gs application ws deprecated in R15B01. --- lib/gs/examples/entry_demo.erl | 70 ------------------------------------------ 1 file changed, 70 deletions(-) delete mode 100644 lib/gs/examples/entry_demo.erl (limited to 'lib/gs/examples/entry_demo.erl') diff --git a/lib/gs/examples/entry_demo.erl b/lib/gs/examples/entry_demo.erl deleted file mode 100644 index f37780f352..0000000000 --- a/lib/gs/examples/entry_demo.erl +++ /dev/null @@ -1,70 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 1996-2016. All Rights Reserved. -%% -%% Licensed under the Apache License, Version 2.0 (the "License"); -%% you may not use this file except in compliance with the License. -%% You may obtain a copy of the License at -%% -%% http://www.apache.org/licenses/LICENSE-2.0 -%% -%% Unless required by applicable law or agreed to in writing, software -%% distributed under the License is distributed on an "AS IS" BASIS, -%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -%% See the License for the specific language governing permissions and -%% limitations under the License. -%% -%% %CopyrightEnd% -%% - -%% -%% ------------------------------------------------------------ -%% Entry Demo -%% ------------------------------------------------------------ - --module(entry_demo). --compile([{nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,create,3}}, - {nowarn_deprecated_function,{gs,create,4}}, - {nowarn_deprecated_function,{gs,read,2}}, - {nowarn_deprecated_function,{gs,start,0}}, - {nowarn_deprecated_function,{gs,window,2}}]). - --export([start/0,init/1]). - -start() -> - spawn(entry_demo,init,[self()]), - receive - {entry_reply,Reply} -> Reply - end. - -init(Pid) -> - S=gs:start(), - Win=gs:window(S,[{title,"Entry Demo"},{width,150},{height,100}]), - gs:create(label,Win,[{width,150},{label,{text,"What's your name?"}}]), - 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,_,_} -> - 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. - -%% ---------------------------------------- -%% done -- cgit v1.2.3