Remove the gs application

The gs application ws deprecated in R15B01.

18 files changed, 0 insertions, 607 deletions

diff --git a/lib/gs/doc/src/examples/die_icon b/lib/gs/doc/src/examples/die_icon
deleted file mode 100644
index 52be1869fa..0000000000
--- a/lib/gs/doc/src/examples/die_icon
+++ /dev/null
@@ -1,9 +0,0 @@
-#define die_icon_width 22
-#define die_icon_height 22
-static char die_icon_bits[] = {
-   0x00, 0x00, 0x00, 0x00, 0x1c, 0x00, 0x00, 0x7f, 0x00, 0x80, 0xff, 0x00,
-   0xc0, 0xdd, 0x01, 0xc0, 0x88, 0x01, 0xc0, 0xdd, 0x01, 0xc0, 0xff, 0x01,
-   0xc0, 0xff, 0x01, 0x80, 0xff, 0x00, 0x00, 0x7f, 0x00, 0x00, 0x3e, 0x00,
-   0x00, 0x3e, 0x00, 0x00, 0x3e, 0x00, 0x08, 0x1c, 0x07, 0xf0, 0xc0, 0x01,
-   0x00, 0x73, 0x00, 0x00, 0x1c, 0x00, 0x80, 0x77, 0x00, 0x60, 0xc0, 0x03,
-   0x00, 0x00, 0x06, 0x00, 0x00, 0x00};
diff --git a/lib/gs/doc/src/examples/ex1.erl b/lib/gs/doc/src/examples/ex1.erl
deleted file mode 100644
index 8ba353a1d7..0000000000
--- a/lib/gs/doc/src/examples/ex1.erl
+++ /dev/null
@@ -1,20 +0,0 @@
--module(ex1).
--copyright('Copyright (c) 1991-97 Ericsson Telecom AB').
--vsn('$Revision: /main/release/2 $ ').
-
--export([init/0]).
-
-init() -> 
-    S = gs:start(),
-    %% the parent of a top-level window is the gs server
-    Win = gs:create(window,S,[{width,200},{height,100}]),
-    Butt = gs:create(button,Win,[{label, {text,"Press Me"}}]),
-    gs:config(Win, {map,true}),
-    loop(Butt). 
-
-loop(Butt) ->
-    receive
-        {gs, Butt, click, Data, Args} ->
-            io:format("Hello There~n",[]),
-            loop(Butt)
-    end.
diff --git a/lib/gs/doc/src/examples/ex10.erl b/lib/gs/doc/src/examples/ex10.erl
deleted file mode 100644
index d414aca940..0000000000
--- a/lib/gs/doc/src/examples/ex10.erl
+++ /dev/null
@@ -1,59 +0,0 @@
--module(ex10).
--copyright('Copyright (c) 1991-97 Ericsson Telecom AB').
--vsn('$Revision: /main/release/2 $ ').
-
--export([start/0, init/3]).
-
-start() ->
-    start("Pick a fruit:", 
-          [apple, banana, lemon, orange, strawberry, 
-           mango, kiwi, pear, cherry,pineapple,peach,apricot]).
-
-start(Text,Items) ->
-    spawn(ex10,init,[self(),Text,Items]),       
-    receive
-        {browser,Result} -> Result
-    end.
-
-init(Pid,Text,Items) ->
-    S=gs:start(),
-    Win=gs:window(S,[{width,250},{height,270},
-                     {title,"Browser"}]),
-    Lbl=gs:label(Win,[{label,{text,Text}},{width,250}]),
-    Entry=gs:entry(Win,[{y,35},{width,240},{x,5},
-                        {keypress,true},
-                        {setfocus,true}]),
-    Lb=gs:listbox(Win,[{x,5},{y,65},{width,160},
-                       {height,195},{vscroll,right},
-                       {click,true},{doubleclick,true}]),
-    Ok=gs:button(Win,[{label,{text,"OK"}},
-                      {width,40},{x,185},{y,175}]),
-    Cancel=gs:button(Win,[{label,{text,"Cancel"}},
-                          {x,175},{y,225},{width,65}]),
-    gs:config(Lb,[{items,Items}]),
-    gs:config(Win,{map,true}),
-    browser_loop(Pid,Ok,Cancel,Entry,Lb).
-
-browser_loop(Pid,Ok,Cancel,Entry,Lb) ->
-    receive
-        {gs,Ok,click,_,_} ->
-            Txt=gs:read(Entry,text),
-            Pid ! {browser,{ok,Txt}};
-        {gs,Cancel,click,_,_} ->
-            Pid ! {browser,cancel};
-        {gs,Entry,keypress,_,['Return'|_]} ->
-            Txt=gs:read(Entry,text),
-            Pid ! {browser,{ok,Txt}};
-        {gs,Entry,keypress,_,_} ->
-            browser_loop(Pid,Ok,Cancel,Entry,Lb);
-        {gs,Lb,click,_,[Idx, Txt|_]} ->
-            gs:config(Entry,{text,Txt}),
-            browser_loop(Pid,Ok,Cancel,Entry,Lb);
-        {gs,Lb,doubleclick,_,[Idx, Txt|_]} ->
-            Pid ! {browser,{ok,Txt}};
-        {gs,_,destroy,_,_} ->
-            Pid ! {browser,cancel};
-        X ->
-            io:format("Got X=~w~n",[X]),
-            browser_loop(Pid,Ok,Cancel,Entry,Lb)
-    end.
diff --git a/lib/gs/doc/src/examples/ex11.erl b/lib/gs/doc/src/examples/ex11.erl
deleted file mode 100644
index 96343c3c22..0000000000
--- a/lib/gs/doc/src/examples/ex11.erl
+++ /dev/null
@@ -1,42 +0,0 @@
--module(ex11).
--copyright('Copyright (c) 1991-97 Ericsson Telecom AB').
--vsn('$Revision: /main/release/3 $ ').
-
--export([start/0,init/0]).
-
-start() ->
-    spawn(ex11,init,[]).
-
-init() ->
-    I= gs:start(),
-    W= gs:window(I,[{title,"Color Demo"},
-                    {width,300},{height,195}]), 
-    B=gs:button(W,[{label,{image,"die_icon"}},{x,271},{y,166},
-                   {width,30}]),
-    gs:config(B,[{bg,yellow},{fg,hotpink1},{data,quit}]),
-    gs:scale(W,[{text,"Red"},{y,0},{range,{0,255}},
-                {orient,horizontal},
-                {height,65},{data,red},{pos,42}]),
-    gs:scale(W,[{text,"Blue"},{y,65},{range,{0,255}},
-                {orient,horizontal},
-                {height,65},{data,blue},{pos,42}]),
-    gs:scale(W,[{text,"Green"},{y,130},{range,{0,255}},
-                {orient,horizontal},
-                {height,65},{data,green},{pos,42}]),
-    gs:config(W,{map,true}),
-    loop(W,0,0,0).
-
-loop(W,R,G,B) ->
-    gs:config(W,{bg,{R,G,B}}),
-    receive
-        {gs,_,click,red,[New_R|_]} ->
-            loop(W,New_R,G,B);
-        {gs,_,click,green,[New_G|_]} ->
-            loop(W,R,New_G,B);
-        {gs,_,click,blue,[New_B|_]} ->
-            loop(W,R,G,New_B);
-        {gs,_,click,quit,_} ->
-            true;
-        {gs,W,destroy,_,_} ->
-            true
-    end.
diff --git a/lib/gs/doc/src/examples/ex12.erl b/lib/gs/doc/src/examples/ex12.erl
deleted file mode 100644
index 4af0205061..0000000000
--- a/lib/gs/doc/src/examples/ex12.erl
+++ /dev/null
@@ -1,33 +0,0 @@
--module(ex12).
--copyright('Copyright (c) 1991-97 Ericsson Telecom AB').
--vsn('$Revision: /main/release/2 $ ').
-
--export([start/0,init/0]).
-
-start() -> spawn(ex12, init, []).
-
-init() ->
-    R=[{window,[{width,200},{height,200},{title,"grid"},{map, true}],
-	{grid, [{x,10},{y,10},{height,180},{width,180},{columnwidths,[80,60]},
-		{rows,{1, 20}}],
-	 [{gridline,[{text,{1,"NAME"}},{text,{2,"PHONE"}},
-		    {font,{screen,bold,12}},{row,1},{click,false}]},
-	  {gridline,[{text,{1,"Adam"}},{text,{2,"1234"}},{row,2}]},
-	  {gridline,[{text,{1,"Beata"}},{text,{2,"4321"}},{row,3}]},
-	  {gridline,[{text,{1,"Thomas"}},{text,{2,"1432"}},{row,4}]},
-	  {gridline,[{text,{1,"Bond"}},{text,{2,"007"}},{row,5}]},
-	  {gridline,[{text,{1,"King"}},{text,{2,"112"}},{row,6}]},
-	  {gridline,[{text,{1,"Eva"}},{text,{2,"4123"}},{row,7}]}]}}],
-    gs:create_tree(gs:start(),R),
-    loop().
-
-loop() ->
-    receive
-	{gs,_Win,destroy,_Data,_Args} -> bye;
-	{gs,_Gridline,click,_Data,[Col,Row,Text|_]} ->
-	    io:format("Click at col:~p row:~p text:~p~n",[Col,Row,Text]),
-	    loop();
-        Msg ->
-            io:format("Got ~p~n",[Msg]),
-	    loop()
-    end.
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).
diff --git a/lib/gs/doc/src/examples/ex14.erl b/lib/gs/doc/src/examples/ex14.erl
deleted file mode 100644
index b35de6cb1c..0000000000
--- a/lib/gs/doc/src/examples/ex14.erl
+++ /dev/null
@@ -1,46 +0,0 @@
--module(ex14).
--copyright('Copyright (c) 1991-97 Ericsson Telecom AB').
--vsn('$Revision: /main/release/2 $ ').
-
--export([start/0,init/0]).
-
-start() -> spawn(ex14, init, []).
-
-init() ->
-    Y = [{y,0},{height, 30},{width, 90}],
-    R=[{window, [{width, 400},{height, 300}, {title,"editor"},{map, true}],
-       [{editor,editor,[{x,0},{y, 35},{width,300},{height,250},
-			{insert,{'end',"Edit this text!"}},{vscroll,right}]},
-	{button, clear, [{label, {text, "Clear"}},{x,0} | Y]},
-	{checkbutton,enable,[{label,{text,"Enable"}},{select,false},{x,100}|Y]},
-	{button, time, [{label, {text, "Insert Time"}},{x,200} | Y]},
-	{button, quit,  [{label, {text, "Quit"}},{x,300} | Y]}]}],
-    gs:create_tree(gs:start(),R),
-    gs:config(editor,{enable,false}),
-    loop().
-
-loop() ->
-    receive
-        {gs, clear, _, _, _} ->
-            io:format("clear editor~n"),
-            Enable = gs:read(editor, enable),
-            gs:config(editor,{enable, true}),
-            gs:config(editor,clear),
-            gs:config(editor,{enable, Enable});
-        {gs, enable, _, _, [_Txt, _Grp, Enable|_]} ->
-            io:format("Enable: ~w~n", [Enable]),
-            gs:config(editor,{enable, Enable});
-        {gs, time, _, _, _} ->
-            TimeStr = io_lib:format("Hr:Min:Sec is now ~w:~w:~w~n",
-                                    tuple_to_list(time())),
-            io:format("Insert Time: ~s~n", [TimeStr]),
-            Enable = gs:read(editor, enable),
-            gs:config(editor,{enable, true}),
-            gs:config(editor,{insert, {insert, TimeStr}}),
-            gs:config(editor,{enable, Enable});
-        {gs, quit, _, _, _} ->
-            exit(normal);
-        Other ->
-            io:format("Other:~w~n",[Other])
-    end,
-    loop().
diff --git a/lib/gs/doc/src/examples/ex15.erl b/lib/gs/doc/src/examples/ex15.erl
deleted file mode 100644
index 864bdd93b2..0000000000
--- a/lib/gs/doc/src/examples/ex15.erl
+++ /dev/null
@@ -1,30 +0,0 @@
--module(ex15).
--copyright('Copyright (c) 1991-97 Ericsson Telecom AB').
--vsn('$Revision: /main/release/3 $ ').
-
--export([start/0,init/0]).
-
-start() -> spawn(ex15, init, []).
-
-init() ->
-    I=gs:start(),
-    Win=gs:create(window, I,
-                  [{width, 400},{height, 250},
-                   {title,"Font Demo"},{map, true}]),
-    E = gs:create(canvas, can1,Win,
-		  [{x,0},{y, 0},{width,400},{height,250}]),
-    Fonts = [{times,19},{screen,16},{helvetica,bold,21},
-	     {symbol,12},{times,[bold,italic],33},{courier,6}],
-    show_fonts_in_boxes(Fonts,0),
-    receive
-	{gs,_Id,destroy,_Data,_Arg} -> bye
-    end.
-
-show_fonts_in_boxes([],_) -> done;
-show_fonts_in_boxes([Font|Fonts],Y) ->
-    Txt = io_lib:format("Hi! ~p",[Font]),
-    {Width,Height} = gs:read(can1,{font_wh,{Font,Txt}}),
-    Y2=Y+Height+2,
-    gs:create(rectangle,can1,[{coords,[{0,Y},{Width,Y2}]}]),
-    gs:create(text,can1,[{font,Font},{text,Txt},{coords,[{0,Y+1}]}]),
-    show_fonts_in_boxes(Fonts,Y2+1).
diff --git a/lib/gs/doc/src/examples/ex16.erl b/lib/gs/doc/src/examples/ex16.erl
deleted file mode 100644
index 9c995d16bf..0000000000
--- a/lib/gs/doc/src/examples/ex16.erl
+++ /dev/null
@@ -1,40 +0,0 @@
--module(ex16).
--copyright('Copyright (c) 1991-97 Ericsson Telecom AB').
--vsn('$Revision: /main/release/3 $ ').
-
--export([start/0,init/0]).
-
-start() -> spawn(ex16, init, []).
-
-init() ->
-    I=gs:start(),
-    Win=gs:create(window, I,
-                  [{width, 200},{height, 200},
-                   {title,"Default Demo"},{map, true}]),
-    gs:create(canvas, can1,Win,
-	      [{x,0},{y, 0},{width,200},{height,200},
-	       {default,text,{font,{courier,bold,19}}},
-	       {default,text,{fg,blue}},
-	       {default,rectangle,{fill,red}},{default,text,{text,"Pow!"}},
-	       {default,oval,{fill,green}}]),
-    {A,B,C} = erlang:now(),
-    random:seed(A,B,C),
-    loop().
-
-loop() ->
-    receive
-	{gs,_Id,destroy,_Data,_Arg} -> bye
-    after 500 ->
-	    XY = {random:uniform(200),random:uniform(200)},
-	    draw(random:uniform(3),XY),
-	    loop()
-    end.
-
-draw(1,XY) ->
-    gs:create(text,can1,[{coords,[XY]}]);
-draw(2,XY) ->
-    XY2 = {random:uniform(200),random:uniform(200)},
-    gs:create(rectangle,can1,[{coords,[XY,XY2]}]);
-draw(3,XY) ->
-    XY2 = {random:uniform(200),random:uniform(200)},
-    gs:create(oval,can1,[{coords,[XY,XY2]}]).
diff --git a/lib/gs/doc/src/examples/ex17.erl b/lib/gs/doc/src/examples/ex17.erl
deleted file mode 100644
index f659b42ae3..0000000000
--- a/lib/gs/doc/src/examples/ex17.erl
+++ /dev/null
@@ -1,32 +0,0 @@
--module(ex17).
--copyright('Copyright (c) 1991-97 Ericsson Telecom AB').
--vsn('$Revision: /main/release/1 $ ').
-
--export([start/0,init/0]).
-
-start() -> spawn(ex17, init, []).
-
-init() ->
-    WH = [{width,200},{height,300}],
-    Win = gs:window(gs:start(),[{map,true},{configure,true},
-				{title,"Packer Demo"}|WH]),
-    gs:frame(packer,Win,[{packer_x,[{stretch,1,50},{stretch,2,50},
-				    {stretch,1,50}]},
-			 {packer_y,[{fixed,30},{stretch,1}]}]),
-    gs:button(packer,[{label,{text,"left"}},{pack_xy,{1,1}}]),
-    gs:button(packer,[{label,{text,"middle"}},{pack_xy,{2,1}}]),
-    gs:button(packer,[{label,{text,"right"}},{pack_xy,{3,1}}]),
-    gs:editor(packer,[{pack_xy,{{1,3},2}},{vscroll,true},{hscroll,true}]),
-    gs:config(packer,WH), % refresh to initial size
-    loop().
-
-loop() ->
-    receive
-	{gs,_Id,destroy,_Data,_Arg} -> bye;
-	{gs,_Id,configure,_Data,[W,H|_]} ->
-	    gs:config(packer,[{width,W},{height,H}]), % repack
-	    loop();
-	Other ->
-	    io:format("loop got: ~p~n",[Other]),
-	    loop()
-    end.
diff --git a/lib/gs/doc/src/examples/ex2.erl b/lib/gs/doc/src/examples/ex2.erl
deleted file mode 100644
index 833d189602..0000000000
--- a/lib/gs/doc/src/examples/ex2.erl
+++ /dev/null
@@ -1,19 +0,0 @@
--module(ex2).
--copyright('Copyright (c) 1991-97 Ericsson Telecom AB').
--vsn('$Revision: /main/release/2 $ ').
-
--export([init/0]).
-
-init() -> 
-    S = gs:start(),
-    gs:create(window,win1,S,[{width,200},{height,100}]),
-    gs:create(button,b1,win1,[{label, {text,"Press Me"}}]),
-    gs:config(win1, {map,true}),
-    loop().     
-
-loop() ->
-    receive
-        {gs, b1, click, Data, Args} ->
-            io:format("Hello World!~n",[]),
-            loop()
-    end.
diff --git a/lib/gs/doc/src/examples/ex3.erl b/lib/gs/doc/src/examples/ex3.erl
deleted file mode 100644
index 486cec0e4e..0000000000
--- a/lib/gs/doc/src/examples/ex3.erl
+++ /dev/null
@@ -1,23 +0,0 @@
--module(ex3).
--copyright('Copyright (c) 1991-97 Ericsson Telecom AB').
--vsn('$Revision: /main/release/2 $ ').
-
--export([init/0]).
-
-init() ->
-    S = gs:start(),
-    W = gs:create(window,S,[{width,300},{height,200}]),
-    B1 = gs:create(button,W,[{label, {text,"Button1"}},{y,0}]),
-    B2 = gs:create(button,W,[{label, {text,"Button2"}},{y,40}]),
-    gs:config(W, {map,true}),
-    loop(B1,B2).
-
-loop(B1,B2) ->
-    receive
-        {gs,B1,click,_Data,_Arg} -> % button 1 pressed
-            io:format("Button 1 pressed!~n",[]),
-            loop(B1,B2);
-        {gs,B2,click,_Data,_Arg} -> % button 2 pressed
-            io:format("Button 2 pressed!~n",[]),
-            loop(B1,B2)
-    end.
diff --git a/lib/gs/doc/src/examples/ex4.erl b/lib/gs/doc/src/examples/ex4.erl
deleted file mode 100644
index 21a0fe3e96..0000000000
--- a/lib/gs/doc/src/examples/ex4.erl
+++ /dev/null
@@ -1,23 +0,0 @@
--module(ex4).
--copyright('Copyright (c) 1991-97 Ericsson Telecom AB').
--vsn('$Revision: /main/release/2 $ ').
-
--export([init/0]).
-
-init() ->
-    S = gs:start(),
-    gs:create(window,win1,S,[{width,300},{height,200}]),
-    gs:create(button,b1,win1,[{label, {text,"Button1"}},{y,0}]),
-    gs:create(button,b2,win1,[{label, {text,"Button2"}},{y,40}]),
-    gs:config(win1, {map,true}),
-    loop(). %% look, no args!
-
-loop() ->
-    receive
-        {gs,b1,click,_,_} -> % button 1 pressed
-            io:format("Button 1 pressed!~n",[]),
-            loop();
-        {gs,b2,click,_,_} -> % button 2 pressed
-            io:format("Button 2 pressed!~n",[]),
-            loop()
-    end.
diff --git a/lib/gs/doc/src/examples/ex5.erl b/lib/gs/doc/src/examples/ex5.erl
deleted file mode 100644
index e608709991..0000000000
--- a/lib/gs/doc/src/examples/ex5.erl
+++ /dev/null
@@ -1,27 +0,0 @@
--module(ex5).
--copyright('Copyright (c) 1991-97 Ericsson Telecom AB').
--vsn('$Revision: /main/release/2 $ ').
-
--export([start/0, init/0, b1/0, b2/0]).
-
-start() ->
-    spawn(ex5, init, []).
-
-init() ->
-    S = gs:start(),
-    W = gs:create(window,S,[{map,true}]),       
-    gs:create(button,W,[{label,{text,"Button1"}},{data,{ex5,b1,[]}},{y,0}]),
-    gs:create(button,W,[{label,{text,"Button2"}},{data,{ex5,b2,[]}},{y,40}]),
-    loop().
-
-loop()->
-    receive
-        {gs,_,click,{M,F,A},_} -> % any button pressed
-            apply(M,F,A),
-            loop()
-    end.
-
-b1() ->
-    io:format("Button 1 pressed!~n",[]).
-b2() ->
-    io:format("Button 2 pressed!~n",[]).                
diff --git a/lib/gs/doc/src/examples/ex6.erl b/lib/gs/doc/src/examples/ex6.erl
deleted file mode 100644
index ca73deb78e..0000000000
--- a/lib/gs/doc/src/examples/ex6.erl
+++ /dev/null
@@ -1,23 +0,0 @@
--module(ex6).
--copyright('Copyright (c) 1991-97 Ericsson Telecom AB').
--vsn('$Revision: /main/release/2 $ ').
-
--export([start/0,init/0]).
-
-start() ->
-    spawn(ex6,init,[]).
-
-init() ->
-    S = gs:start(),
-    W = gs:create(window,S,[{map,true},{keypress,true},
-                            {buttonpress,true},{motion,true}]),
-    gs:create(button,W,[{label,{text,"PressMe"}},{enter,true},
-                        {leave,true}]),
-    event_loop().
-
-event_loop() ->
-    receive
-        X ->
-            io:format("Got event: ~w~n",[X]),
-            event_loop()
-    end.
diff --git a/lib/gs/doc/src/examples/ex7.erl b/lib/gs/doc/src/examples/ex7.erl
deleted file mode 100644
index a80c36fdcb..0000000000
--- a/lib/gs/doc/src/examples/ex7.erl
+++ /dev/null
@@ -1,42 +0,0 @@
--module(ex7).
--copyright('Copyright (c) 1991-97 Ericsson Telecom AB').
--vsn('$Revision: /main/release/2 $ ').
-
--export([mk_window/0]).
-
-mk_window() ->
-    S= gs:start(),
-    Win= gs:create(window,S,[{motion,true},{map,true}]),
-    gs:config(Win,[{configure,true},{keypress,true}]),
-    gs:config(Win,[{buttonpress,true}]),
-    gs:config(Win,[{buttonrelease,true}]),
-    event_loop(Win).
-
-event_loop(Win) ->      
-    receive
-        {gs,Win,motion,Data,[X,Y | Rest]} ->
-            %% mouse moved to position X Y
-            io:format("mouse moved to X:~w  Y:~w~n",[X,Y]);
-        {gs,Win,configure,Data,[W,H | Rest]} ->
-            %% window was resized by user
-            io:format("window resized W:~w  H:~w~n",[W,H]);
-        {gs,Win,buttonpress,Data,[1,X,Y | Rest]} -> 
-            %% button 1 was pressed at location X Y
-            io:format("button 1 pressed X:~w  Y:~w~n",[X,Y]);
-        {gs,Win,buttonrelease,Data,[_,X,Y | Rest]} ->
-            %% Any button (1-3) was released over X Y
-            io:format("Any button released X:~w  Y:~w~n",[X,Y]);
-        {gs,Win,keypress,Data,[a | Rest]} -> 
-            %% key `a' was pressed in window
-            io:format("key a was pressed in window~n");
-        {gs,Win,keypress,Data,[_,65,1 | Rest]} ->
-            %% Key shift-a
-            io:format("shift-a was pressed in window~n");
-        {gs,Win,keypress,Data,[c,_,_,1 | Rest]} ->
-            %% CTRL_C pressed
-            io:format("CTRL_C was pressed in window~n");
-        {gs,Win,keypress,Data, ['Return' | Rest]} ->
-            %% Return key pressed
-            io:format("Return key was pressed in window~n")
-        end,
-    event_loop(Win).
diff --git a/lib/gs/doc/src/examples/ex8.erl b/lib/gs/doc/src/examples/ex8.erl
deleted file mode 100644
index 3081cb6114..0000000000
--- a/lib/gs/doc/src/examples/ex8.erl
+++ /dev/null
@@ -1,22 +0,0 @@
--module(ex8).
--copyright('Copyright (c) 1991-97 Ericsson Telecom AB').
--vsn('$Revision: /main/release/2 $ ').
-
--export([start/0]).
-
-start() ->
-    gs:window(win,gs:start(),{map,true}),
-    gs:radiobutton(rb1,win,[{label,{text,"rb1"}},{value,a},{y,0}]),
-    gs:radiobutton(rb2,win,[{label,{text,"rb2"}},{value,a},{y,30}]),
-    gs:radiobutton(rb3,win,[{label,{text,"rb3"}},{value,b},{y,60}]),
-    rb_loop().
-
-rb_loop() ->
-    receive
-        {gs,Any_Rb,click,Data,[Text, Grp, a | Rest]} ->
-            io:format("either rb1 or rb2 is on.~n",[]),
-            rb_loop();
-        {gs,rb3,click,Data,[Text, Grp, b | Rest]} ->
-            io:format("rb3 is selected.~n",[]),
-            rb_loop()
-    end.
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.