(define-class <gui-skin> (<attribute-exchanging-object>)
(irr-class #:init-value "IGUISkin"))
-(export <gui-skin>)
+(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!)
;; IGUIFont