refactor

[guile-irrlicht.git] / src / device.cpp

diff --git a/src/device.cpp b/src/device.cpp
index bb43ddb702cf1ae99f04367b0595cb91d6e0a729..e578e057a9b04ac2f3857ca545f3a1ec54443636 100644 (file)
--- a/src/device.cpp
+++ b/src/device.cpp
@@ -25,9 +25,6 @@
 #include "device.h"
 #include "dimension2d.h"
 #include "driver-types.h"
-#include "gui-environment.h"
-#include "scene-manager.h"
-#include "video-driver.h"
 #include "wchar.h"
 #include "wrapped.h"
 
@@ -38,9 +35,6 @@ extern "C" {
   {
     init_device_type ();
     scm_c_define_gsubr ("create-device", 7, 0, 0, (scm_t_subr)irr_createDevice);
-    scm_c_define_gsubr ("get-gui-environment", 1, 0, 0, (scm_t_subr)irr_getGUIEnvironment);
-    scm_c_define_gsubr ("get-scene-manager", 1, 0, 0, (scm_t_subr)irr_getSceneManager);
-    scm_c_define_gsubr ("get-video-driver", 1, 0, 0, (scm_t_subr)irr_getVideoDriver);
     scm_c_define_gsubr ("set-window-caption!", 2, 0, 0, (scm_t_subr)irr_setWindowCaption);
   }
 
@@ -67,30 +61,6 @@ extern "C" {
     return wrap_device (device);
   }
 
-  SCM
-  irr_getGUIEnvironment (SCM wrapped_device)
-  {
-    irr::IrrlichtDevice* device = unwrap_device (wrapped_device);
-    irr::gui::IGUIEnvironment* gui_environment = device->getGUIEnvironment ();
-    return wrap_gui_environment (gui_environment);
-  }
-
-  SCM
-  irr_getSceneManager (SCM wrapped_device)
-  {
-    irr::IrrlichtDevice* device = unwrap_device (wrapped_device);
-    irr::scene::ISceneManager* scene_manager = device->getSceneManager ();
-    return wrap_scene_manager (scene_manager);
-  }
-
-  SCM
-  irr_getVideoDriver (SCM wrapped_device)
-  {
-    irr::IrrlichtDevice* device = unwrap_device (wrapped_device);
-    irr::video::IVideoDriver* driver = device->getVideoDriver ();
-    return wrap_video_driver (driver);
-  }
-
   SCM
   irr_setWindowCaption (SCM wrapped_device,
                         SCM text)