event-receiver

[guile-irrlicht.git] / src / event-receiver.h

diff --git a/src/event-receiver.h b/src/event-receiver.h
index b85efd4eabb4f5097131babcfab5caac58fa04be..516c7b57dd5cc6c41ff72c51e52187c4009268a2 100644 (file)
--- a/src/event-receiver.h
+++ b/src/event-receiver.h
@@ -24,43 +24,34 @@
 
 #include <irrlicht/irrlicht.h>
 #include <libguile.h>
-#include "wrapped.h"
 
-extern "C" {
-
-  void
-  init_event_receiver (void);
-
-  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
+IEventRecevier_make (SCM proc_on_event);
 
-  SCM
-  get_event_gui_caller (SCM event);
+SCM
+SEvent_EventType (SCM event);
 
-  SCM
-  get_event_gui_type (SCM event);
+SCM
+SEvent_SGUIEvent_Caller (SCM event);
 
-  SCM
-  get_event_key_input_key (SCM event);
+SCM
+SEvent_SGUIEvent_EventType (SCM event);
 
-  SCM
-  get_event_key_input_pressed (SCM event);
+SCM
+SEvent_SKeyInput_Key (SCM event);
 
-  SCM
-  get_event_type (SCM event);
+SCM
+SEvent_SKeyInput_PressedDown (SCM event);
 
-  SCM
-  make_event_receiver (SCM proc_on_event);
-
-  SCM
-  scm_from_event_type (irr::EEVENT_TYPE event_type);
+extern "C" {
+  void
+  init_event_receiver (void);
+}
 
-  SCM
-  scm_from_gui_event_type (irr::gui::EGUI_EVENT_TYPE gui_event_type);
+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