start:-	
	new(D, dialog('RandKreise')),
	new(P, picture('kreise')),
	send(D, append, P),
	send(D, append, button(kreiserzeugen, message(@prolog, kreiserzeugen, P))),
	send(D, open).

kreiserzeugen(P):-	
	random(20, 50, Randomcycle),
	random(20, 350, Randomx),
	random(20, 150, Randomy),
	new(C, circle(Randomcycle)),
	send(P, display, C, point(Randomx, Randomy)),
	new(G, handler(area_enter, message(@prolog, schreiben, Randomcycle, Randomx, 			Randomy))),
	%new(G, click_gesture(left, '', single, 
	%	message(@prolog, schreiben, Randomcycle, Randomx, Randomy))),
	send(C, recogniser, G).

schreiben(Durchmesser, XPos, YPos):-
	write('Durchmesser des Kreises: '),
	write(Durchmesser),
	nl,
	write('X-Position des Kreises: '),
	write(XPos),
	nl,
	write('Y-Position des Kreises: '),
	write(YPos),
	nl.