repo.or.cz
/
netwalk.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Wed Apr 17 01:05:42 PDT 2002
[netwalk.git]
/
eventmaker.e
blob
b227b9310d029bd9931dcbc8b62ddbbb4fb6d0fa
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
end