5 # Copyright (C) 2005 David J. Goehrig <dgoehrig@cpan.org>
7 # ------------------------------------------------------------------------------
9 # This library is free software; you can redistribute it and/or
10 # modify it under the terms of the GNU Lesser General Public
11 # License as published by the Free Software Foundation; either
12 # version 2.1 of the License, or (at your option) any later version.
14 # This library is distributed in the hope that it will be useful,
15 # but WITHOUT ANY WARRANTY; without even the implied warranty of
16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 # Lesser General Public License for more details.
19 # You should have received a copy of the GNU Lesser General Public
20 # License along with this library; if not, write to the Free Software
21 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
23 # ------------------------------------------------------------------------------
25 # Please feel free to send questions, suggestions or improvements to:
41 my $class = ref($proto) || $proto;
43 $self = \SDL::NewEvent();
50 SDL::FreeEvent($$self);
56 SDL::SetEventType($$self,$_[0]);
58 return SDL::EventType($$self);
67 return SDL::PollEvent($$self);
72 return SDL::PushEvent($$self);
77 return SDL::WaitEvent($$self);
83 return SDL::EventState($self->type(),$state);
89 return SDL::EnableUnicode($toggle);
96 return SDL::EnableKeyRepeat($delay,$interval);
101 return SDL::ActiveEventGain($$self);
106 return SDL::ActiveEventState($$self);
111 return SDL::KeyEventState($$self);
116 return SDL::KeyEventSym($$self);
121 return SDL::GetKeyName(SDL::KeyEventSym($$self));
126 return SDL::KeyEventMod($$self);
131 return SDL::KeyEventUnicode($$self);
136 return SDL::KeyEventScanCode($$self);
141 return SDL::MouseMotionState($$self);
146 return SDL::MouseMotionX($$self);
151 return SDL::MouseMotionY($$self);
156 return SDL::MouseMotionXrel($$self);
161 return SDL::MouseMotionYrel($$self);
166 return SDL::MouseButtonState($$self);
171 return SDL::MouseButtonX($$self);
176 return SDL::MouseButtonY($$self);
181 return SDL::MouseButton($$self);
186 SDL::ResizeEventW($$self);
191 SDL::ResizeEventH($$self);