class FanOnCommand

inherit Command

creation

	make

feature {NONE} myFan:Fan;

feature
	make(f:Fan) is
   do
   	myFan := f;
   end;

feature
	execute is
   do
   	myFan.startRotate;
   end

end -- class FanOnCommand