X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fgui.scm;h=1471409807bc524261e95e27851b1e50a58ae3a3;hb=f0da6b5b2ca5b945912888864b264dc79dc031a1;hp=70a2f97db51895c86135db6f6515d77e00e6939c;hpb=37aba303eccc24a407f1b5b0af81623e47b89a22;p=guile-irrlicht.git diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm index 70a2f97..1471409 100644 --- a/irrlicht/gui.scm +++ b/irrlicht/gui.scm @@ -20,11 +20,63 @@ (define-module (irrlicht gui) #:use-module (oop goops) + #:use-module (ice-9 optargs) #:use-module (irrlicht base) - #:use-module (irrlicht foreign)) + #:use-module (irrlicht foreign) + #:use-module (irrlicht io) + #:use-module (irrlicht irr)) -;; IVideoDriver -(define-class ()) +;; ICursorControl +(define-class () + (irr-class #:init-value "ICursorControl")) -(export ) +(define-method (set-visible! (cursor-control ) visible) + (let ((setVisible (get-irrlicht-proc "setVisible" cursor-control))) + (setVisible cursor-control visible))) + +(export set-visible!) + + +;; IGUIElement +(define-class ( ) + (irr-class #:init-value "IGUIElement")) + +(export ) + + +;; IGUIEnvironment +(define-class () + (irr-class #:init-value "IGUIEnvironment")) + +(define-method (add-static-text! (gui-environment ) text rectangle . rest) + (let-keywords rest #f + ((border #f) + (word-wrap #t) + (parent (make )) + (id -1) + (fill-background #f)) + (make + #:irr-pointer + ((get-irrlicht-proc "addStaticText" gui-environment parent) + gui-environment + text + rectangle + border + word-wrap + parent + id + fill-background)))) + +(define-method (draw-all (gui-environment )) + ((get-irrlicht-proc "drawAll" gui-environment) + gui-environment)) + +(export add-static-text! draw-all) + + +;; IGUIStaticText +(define-class () + (irr-class #:init-value "IGUIStaticText")) + +(export )