From: Javier Sancho Date: Fri, 15 May 2020 06:07:02 +0000 (+0200) Subject: set-visible! X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=f0da6b5b2ca5b945912888864b264dc79dc031a1;p=guile-irrlicht.git set-visible! --- diff --git a/irrlicht.scm b/irrlicht.scm index 2807ec8..103ac60 100644 --- a/irrlicht.scm +++ b/irrlicht.scm @@ -51,6 +51,7 @@ set-material-texture! set-md2-animation! set-position! + set-visible! set-window-caption!)) ;; Merged methods have to be exported apart diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm index 818d062..1471409 100644 --- a/irrlicht/gui.scm +++ b/irrlicht/gui.scm @@ -27,6 +27,17 @@ #:use-module (irrlicht irr)) +;; ICursorControl +(define-class () + (irr-class #:init-value "ICursorControl")) + +(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"))