(define-class <gui-element> (<attribute-exchanging-object> <event-receiver>)
(irr-class #:init-value "IGUIElement"))
-(export <gui-element>)
+(define-method (get-id (element <gui-element>))
+ (let ((getID (get-irrlicht-proc "getID" element)))
+ (getID element)))
+
+(export <gui-element> get-id)
;; IGUIEnvironment
(getBuiltInFont gui-environment)))
(define-method (get-font (gui-environment <gui-environment>) filename)
- (let ((getFont (get-irrlicht-proc "getFont" gui-environment)))
- (getFont gui-environment filename)))
+ (let ((getFont (get-irrlicht-proc "getFont" gui-environment))
+ (font (getFont gui-environment filename)))
+ (if (null-object? font)
+ (error "In procedure get-font: Font unavailable")
+ font)))
(define-method (get-skin (gui-environment <gui-environment>))
(let ((getSkin (get-irrlicht-proc "getSkin" gui-environment)))