From: Tobias Leich <tobias.leich@adckrone.com>
Date: Fri, 6 Nov 2009 18:57:27 +0000 (+0100)
Subject: moved to SDL::Game::Event
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8aa2a0ffa5f1295a8d3b31f7cb3a337cba55c137;p=sdlgit%2FSDL_perl.git

moved to SDL::Game::Event
---

diff --git a/lib/SDL/Event.pm b/lib/SDL/Event.pm
index baa1801..de538dd 100644
--- a/lib/SDL/Event.pm
+++ b/lib/SDL/Event.pm
@@ -1,194 +1,8 @@
-#!/usr/bin/env perl
-#
-# Event.pm
-#
-# Copyright (C) 2005 David J. Goehrig <dgoehrig@cpan.org>
-#
-# ------------------------------------------------------------------------------
-#
-# This library is free software; you can redistribute it and/or
-# modify it under the terms of the GNU Lesser General Public
-# License as published by the Free Software Foundation; either
-# version 2.1 of the License, or (at your option) any later version.
-# 
-# This library is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-# Lesser General Public License for more details.
-# 
-# You should have received a copy of the GNU Lesser General Public
-# License along with this library; if not, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
-#
-# ------------------------------------------------------------------------------
-#
-# Please feel free to send questions, suggestions or improvements to:
-#
-#	David J. Goehrig
-#	dgoehrig@cpan.org
-#
-
 package SDL::Event;
-
 use strict;
 use warnings;
-use Carp;
-
-use SDL;
-
-sub new {
-	my $proto = shift;
-	my $class = ref($proto) || $proto;
-	my $self;
-	$self = \SDL::NewEvent();
-	bless $self, $class;
-	return $self;
-}
-
-sub DESTROY {
-	my $self = shift;
-	SDL::FreeEvent($$self);
-}
-
-sub type {
-	my $self = shift;
-	if (@_) {
-		SDL::SetEventType($$self,$_[0]);
-	}
-	return SDL::EventType($$self);
-}
-
-sub pump {
-	SDL::PumpEvents();
-}
-
-sub poll {
-	my $self = shift;
-	return SDL::PollEvent($$self);
-}
-
-sub push {
-	my $self = shift;
-	return SDL::PushEvent($$self);
-}
-
-sub wait {
-	my $self = shift;
-	return SDL::WaitEvent($$self);
-}
-
-sub set { 
-	my $self = shift;
-	my $state = shift;
-	return SDL::EventState($self->type(),$state);
-}
-
-sub set_unicode {
-	my $self = shift;
-	my $toggle = shift;
-	return SDL::EnableUnicode($toggle);
-}
-
-sub set_key_repeat {
-	my $self = shift;
-	my $delay = shift;
-	my $interval = shift;
-	return SDL::EnableKeyRepeat($delay,$interval);
-}
-
-sub active_gain {
-	my $self = shift;
-	return SDL::ActiveEventGain($$self);
-}
-
-sub active_state {
-	my $self = shift;
-	return SDL::ActiveEventState($$self);
-}
-
-sub key_state {
-	my $self = shift;
-	return SDL::KeyEventState($$self);
-}
-
-sub key_sym {
-	my $self = shift;
-	return SDL::KeyEventSym($$self);
-}
-
-sub key_name {
-	my $self = shift;
-	return SDL::GetKeyName(SDL::KeyEventSym($$self));
-}
-
-sub key_mod {
-	my $self = shift;
-	return SDL::KeyEventMod($$self);
-}
-
-sub key_unicode {
-	my $self = shift;
-	return SDL::KeyEventUnicode($$self);
-}
-
-sub key_scancode {
-	my $self = shift;
-	return SDL::KeyEventScanCode($$self);
-}
-
-sub motion_state {
-	my $self = shift;
-	return SDL::MouseMotionState($$self);
-}
-
-sub motion_x {
-	my $self = shift;
-	return SDL::MouseMotionX($$self);
-}
-
-sub motion_y {
-	my $self = shift;
-	return SDL::MouseMotionY($$self);
-}
-
-sub motion_xrel {
-	my $self = shift;
-	return SDL::MouseMotionXrel($$self);
-}
-
-sub motion_yrel {
-	my $self = shift;
-	return SDL::MouseMotionYrel($$self);
-}
-
-sub button_state {
-	my $self = shift;
-	return SDL::MouseButtonState($$self);
-}
-
-sub button_x {
-	my $self = shift;
-	return SDL::MouseButtonX($$self);
-}
-
-sub button_y {
-	my $self = shift;
-	return SDL::MouseButtonY($$self);
-}
-
-sub button {
-	my $self = shift;
-	return SDL::MouseButton($$self);
-}
-
-sub resize_w {
-	my $self = shift;
-	SDL::ResizeEventW($$self);
-}
-
-sub resize_h {
-	my $self = shift;
-	SDL::ResizeEventH($$self);
-}
-
-1;
+require Exporter;
+require DynaLoader;
+our @ISA = qw(Exporter DynaLoader);
+bootstrap SDL::Event;
+1;
\ No newline at end of file