#:use-module (system foreign)
#:use-module ((irrlicht bindings core) #:prefix ffi-core:)
#:use-module ((irrlicht bindings gui) #:prefix ffi-gui:)
+ #:use-module (irrlicht rect)
+ #:use-module (irrlicht util)
#:export (add-static-text!
gui-draw-all
set-visible-cursor!))
(fill-background #f))
(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)
+ (rect->pointer rectangle)
+ (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))
(define (set-visible-cursor! cursor-control visible)
(ffi-gui:set-visible-cursor
cursor-control
- (if visible 1 0)))
+ (bool->integer visible)))