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

diff --git a/src/gui-element.cpp b/src/gui-element.cpp
index e93872d..896554d 100644
--- a/src/gui-element.cpp
+++ b/src/gui-element.cpp
@@ -21,19 +21,30 @@
 
 #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);
+template <typename T>
+SCM
+IGUIElement_getID (SCM gui_element)
+{
+  T element = (T) scm_to_irr_pointer (gui_element);
+  return scm_from_int32 (element->getID ());
+}
 
+void
+init_gui_element (void)
+{
+  DEFINE_GSUBR ("IGUIButton_getID", 1, 0, 0, IGUIElement_getID<gui::IGUIButton*>);
+  DEFINE_GSUBR ("IGUIEditBox_getID", 1, 0, 0, IGUIElement_getID<gui::IGUIEditBox*>);
+  DEFINE_GSUBR ("IGUIElement_getID", 1, 0, 0, IGUIElement_getID<gui::IGUIElement*>);
+  DEFINE_GSUBR ("IGUIFileOpenDialog_getID", 1, 0, 0, IGUIElement_getID<gui::IGUIFileOpenDialog*>);
+  DEFINE_GSUBR ("IGUIImage_getID", 1, 0, 0, IGUIElement_getID<gui::IGUIImage*>);
+  DEFINE_GSUBR ("IGUIListBox_getID", 1, 0, 0, IGUIElement_getID<gui::IGUIListBox*>);
+  DEFINE_GSUBR ("IGUIScrollBar_getID", 1, 0, 0, IGUIElement_getID<gui::IGUIScrollBar*>);
+  DEFINE_GSUBR ("IGUIStaticText_getID", 1, 0, 0, IGUIElement_getID<gui::IGUIStaticText*>);
+  DEFINE_GSUBR ("IGUIWindow_getID", 1, 0, 0, IGUIElement_getID<gui::IGUIWindow*>);
 }