X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fevent-receiver.h;h=5df68b751ad496b8416f81a36bbc6aba1eb3ecf0;hb=41a6ad96e81a8d8153c54877c4c12f61100677a9;hp=c3bc67d3d0d36c527276fe44448941b27012b8b3;hpb=b6dc1786bc0cf88d56dfe5f307ce7eb873fe6874;p=guile-irrlicht.git

diff --git a/src/event-receiver.h b/src/event-receiver.h
index c3bc67d..5df68b7 100644
--- a/src/event-receiver.h
+++ b/src/event-receiver.h
@@ -24,37 +24,14 @@
 
 #include <irrlicht/irrlicht.h>
 #include <libguile.h>
-#include "wrapped.h"
 
-extern "C" {
+void
+init_event_receiver (void);
 
-  void
-  init_event_receiver (void);
+SCM
+scm_from_event_type (irr::EEVENT_TYPE event_type);
 
-  DECLARE_WRAPPED_TYPE (irr::IEventReceiver*, init_event_receiver_type,
-                        event_receiver_p, wrap_event_receiver, unwrap_event_receiver);
-
-  DECLARE_WRAPPED_TYPE (irr::SEvent*, init_event_type,
-                        event_p, wrap_event, unwrap_event);
-
-  SCM
-  event_gui_caller (SCM event);
-
-  SCM
-  event_key_input_key (SCM event);
-
-  SCM
-  event_key_input_pressed (SCM event);
-
-  SCM
-  event_type (SCM event);
-
-  SCM
-  make_event_receiver (SCM proc_on_event);
-
-  SCM
-  scm_from_event_type (irr::EEVENT_TYPE event_type);
-
-}
+SCM
+scm_from_gui_event_type (irr::gui::EGUI_EVENT_TYPE gui_event_type);
 
 #endif