home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Programming / sofa / archive / SmallEiffel.lha / SmallEiffel / lib_show / animal / quadrupede.e < prev    next >
Text File  |  1999-06-05  |  245b  |  16 lines
  1. deferred class QUADRUPEDE
  2.  
  3. inherit
  4.    ANIMAL
  5.       redefine reproduction
  6.       end;
  7.  
  8. feature {ANY}
  9.  
  10.    reproduction(autre: ANIMAL): ANIMAL is
  11.       do
  12.          Result := autre.reproduction_avec_quadrupede(Current);
  13.       end;
  14.  
  15. end -- QUADRUPEDE
  16.