home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / dev / ppcsmalleiffel / lib_show / animal / chat.e < prev    next >
Encoding:
Text File  |  1998-01-16  |  302 b   |  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.