+(define-method (get-event-gui-caller (event <event>))
+ (let ((SGUIEvent_Caller (get-irrlicht-proc "SGUIEvent_Caller" event)))
+ (remember-wrapped (SGUIEvent_Caller event))))
+
+(define-method (get-event-gui-type (event <event>))
+ (let ((SGUIEvent_EventType (get-irrlicht-proc "SGUIEvent_EventType" event)))
+ (SGUIEvent_EventType event)))
+