(let ((setMax (get-irrlicht-proc "setMax" scrollbar)))
(setMax scrollbar max)))
-(export <gui-scrollbar> set-max!)
+(define-method (set-position! (scrollbar <gui-scrollbar>) pos)
+ (let ((setPos (get-irrlicht-proc "setPos" scrollbar)))
+ (setPos scrollbar pos)))
+
+(export <gui-scrollbar> set-max! set-position!)