:- package(gui).
:- package(guibuilder).

main(Applet, _) :-
	gui(Applet, border, [
			'North' / button(_, 'Push me') **
						action((println(['button-1 pressed']),flush_output)),
			'Center' / canvas(_, paint(_), 100, 100, true) **
						mouse([
							clicked=mouse(_, clicked),
							pressed=mouse(_, pressed),
							released=mouse(_, released),
							entered=mouse(_, entered),
							exited=mouse(_, exited)]),
			'South'  / text_field(F, 80) **
						action(textinput(F))
		]).

paint(_).

textinput(Field) :-
	textComponent_getText(Field, Text),
	println(['input=',quoted(Text)]),
	flush_output.

mouse(Event, Action) :-
	mouseEvent_getX(Event, X),
	mouseEvent_getY(Event, Y),
	println(['mouse-action=',Action,' at (',X,',',Y,')']),
	flush_output.