From: Javier Sancho Date: Sat, 23 May 2020 07:16:18 +0000 (+0200) Subject: add-scrollbar! X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=b2cce66c3f6e26d1d5442e30b8324218932e11a3;p=guile-irrlicht.git add-scrollbar! --- diff --git a/irrlicht.scm b/irrlicht.scm index 1fc0c4f..738a339 100644 --- a/irrlicht.scm +++ b/irrlicht.scm @@ -45,6 +45,7 @@ + @@ -72,6 +73,7 @@ add-image! add-internal-point! add-octree-scene-node! + add-scrollbar! add-sphere-scene-node! add-static-text! begin-scene diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm index 86afd9c..75adff1 100644 --- a/irrlicht/gui.scm +++ b/irrlicht/gui.scm @@ -67,6 +67,13 @@ (let ((addImage (get-irrlicht-proc "addImage" gui-environment parent))) (addImage gui-environment image pos use-alpha-channel parent id text)))) +(define-method (add-scrollbar! (gui-environment ) horizontal rectangle . rest) + (let-keywords rest #f + ((parent (make )) + (id -1)) + (let ((addScrollBar (get-irrlicht-proc "addScrollBar" gui-environment parent))) + (addScrollBar gui-environment horizontal rectangle parent id)))) + (define-method (add-static-text! (gui-environment ) text rectangle . rest) (let-keywords rest #f ((border #f) @@ -94,8 +101,8 @@ (let ((getSkin (get-irrlicht-proc "getSkin" gui-environment))) (getSkin gui-environment))) -(export add-button! add-image! add-static-text! draw-all get-built-in-font - get-font get-skin) +(export add-button! add-image! add-scrollbar! add-static-text! draw-all + get-built-in-font get-font get-skin) ;; IGUIStaticText @@ -141,3 +148,10 @@ (irr-class #:init-value "IGUIButton")) (export ) + + +;; IGUIScrollBar +(define-class () + (irr-class #:init-value "IGUIScrollBar")) + +(export )