diff options
Diffstat (limited to 'lib/gs/examples/menu_demo.erl')
| -rw-r--r-- | lib/gs/examples/menu_demo.erl | 81 | 
1 files changed, 0 insertions, 81 deletions
diff --git a/lib/gs/examples/menu_demo.erl b/lib/gs/examples/menu_demo.erl deleted file mode 100644 index c739e1dc87..0000000000 --- a/lib/gs/examples/menu_demo.erl +++ /dev/null @@ -1,81 +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% -%% - -%% --module(menu_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}}]). - --compile(export_all). - -start() -> spawn(menu_demo, init, []). - -init() -> -    I=gs:start(), -    Win=gs:window(I, [{title,"menu"},{width,200},{height,100}, {map, true}]), -    Bar = gs:create(menubar, Win, []), -    Fmb = gs:create(menubutton, Bar, [{label, {text, "File"}}]), -    Emb = gs:create(menubutton, Bar, [{label, {text, "Edit"}}]), -    Hmb = gs:create(menubutton, Bar, [{label, {text, "Help"}}, {side, right}]), -    Fmnu = gs:create(menu, Fmb, []), -    Emnu = gs:create(menu, Emb, []), -    Hmnu = gs:create(menu, Hmb, []), -    gs:create(menuitem, load, Fmnu, [{label,{text, "Load"}}]), -    gs:create(menuitem, save, Fmnu, [{label,{text, "Save"}}]), -    Exit = gs:create(menuitem, Fmnu, [{label,{text, "Exit"}}]), -    Color=gs:create(menuitem,Emnu,[{label,{text,"Color"}},{itemtype,cascade}]), -    Cmnu = gs:create(menu, Color, [{disabledfg,gray}]), -    gs:create(menuitem, Cmnu, [{label, {text,"Red"}}, {data, {new_color, red}}, -			       {fg,red}, {itemtype,radio},{group,gr1}]), -    gs:create(menuitem, Cmnu, [{label, {text,"Blue"}},{data, {new_color, blue}}, -			       {fg,blue}, {itemtype,radio},{group,gr1}]), -    gs:create(menuitem,Cmnu,[{label, {text,"Black"}},{data, {new_color, black}}, -			      {fg,black}, {itemtype,radio},{group,gr1}]), -    Y = gs:create(menuitem, Hmnu, [{label, {text,"You"}}, {itemtype, check}]), -    M = gs:create(menuitem,me,Hmnu,[{label,{text,"Me"}},{itemtype,check}]), -    gs:create(menuitem, Hmnu, [{label, {text, "Other"}}, {itemtype, check}, -			       {enable,false},{click,false}]), -    gs:create(menuitem,doit,Hmnu,[{label,{text,"Doit!"}},{data,{doit,Y,M}}]), -    loop(Exit, Win). - -loop(Exit, Win) -> -    receive -	{gs, save, click, _Data, [_Txt, _Index | _Rest]} -> -	    io:format("Save~n"); -	{gs, load, click, _Data, [_Txt, _Index | _Rest]} -> -	    io:format("Load~n"); -	{gs, Exit, click, _Data, [_Txt, _Index | _Rest]} -> -	    io:format("Exit~n"), -	    exit(normal); -	{gs, _MnuItem, click, {new_color, Color}, Args} -> -	    io:format("Change color to ~w. Args:~p~n", [Color, Args]), -	    gs:config(Win, [{bg, Color}]); -	{gs, doit, click, {doit, YouId, MeId}, Args} -> -	    HelpMe = gs:read(MeId, select), -	    HelpYou = gs:read(YouId, select), -	    io:format("Doit. HelpMe:~w, HelpYou:~w, Args:~p~n", -		      [HelpMe, HelpYou, Args]); -	Other -> io:format("Other:~p~n",[Other]) -    end, -    loop(Exit, Win).  | 
