Cast to the proper wrapped object when a gui event is raised

[guile-irrlicht.git] / irrlicht / irr.scm

diff --git a/irrlicht/irr.scm b/irrlicht/irr.scm
index 2a1f78849707df5fe4d9f8a4b3d9b2b9f01c35da..f220cdf094b3df50a6946cc2ddbddd4075499fca 100644 (file)
--- a/irrlicht/irr.scm
+++ b/irrlicht/irr.scm
@@ -41,7 +41,7 @@
 
 (define-method (get-event-gui-caller (event <event>))
   (let ((SGUIEvent_Caller (get-irrlicht-proc "SGUIEvent_Caller" event)))
-    (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)))