deepblue / snippets

deepblue's thoughts

This URL has Read+Write access

snippets / chalenge / hello_ui / hello.erl
100644 32 lines (23 sloc) 0.738 kb
raw blame history 
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

-module (hello).
-export ([start/0]).
 
start() ->
  S = gs:start(),
  
  Win = gs:window(S,[{title,"Erlang"},{width,150},{height,100}]),  
  gs:create(button,hello,Win,[{y,30},{x,50},{width,50},
		       {label,{text,"Hello!"}}]),
 
  gs:config(Win,{map,true}),
  loop().
 
 
hello() ->
  S = gs:start(),
 
  Message = gs:window(S,[{title,"Hello"},{width,250},{height,70}]),
  gs:create(label,text,Message,[{y,0},{x,0},{width,250},
		       {label,{text,"Erlang Graphics System"}}]),
  gs:create(button,hellook,Message,[{y,30},{x,100},{width,50},
		       {label,{text,"OK"}}]),		       
 
  gs:config(Message,{map,true}).
 
 
loop() ->
  receive
    {gs,hello,_,_,_} -> hello();
    {gs,hellook,_,_,_} -> exit(normal)
  end,
  loop().