+(define-method (set-position! (scrollbar <gui-scrollbar>) pos)
+ (let ((setPos (get-irrlicht-proc "setPos" scrollbar)))
+ (setPos scrollbar pos)))
+
+(export <gui-scrollbar> get-position set-max! set-position!)
+
+
+;; IGUIListBox
+(define-class <gui-listbox> (<gui-element>)
+ (irr-class #:init-value "IGUIListBox"))
+
+(define-method (add-item! (listbox <gui-listbox>) text)
+ (let ((addItem (get-irrlicht-proc "addItem" listbox)))
+ (addItem listbox text)))
+
+(export <gui-listbox> add-item!)
+
+
+;; IGUIEditBox
+(define-class <gui-editbox> (<gui-element>)
+ (irr-class #:init-value "IGUIEditBox"))
+
+(export <gui-editbox>)
+
+
+;; IGUIWindow
+(define-class <gui-window> (<gui-element>)
+ (irr-class #:init-value "IGUIWindow"))
+
+(export <gui-window>)
+
+
+;; IGUIFileOpenDialog
+(define-class <gui-file-open-dialog> (<gui-element>)
+ (irr-class #:init-value "IGUIFileOpenDialog"))
+
+(define-method (get-file-name (dialog <gui-file-open-dialog>))
+ (let ((getFileName (get-irrlicht-proc "getFileName" dialog)))
+ (getFileName dialog)))
+
+(export <gui-file-open-dialog> get-file-name)