home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Programming / sofa / archive / SmallEiffel.lha / SmallEiffel / lib_show / cecil / example4 / dog.e < prev    next >
Encoding:
Text File  |  1999-06-05  |  106 b   |  12 lines
  1. class DOG inherit ANIMAL
  2.  
  3. feature
  4.  
  5.    cry: STRING is
  6.       do
  7.          Result := "BARK";
  8.       end;
  9.  
  10. end
  11.  
  12.