event.e

   1 class EVENT
   2 creation make
   3 feature
   4         x, y : INTEGER
   5         type : INTEGER
   6         i1, i2 : INTEGER
   7         kmod : INTEGER
   8
   9         make is
  10         do
  11         end
  12
  13         put_xy(x0, y0 : INTEGER) is
  14         do
  15                 x := x0
  16                 y := y0
  17         end
  18
  19         put_type(i : INTEGER) is
  20         do
  21                 type := i
  22         end
  23
  24         put_i1(i : INTEGER) is
  25         do
  26                 i1 := i
  27         end
  28
  29         put_i2(i : INTEGER) is
  30         do
  31                 i2 := i
  32         end
  33
  34         put_kmod(i : INTEGER) is
  35         do
  36                 kmod := i
  37         end
  38 end