X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fgui.scm;h=09102694c5f6b1621ece4a5c3d3274ac52c17059;hp=641cf4715a46ef90e761b81a53a86da1a8e1c838;hb=d8367430b147ccdb2505295a7d50f1f412b4e6e1;hpb=eaa186435f0c641c53841d8d15581525bd542249

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index 641cf47..0910269 100644
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -23,6 +23,7 @@
   #:use-module (system foreign)
   #:use-module ((irrlicht bindings core) #:prefix ffi-core:)
   #:use-module ((irrlicht bindings gui) #:prefix ffi-gui:)
+  #:use-module (irrlicht util)
   #:export (add-static-text!
             gui-draw-all
             set-visible-cursor!))
@@ -37,11 +38,11 @@
   (ffi-gui:add-static-text gui-env
                            (string->pointer text)
                            (make-c-struct ffi-core:rect rectangle)
-                           (if border 1 0)
-                           (if word-wrap 1 0)
+                           (bool->integer border)
+                           (bool->integer word-wrap)
                            parent
                            id
-                           (if fill-background 1 0)))
+                           (bool->integer fill-background)))
 
 (define (gui-draw-all gui-env)
   (ffi-gui:draw-all gui-env))
@@ -49,4 +50,4 @@
 (define (set-visible-cursor! cursor-control visible)
   (ffi-gui:set-visible-cursor
    cursor-control
-   (if visible 1 0)))
+   (bool->integer visible)))