X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fbindings%2Fgui.scm;h=ad2a8c80fe8088772daae32eee253793853bac0c;hb=5f5b7536e4f044eb617925db8d4df9b02be3ba7d;hp=beb6459d9a76d58ee6c0d3fcaf4c862867cca547;hpb=954186a692ada723b904a9a28a7b9043deeb7552;p=guile-irrlicht.git

diff --git a/irrlicht/bindings/gui.scm b/irrlicht/bindings/gui.scm
index beb6459..ad2a8c8 100644
--- a/irrlicht/bindings/gui.scm
+++ b/irrlicht/bindings/gui.scm
@@ -19,24 +19,14 @@
 
 
 (define-module (irrlicht bindings gui)
-  #:use-module (system foreign))
+  #:use-module (system foreign)
+  #:use-module (irrlicht util))
 
-(define cirr (dynamic-link "libCIrrlicht"))
+(define-foreign add-static-text
+  '* "irr_gui_addStaticText" (list '* '* '* int int '* int int))
 
-(define-public add-static-text
-  (pointer->procedure
-   '*
-   (dynamic-func "irr_gui_addStaticText" cirr)
-   (list '* '* '* int int '* int int)))
+(define-foreign draw-all
+  void "irr_gui_drawAll" (list '*))
 
-(define-public draw-all
-  (pointer->procedure
-   void
-   (dynamic-func "irr_gui_drawAll" cirr)
-   (list '*)))
-
-(define-public set-visible-cursor
-  (pointer->procedure
-   void
-   (dynamic-func "irr_gui_setVisibleCursor" cirr)
-   (list '* int)))
+(define-foreign set-visible-cursor
+  void "irr_gui_setVisibleCursor" (list '* int))