X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2FIrrlichtDevice.h;h=898341bb24887fb87cb9b588bdd1a65b6420b211;hb=a8ec20de5146479a15d388393b37bbf3e346f619;hp=5d33bfd5bef08b3c482f51ccf370570703905834;hpb=84e93e7eac45dde889fc436a247838da3c87edf6;p=guile-irrlicht.git

diff --git a/src/IrrlichtDevice.h b/src/IrrlichtDevice.h
index 5d33bfd..898341b 100644
--- a/src/IrrlichtDevice.h
+++ b/src/IrrlichtDevice.h
@@ -24,20 +24,15 @@
 
 #include <irrlicht/irrlicht.h>
 #include <libguile.h>
+#include "wrapped.h"
 
 extern "C" {
 
   void
   init_device (void);
 
-  void
-  init_device_type (void);
-
-  SCM
-  wrap_device (irr::IrrlichtDevice* device);
-
-  irr::IrrlichtDevice*
-  unwrap_device (SCM device_obj);
+  DECLARE_WRAPPED_TYPE (irr::IrrlichtDevice*, init_device_type,
+                        device_p, wrap_device, unwrap_device);
 
   SCM
   irr_createDevice (SCM deviceType,
@@ -49,16 +44,16 @@ extern "C" {
                     SCM receiver);
 
   SCM
-  irr_getGUIEnvironment (SCM device_obj);
+  irr_getGUIEnvironment (SCM wrapped_device);
 
   SCM
-  irr_getSceneManager (SCM device_obj);
+  irr_getSceneManager (SCM wrapped_device);
 
   SCM
-  irr_getVideoDriver (SCM device_obj);
+  irr_getVideoDriver (SCM wrapped_device);
 
   SCM
-  irr_setWindowCaption (SCM device,
+  irr_setWindowCaption (SCM wrapped_device,
                         SCM text);
 
 }