Unwrap Irrlicht objects in C++ instead of Guile

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

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index aa12d37424a7f70d806d9576f187f5d4a381f502..3d0e091e06b47ef11b44c0d4700f229580e056a1 100644 (file)
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -48,16 +48,20 @@
     (make <gui-static-text>
       #:irr-pointer
       ((get-irrlicht-proc "addStaticText" gui-environment parent)
-       (irr-pointer gui-environment)
+       gui-environment
        text
        rectangle
        border
        word-wrap
-       (irr-pointer parent)
+       parent
        id
        fill-background))))
 
-(export <gui-environment> add-static-text!)
+(define-method (draw-all (gui-environment <gui-environment>))
+  ((get-irrlicht-proc "drawAll" gui-environment)
+   gui-environment))
+
+(export <gui-environment> add-static-text! draw-all)
 
 
 ;; IGUIStaticText