bloques.pro

colour(white).
colour(red).
colour(green).
colour(blue).
colour(black).



sube(_, _, 100):- !.
sube(Ventana, Elem, N):-
	send(timer(0.5), delay),
        free(Elem),
	N1 is N - 10,
	send(Ventana, display, new(Elem1, box(100, 20)), point(20, N1)),
	sube(Ventana, Elem1, N1).

attributedemo :-
	send(new(P, picture('Attribute Demo')), open),
	send(P, display, new(B, box(100, 20)), point(20, 170)),
	send(P, display, new(E, ellipse(100, 20)), point(20, 140)),
	send_list([B, E], fill_pattern, colour(white)),
	new(C, click_gesture(left, '', double, message(@prolog, edit_graphical, @receiver))),
	send(B, recogniser, C),
	send(E, recogniser, C),
	sube(P, B, 170).