<gui-element>

[guile-irrlicht.git] / src / gui-element.cpp

diff --git a/src/gui-element.cpp b/src/gui-element.cpp
index e93872d7600a51f537b6cd44e907dedd2ba85140..39d3a414e9db798534a5eba7a03267eaf20bd2a4 100644 (file)
--- a/src/gui-element.cpp
+++ b/src/gui-element.cpp
@@ -21,19 +21,21 @@
 
 #include <irrlicht/irrlicht.h>
 #include <libguile.h>
+#include "gsubr.h"
 #include "gui-element.h"
 #include "wrapped.h"
 
-extern "C" {
+using namespace irr;
 
-  void
-  init_gui_element (void)
-  {
-    init_gui_element_type ();
-  }
-
-  DEFINE_WRAPPED_TYPE (irr::gui::IGUIElement*, "gui-element",
-                       init_gui_element_type, gui_element_p,
-                       wrap_gui_element, unwrap_gui_element);
+SCM
+IGUIElement_getID (SCM gui_element)
+{
+  gui::IGUIElement* element = (gui::IGUIElement*) scm_to_irr_pointer (gui_element);
+  return scm_from_int32 (element->getID ());
+}
 
+void
+init_gui_element (void)
+{
+  DEFINE_GSUBR ("IGUIElement_getID", 1, 0, 0, IGUIElement_getID);
 }