eventmaker.e

   1 expanded class EVENTMAKER
   2 inherit SDL_CONSTANT
   3 feature
   4     make_keydown(key : INTEGER; kmod : INTEGER) : EVENT is
   5     do
   6         !!Result.make
   7         Result.put_type(sdl_keydown)
   8         Result.put_i1(key)
   9         Result.put_kmod(kmod)
  10     end
  11
  12     make_mbdown(b : INTEGER; kmod : INTEGER; x, y : INTEGER) : EVENT is
  13     do
  14         !!Result.make
  15         Result.put_type(sdl_mousebuttondown)
  16         Result.put_i1(b)
  17         Result.put_kmod(kmod)
  18         Result.put_xy(x, y)
  19     end
  20
  21     make_quit : EVENT is
  22     do
  23         !!Result.make
  24         Result.put_type(sdl_quit)
  25     end
  26 end