go:-
	new(@Dia, dialog('Mein BlaBla')),
	new(@pic, picture('Zeichenflaeche')),
	new(@But, button('Button', message(@prolog,malen))),
	send(@Dia, append(@But)),
	send(@Dia, append(@pic)),
	send(@Dia, open).

malen:-
	random(0,50,X),
	random(0,200,Y),
	random(0,100,Z),
	new(@Kre, circle(X)),
	new(H, click_gesture(right,'',single,message(@prolog,schrieben,X))),
	send(@pic, display, @Kre, point(Y,Z)),
	send(@Kre, recogniser, H).

schrieben(X):-
	write('Meine Groesse ist '),
	write(X),

	nl.