-module(example1).

-export([start/0]).

-include("sw.hrl").

-import(sw, [mkTopLevel/4,xStart/1]).

-define(bg, 16#ffffcc).

start() ->
    spawn_link(fun win/0).

win() ->
    Display = xStart("3.2"),
    Win    = swTopLevel:make(Display, 160, 50, ?bg),
    %%Win ! {onClick, fun({_,X,Y,_,_}) -> io:format("Click ~p,~p~n",[X,Y]) end},
    Button = swButton:make(Win, 10, 10, 120, 30, ?grey88, "Hello"),
    loop().

loop() ->
    receive
	Any ->
	    io:format("top level received:~p~n",[Any]),
	    loop()
    end.