X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;ds=sidebyside;f=src%2Fscene-manager.cpp;h=af96eebc403b09188d10ce0adbe863a9da2aa638;hb=af95bcdb523274a0a768e173807958ffe16e020d;hp=dfa58e5b03b18e23fd5fefa21a98fbf7fcfacf16;hpb=ada2b81f3dde8085dd583dd71674a7575d096fda;p=guile-irrlicht.git

diff --git a/src/scene-manager.cpp b/src/scene-manager.cpp
index dfa58e5..af96eeb 100644
--- a/src/scene-manager.cpp
+++ b/src/scene-manager.cpp
@@ -38,6 +38,25 @@
 #include "vector3d.h"
 #include "wrapped.h"
 
+  SCM
+  irr_drawAll (SCM wrapped_obj)
+  {
+    if (gui_environment_p (wrapped_obj))
+      {
+        unwrap_gui_environment (wrapped_obj)->drawAll ();
+      }
+    else if (scene_manager_p (wrapped_obj))
+      {
+        unwrap_scene_manager (wrapped_obj)->drawAll ();
+      }
+    else
+      {
+        scm_error (scm_arg_type_key, NULL, "Cannot draw all elements from object: ~S",
+                   scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
+      }
+    return SCM_UNSPECIFIED;
+  }
+
 extern "C" {
 
   void