kreise:-
 new(@dialog, dialog('Kreise')),
 send(@dialog, size(size(420,400))),
 new(@picture, picture('Kreise')),
 new(@button, button('Kreise Malen', message(@prolog, malen))),
 new(@text, text_item('text')),
 send(@dialog, append(@picture)),
 send(@dialog, append(@button)),
 send(@dialog, append(@text)),
 send(@text, editable(false)),
 send(@dialog,open).

malen :-
 random(5,50,X),
 new(Kreis, circle(X)),
 random(10,320,Y),
 random(10,150,Z),
 new(Ges, click_gesture(left, '', single, message(@prolog, daten,X,Y,Z))),
 send(Kreis, recogniser, Ges),
 send(Kreis, move(point(Y,Z))),
 send(@picture, display(Kreis)).

daten(X,Y,Z):-
 atomic_list_concat(['Radius :', X, '   XPos :', Y,'   YPos :', Z],Text),
 send(@text, value(Text)).

:-kreise.