X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=src%2Fgui-environment.cpp;h=5af49682d673585a1865eb8d88c561d41872d7a9;hp=00ca228b3bd9bc2faa6627e0b96db1f68804966e;hb=af95bcdb523274a0a768e173807958ffe16e020d;hpb=ada2b81f3dde8085dd583dd71674a7575d096fda

diff --git a/src/gui-environment.cpp b/src/gui-environment.cpp
index 00ca228..5af4968 100644
--- a/src/gui-environment.cpp
+++ b/src/gui-environment.cpp
@@ -173,6 +173,14 @@ gui_IGUIEnvironment_addWindow (SCM gui_environment,
 }
 
 
+SCM
+gui_IGUIEnvironment_drawAll (SCM gui_environment)
+{
+  ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->drawAll ();
+  return SCM_UNSPECIFIED;
+}
+
+
 SCM
 gui_IGUIEnvironment_getBuiltInFont (SCM gui_environment)
 {
@@ -221,6 +229,7 @@ extern "C" {
                   gui_IGUIEnvironment_addStaticText<gui::IGUIElement*>);
     DEFINE_GSUBR ("gui_IGUIEnvironment_addWindow_IGUIElement", 6, 0, 0,
                   gui_IGUIEnvironment_addWindow<gui::IGUIElement*>);
+    DEFINE_GSUBR ("gui_IGUIEnvironment_drawAll", 1, 0, 0, gui_IGUIEnvironment_drawAll);
     DEFINE_GSUBR ("gui_IGUIEnvironment_getBuiltInFont", 1, 0, 0, gui_IGUIEnvironment_getBuiltInFont);
     DEFINE_GSUBR ("gui_IGUIEnvironment_getFont", 2, 0, 0, gui_IGUIEnvironment_getFont);
     DEFINE_GSUBR ("gui_IGUIEnvironment_getSkin", 1, 0, 0, gui_IGUIEnvironment_getSkin);