1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
%%
%% %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).
|
