Wed Apr 17 01:05:42 PDT 2002
[netwalk.git] / eventmaker.e
blobb227b9310d029bd9931dcbc8b62ddbbb4fb6d0fa
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
12 make_mbdown(b : INTEGER; kmod : INTEGER; x, y : INTEGER) : EVENT is
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 end