boton.pro

%EJEMPLO DE VENTANA CON BOTON DE BORRAR
%_______________________________________________________
% CARGAR COMO:
%		$ xpce
%		% consult('boton.pro').
%		% inicio.
%_______________________________________________________
inicio:-
	new(D, dialog('Nombre: ')),
	new(@boton, button('cerrar', and(message(D, destroy), message(D, free), message(@boton, free)))),
	send(D, append(@boton)),
	send(D, open).