class LightOnCommand

inherit Command

creation

	make

feature {NONE} myLight:Light;

feature
	make(l:Light) is
   do
   	myLight := l;
   end;

feature
	execute is
   do
   	myLight.turnOn;
   end

end -- class LightOnCommand