begin-scene

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

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index 8a4c97ed577876dc6f48d01eacc4fbf12ad75d99..2299574df1378cf49bd34d625b6f203bf748baa5 100644 (file)
--- 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)
-                           (ffi-core:rect->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))