+(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"))
+
+(export <gui-listbox>)
+
+
+;; IGUIEditBox
+(define-class <gui-editbox> (<gui-element>)
+ (irr-class #:init-value "IGUIEditBox"))
+
+(export <gui-editbox>)