X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgui-element.cpp;h=39d3a414e9db798534a5eba7a03267eaf20bd2a4;hb=79e12d94cc21232477796a4e76fc2ddb5d88f9dc;hp=e93872d7600a51f537b6cd44e907dedd2ba85140;hpb=2806f03eafc48ec9ef02a3dc2d74133eaf11ccc1;p=guile-irrlicht.git

diff --git a/src/gui-element.cpp b/src/gui-element.cpp
index e93872d..39d3a41 100644
--- 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);
 }