call remote procs from guile code

[guile-irrlicht.git] / irrlicht / gui.scm

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index e6e4ab3135320e1a9b925fe1f4172d4b50beed08..aa12d37424a7f70d806d9576f187f5d4a381f502 100644 (file)
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -28,13 +28,15 @@
 
 
 ;; IGUIElement
-(define-class <gui-element> (<attribute-exchanging-object> <event-receiver>))
+(define-class <gui-element> (<attribute-exchanging-object> <event-receiver>)
+  (irr-class #:init-value "IGUIElement" #:getter irr-class))
 
 (export <gui-element>)
 
 
 ;; IGUIEnvironment
-(define-class <gui-environment> (<reference-counted>))
+(define-class <gui-environment> (<reference-counted>)
+  (irr-class #:init-value "IGUIEnvironment" #:getter irr-class))
 
 (define-method (add-static-text! (gui-environment <gui-environment>) text rectangle . rest)
   (let-keywords rest #f
@@ -45,19 +47,21 @@
          (fill-background #f))
     (make <gui-static-text>
       #:irr-pointer
-      (irr_gui_IGUIEnvironment_addStaticText (irr-pointer gui-environment)
-                                             text
-                                             rectangle
-                                             border
-                                             word-wrap
-                                             (irr-pointer parent)
-                                             id
-                                             fill-background))))
+      ((get-irrlicht-proc "addStaticText" gui-environment parent)
+       (irr-pointer gui-environment)
+       text
+       rectangle
+       border
+       word-wrap
+       (irr-pointer parent)
+       id
+       fill-background))))
 
 (export <gui-environment> add-static-text!)
 
 
 ;; IGUIStaticText
-(define-class <gui-static-text> (<gui-element>))
+(define-class <gui-static-text> (<gui-element>)
+  (irr-class #:init-value "IGUIStaticText" #:getter irr-class))
 
 (export <gui-static-text>)