From 6931dce17580d097351dd7be09ce7c9ed3f72827 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Mon, 27 Jun 2016 11:48:03 +0200
Subject: Remove the gs application

The gs application ws deprecated in R15B01.
---
 lib/gs/doc/src/examples/ex13.erl | 74 ----------------------------------------
 1 file changed, 74 deletions(-)
 delete mode 100644 lib/gs/doc/src/examples/ex13.erl

(limited to 'lib/gs/doc/src/examples/ex13.erl')

diff --git a/lib/gs/doc/src/examples/ex13.erl b/lib/gs/doc/src/examples/ex13.erl
deleted file mode 100644
index f8af1f34c6..0000000000
--- a/lib/gs/doc/src/examples/ex13.erl
+++ /dev/null
@@ -1,74 +0,0 @@
--module(ex13).
--copyright('Copyright (c) 1991-97 Ericsson Telecom AB').
--vsn('$Revision: /main/release/2 $ ').
-
--export([start/0,init/0]).
-
-start() -> spawn(ex13, init, []).
-
-init() ->
-    I=gs:start(),
-    Win=gs:window(I, [{width,200},{height,100},
-                      {title,"menu"},{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}},
-                               {itemtype,radio},{group,gr1}]),
-    gs:create(menuitem, Cmnu, [{label, {text,"Blue"}},
-                               {data, {new_color, blue}},
-                               {itemtype,radio},{group,gr1}]),
-    gs:create(menuitem,Cmnu, [{label, {text,"Black"}},
-                              {data, {new_color, 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, [{itemtype, separator}]),
-    gs:create(menuitem, Hmnu, [{label, {text, "Other"}},
-                               {itemtype, check},
-                               {enable,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).
-- 
cgit v1.2.3