X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fgui.scm;h=2299574df1378cf49bd34d625b6f203bf748baa5;hb=9a256c6c6a756378cb53c89d42e362bbaa2fc5c0;hp=bd5eedee204e0d8e1030956390b1770165ccdebc;hpb=71e6e638cba09643fca5dccd1b7295b7db0def06;p=guile-irrlicht.git

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index bd5eede..2299574 100644
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -19,35 +19,23 @@
 
 
 (define-module (irrlicht gui)
-  #:use-module (ice-9 match)
-  #: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!))
+  #:export (add-static-text!))
 
-(define* (add-static-text! gui-env text rectangle
+(load-extension "libguile-irrlicht" "init_guile_irrlicht")
+
+(define irr-add-static-text! add-static-text!)
+(define* (add-static-text! guienv text rectangle
                            #:key
                            (border #f)
                            (word-wrap #t)
-                           (parent %null-pointer)
+                           (parent #f)
                            (id -1)
                            (fill-background #f))
-  (ffi-gui:add-static-text gui-env
-                           (string->pointer text)
-                           (foreign-record->pointer rectangle)
-                           (bool->integer border)
-                           (bool->integer word-wrap)
-                           parent
-                           id
-                           (bool->integer fill-background)))
-
-(define (gui-draw-all gui-env)
-  (ffi-gui:draw-all gui-env))
-
-(define (set-visible-cursor! cursor-control visible)
-  (ffi-gui:set-visible-cursor
-   cursor-control
-   (bool->integer visible)))
+  (irr-add-static-text! guienv
+                        text
+                        rectangle
+                        border
+                        word-wrap
+                        parent
+                        id
+                        fill-background))