Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
DataEnvironments
Message
General information
Forum:
Visual FoxPro
Category:
The Mere Mortals Framework
Miscellaneous
Thread ID:
00322871
Message ID:
00323052
Views:
27
>
>I should be doing real work but the geek in me had to play with this...
>
>If I just kill the event object and let that destroy cascade down to the ParticipatingEntities I'm seeing the leftover cursors. But if I add a method to my base event, that cycles thru the ParticipatingEntities and releases them individually before the my Event gets nixed it seems ok... no left over cursors in my single test circumstance. Test circumstance = fresh quickstart project with nothing in it & only tested in development. HTH.

It's the geek in you that makes you so lovable. BTW, the cleanup method of the event should handle that...
LOCAL lnObjCount, lnCount, loObject

lnObjCount = This.GetObjectCount()

FOR lnCount = lnObjCount TO 1 STEP -1
	IF This.aChildren[lnCount, CHILD_CREATED]
		loObject = This.Get[lnCount]
		This.Remove(lnCount)
		loObject.Cleanup()
		loObject.Release()
	ENDIF
ENDFOR
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform