X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=src%2Fgui-environment.cpp;h=df43fc63d5359ef1b4ca5aef614cf8fbc2886a9f;hp=87fe38d4939005940102e743d99d5d06d9bc9cb3;hb=37aba303eccc24a407f1b5b0af81623e47b89a22;hpb=f842432ad7cfd7f530188e2a4848aea3da03719e

diff --git a/src/gui-environment.cpp b/src/gui-environment.cpp
index 87fe38d..df43fc6 100644
--- a/src/gui-environment.cpp
+++ b/src/gui-environment.cpp
@@ -54,7 +54,6 @@ extern "C" {
     DEFINE_GSUBR ("add-static-text!", 3, 0, 1, irr_gui_addStaticText);
     DEFINE_GSUBR ("add-window!", 2, 0, 1, irr_gui_addWindow);
     DEFINE_GSUBR ("get-built-in-font", 1, 0, 0, irr_gui_getBuiltInFont);
-    DEFINE_GSUBR ("get-gui-environment", 1, 0, 0, irr_getGUIEnvironment);
     DEFINE_GSUBR ("get-skin", 1, 0, 0, irr_gui_getSkin);
   }
 
@@ -62,22 +61,6 @@ extern "C" {
                        init_gui_environment_type, gui_environment_p,
                        wrap_gui_environment, unwrap_gui_environment);
 
-  SCM
-  irr_getGUIEnvironment (SCM wrapped_obj)
-  {
-    irr::gui::IGUIEnvironment* gui_environment;
-    if (device_p (wrapped_obj))
-      {
-        gui_environment = unwrap_device (wrapped_obj)->getGUIEnvironment ();
-      }
-    else
-      {
-        scm_error (scm_arg_type_key, NULL, "Cannot get GUI environment from object: ~S",
-                   scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
-      }
-    return wrap_gui_environment (gui_environment);
-  }
-
   SCM
   irr_gui_addImage (SCM wrapped_gui_environment,
                     SCM image,