class
	DEKORIERER

inherit
	KOMPONENTE

redefine
	zeichne, loesche_komp, verschiebe
end

creation
	make

feature
	make (kompon : KOMPONENTE) is
		do
			komp := kompon;
		end;	

	zeichne(dc:WEL_CLIENT_DC) is
		do
			komp.set_color(komp_color);
			komp.zeichne(dc);
		end;

	verschiebe(x1, y1:INTEGER) is
		do
			komp.verschiebe(x1, y1);
		end;

	loesche_komp:KOMPONENTE is
		do
			komp.set_color(komp_color);
			Result:=komp;
		end;

feature {EINFACH_DEKORIERER}
	komp : KOMPONENTE;

end -- class DEKORIERER