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 1d79f296ebff6d97ca88816fe3081f43e420d148..3d0e091e06b47ef11b44c0d4700f229580e056a1 100644 (file)
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -48,18 +48,18 @@
     (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))))
 
 (define-method (draw-all (gui-environment <gui-environment>))
   ((get-irrlicht-proc "drawAll" gui-environment)
-   (irr-pointer gui-environment)))
+   gui-environment))
 
 (export <gui-environment> add-static-text! draw-all)