get-id

diff --git a/Makefile.am b/Makefile.am
index e21fa49107d7ee6174fa1b72c5db90df4fb6d380..1a68584eea03e98d656230501406c53a27c88c8c 100644 (file)
--- a/Makefile.am
+++ b/Makefile.am
@@ -35,6 +35,7 @@ libguile_irrlicht_la_SOURCES = \
   src/event-receiver.cpp \
   src/file-archive.cpp \
   src/file-system.cpp \
+  src/gui-element.cpp \
   src/gui-environment.cpp \
   src/gui-in-out-fader.cpp \
   src/gui-listbox.cpp \

diff --git a/irrlicht.scm b/irrlicht.scm
index 4682a7a4e2cfac4abaf1e405960231d4b10a2844..e61be55ab2ad949dcf86c65ffc0e248990c3bb52 100644 (file)
--- a/irrlicht.scm
+++ b/irrlicht.scm
@@ -100,6 +100,7 @@
                get-font
                get-fps
                get-gui-environment
+               get-id
                get-mesh
                get-name
                get-root-scene-node

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index 7d1819e021712f7fb94fbf9aa9123880cef1b5a9..e154cb31ee9d07d3cd17f82344448d071fa0ea77 100644 (file)
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -42,7 +42,11 @@
 (define-class <gui-element> (<attribute-exchanging-object> <event-receiver>)
   (irr-class #:init-value "IGUIElement"))
 
-(export <gui-element>)
+(define-method (get-id (element <gui-element>))
+  (let ((getID (get-irrlicht-proc "getID" element)))
+    (getID element)))
+
+(export <gui-element> get-id)
 
 
 ;; IGUIEnvironment

diff --git a/src/guile-irrlicht.cpp b/src/guile-irrlicht.cpp
index cd18a09c3d5f81c1500fd9a79d7ed07fe3390d0d..6223aac5cc99f5cb9fb74b9a172f3bd3860f53c0 100644 (file)
--- a/src/guile-irrlicht.cpp
+++ b/src/guile-irrlicht.cpp
@@ -27,6 +27,7 @@
 #include "device.h"
 #include "event-receiver.h"
 #include "file-system.h"
+#include "gui-element.h"
 #include "gui-environment.h"
 #include "gui-in-out-fader.h"
 #include "gui-listbox.h"
@@ -56,6 +57,7 @@ extern "C" {
     init_device ();
     init_event_receiver ();
     init_file_system ();
+    init_gui_element ();
     init_gui_environment ();
     init_gui_in_out_fader ();
     init_gui_listbox ();