(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