(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))