Celestin Apprentice 5/Apprentice-Release5.iso/Environments/SmallEiffel 0.3.3/SmallEiffel 68k/lib_test/aux_redefine1c.e

Text File | 1996-06-13 | 311 b | 19 lines | [TEXT/EDIT]

-- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C)
-- Dominique COLNET and Suzanne COLLIN -- [e-mail]
--
class AUX_REDEFINE1C

inherit
   AUX_REDEFINE1A
      redefine bar
      end;

feature

   bar(array: ARRAY[DOUBLE]) is
      do
     array.put(1.5,1);
      end;

end -- AUX_REDEFINE1C