From: Javier Sancho Date: Sat, 23 May 2020 18:08:16 +0000 (+0200) Subject: add-listbox! X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=b6fcc44908c4fe3c2382d32862cb4815372d2974;p=guile-irrlicht.git add-listbox! --- diff --git a/irrlicht.scm b/irrlicht.scm index 5076c2a..d8fe491 100644 --- a/irrlicht.scm +++ b/irrlicht.scm @@ -45,6 +45,7 @@ + @@ -72,6 +73,7 @@ add-file-archive! add-image! add-internal-point! + add-listbox! add-octree-scene-node! add-scrollbar! add-sphere-scene-node! diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm index ca705d5..6f37805 100644 --- a/irrlicht/gui.scm +++ b/irrlicht/gui.scm @@ -67,6 +67,14 @@ (let ((addImage (get-irrlicht-proc "addImage" gui-environment parent))) (addImage gui-environment image pos use-alpha-channel parent id text)))) +(define-method (add-listbox! (gui-environment ) rectangle . rest) + (let-keywords rest #f + ((parent (make )) + (id -1) + (draw-background #f)) + (let ((addListBox (get-irrlicht-proc "addListBox" gui-environment parent))) + (addListBox gui-environment rectangle parent id draw-background)))) + (define-method (add-scrollbar! (gui-environment ) horizontal rectangle . rest) (let-keywords rest #f ((parent (make )) @@ -101,8 +109,8 @@ (let ((getSkin (get-irrlicht-proc "getSkin" gui-environment))) (getSkin gui-environment))) -(export add-button! add-image! add-scrollbar! add-static-text! draw-all - get-built-in-font get-font get-skin) +(export add-button! add-image! add-listbox! add-scrollbar! add-static-text! + draw-all get-built-in-font get-font get-skin) ;; IGUIStaticText @@ -175,3 +183,10 @@ (setPos scrollbar pos))) (export get-position set-max! set-position!) + + +;; IGUIListBox +(define-class () + (irr-class #:init-value "IGUIListBox")) + +(export )