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 >
Wrap
Text File
|
1999-06-05
|
299b
|
21 lines
class CHAT
inherit
QUADRUPEDE
redefine reproduction_avec_quadrupede
end;
feature {ANY}
reproduction_avec_quadrupede(quadrupede: CHAT): CHAT is
do
Result := Current;
end;
crier is
do
std_output.put_string("MIAOU");
end;
end -- CHAT