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/doc/src/examples/die_icon | 9 ----- lib/gs/doc/src/examples/ex1.erl | 20 ----------- lib/gs/doc/src/examples/ex10.erl | 59 -------------------------------- lib/gs/doc/src/examples/ex11.erl | 42 ----------------------- lib/gs/doc/src/examples/ex12.erl | 33 ------------------ lib/gs/doc/src/examples/ex13.erl | 74 ---------------------------------------- lib/gs/doc/src/examples/ex14.erl | 46 ------------------------- lib/gs/doc/src/examples/ex15.erl | 30 ---------------- lib/gs/doc/src/examples/ex16.erl | 40 ---------------------- lib/gs/doc/src/examples/ex17.erl | 32 ----------------- lib/gs/doc/src/examples/ex2.erl | 19 ----------- lib/gs/doc/src/examples/ex3.erl | 23 ------------- lib/gs/doc/src/examples/ex4.erl | 23 ------------- lib/gs/doc/src/examples/ex5.erl | 27 --------------- lib/gs/doc/src/examples/ex6.erl | 23 ------------- lib/gs/doc/src/examples/ex7.erl | 42 ----------------------- lib/gs/doc/src/examples/ex8.erl | 22 ------------ lib/gs/doc/src/examples/ex9.erl | 43 ----------------------- 18 files changed, 607 deletions(-) delete mode 100644 lib/gs/doc/src/examples/die_icon delete mode 100644 lib/gs/doc/src/examples/ex1.erl delete mode 100644 lib/gs/doc/src/examples/ex10.erl delete mode 100644 lib/gs/doc/src/examples/ex11.erl delete mode 100644 lib/gs/doc/src/examples/ex12.erl delete mode 100644 lib/gs/doc/src/examples/ex13.erl delete mode 100644 lib/gs/doc/src/examples/ex14.erl delete mode 100644 lib/gs/doc/src/examples/ex15.erl delete mode 100644 lib/gs/doc/src/examples/ex16.erl delete mode 100644 lib/gs/doc/src/examples/ex17.erl delete mode 100644 lib/gs/doc/src/examples/ex2.erl delete mode 100644 lib/gs/doc/src/examples/ex3.erl delete mode 100644 lib/gs/doc/src/examples/ex4.erl delete mode 100644 lib/gs/doc/src/examples/ex5.erl delete mode 100644 lib/gs/doc/src/examples/ex6.erl delete mode 100644 lib/gs/doc/src/examples/ex7.erl delete mode 100644 lib/gs/doc/src/examples/ex8.erl delete mode 100644 lib/gs/doc/src/examples/ex9.erl (limited to 'lib/gs/doc/src/examples') 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. -- cgit v1.2.3