(define-class <gui-scrollbar> (<gui-element>)
(irr-class #:init-value "IGUIScrollBar"))
-(export <gui-scrollbar>)
+(define-method (set-max! (scrollbar <gui-scrollbar>) max)
+ (let ((setMax (get-irrlicht-proc "setMax" scrollbar)))
+ (setMax scrollbar max)))
+
+(export <gui-scrollbar> set-max!)