X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fgui.scm;h=3d0e091e06b47ef11b44c0d4700f229580e056a1;hp=1d79f296ebff6d97ca88816fe3081f43e420d148;hb=c4d9e46f268b4f7f738dd77685c632991125cec9;hpb=6bcbb2cefb0e69afae9b1de828b85f506b1bef19

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index 1d79f29..3d0e091 100644
--- 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)