home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Programming / sofa / archive / SmallEiffel.lha / SmallEiffel / lib_show / animal / chat.e < prev    next >
Text File  |  1999-06-05  |  299b  |  21 lines
  1. class CHAT
  2.  
  3. inherit
  4.    QUADRUPEDE
  5.       redefine reproduction_avec_quadrupede
  6.       end;
  7.  
  8. feature {ANY}
  9.  
  10.    reproduction_avec_quadrupede(quadrupede: CHAT): CHAT is
  11.       do
  12.          Result := Current;
  13.       end;
  14.  
  15.    crier is
  16.       do
  17.          std_output.put_string("MIAOU");
  18.       end;
  19.  
  20. end -- CHAT
  21.