X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=src%2Fdevice.cpp;h=1b06a48c59cb551d204f4991e52fea6627fcd93a;hp=b9ce376dbe93419e42bad291038f785e47914d8e;hb=37aba303eccc24a407f1b5b0af81623e47b89a22;hpb=f842432ad7cfd7f530188e2a4848aea3da03719e

diff --git a/src/device.cpp b/src/device.cpp
index b9ce376..1b06a48 100644
--- a/src/device.cpp
+++ b/src/device.cpp
@@ -40,6 +40,10 @@ extern "C" {
   {
     init_device_type ();
     DEFINE_GSUBR ("irr_createDevice", 7, 0, 0, irr_createDevice);
+    DEFINE_GSUBR ("irr_IrrlichtDevice_getGUIEnvironment", 1, 0, 0,
+                  irr_IrrlichtDevice_getGUIEnvironment);
+    DEFINE_GSUBR ("irr_IrrlichtDevice_getSceneManager", 1, 0, 0,
+                  irr_IrrlichtDevice_getSceneManager);
     DEFINE_GSUBR ("irr_IrrlichtDevice_getVideoDriver", 1, 0, 0,
                   irr_IrrlichtDevice_getVideoDriver);
     DEFINE_GSUBR ("irr_IrrlichtDevice_setWindowCaption", 2, 0, 0,
@@ -76,6 +80,21 @@ extern "C" {
     return scm_from_pointer ((void*)device, NULL);
   }
 
+  SCM
+  irr_IrrlichtDevice_getGUIEnvironment (SCM device){
+    gui::IGUIEnvironment* gui_env =
+      ((IrrlichtDevice*)scm_to_pointer (device))->getGUIEnvironment ();
+    return scm_from_pointer ((void*)gui_env, NULL);
+  }
+
+  SCM
+  irr_IrrlichtDevice_getSceneManager (SCM device)
+  {
+    scene::ISceneManager* manager =
+      ((IrrlichtDevice*)scm_to_pointer (device))->getSceneManager ();
+    return scm_from_pointer ((void*)manager, NULL);
+  }
+
   SCM
   irr_IrrlichtDevice_getVideoDriver (SCM device)
   {