(define-class <gui-skin> (<attribute-exchanging-object>)
(irr-class #:init-value "IGUISkin"))
+(define-method (get-color (skin <gui-skin>) color)
+ (let ((getColor (get-irrlicht-proc "getColor" skin)))
+ (getColor skin color)))
+
(define-method (set-font! (skin <gui-skin>) font . rest)
(let-keywords rest #f
((which 'default))
(let ((setFont (get-irrlicht-proc "setFont" skin)))
(setFont skin font which))))
-(export <gui-skin> set-font!)
+(define-method (set-color! (skin <gui-skin>) which new-color)
+ (let ((setColor (get-irrlicht-proc "setColor" skin)))
+ (setColor skin which new-color)))
+
+(export <gui-skin> get-color set-font! set-color!)
;; IGUIFont
(define-class <gui-scrollbar> (<gui-element>)
(irr-class #:init-value "IGUIScrollBar"))
-(export <gui-scrollbar>)
+(define-method (get-position (scrollbar <gui-scrollbar>))
+ (let ((getPos (get-irrlicht-proc "getPos" scrollbar)))
+ (getPos scrollbar)))
+
+(define-method (set-max! (scrollbar <gui-scrollbar>) max)
+ (let ((setMax (get-irrlicht-proc "setMax" scrollbar)))
+ (setMax scrollbar max)))
+
+(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!)