'

'	This example checks to see if an object really has a parent

'

set oSphere = ActiveProject.ActiveScene.Root.AddGeometry("Sphere", "NurbsSurface")

Compare oSphere

set oApp = Application

Compare oApp

'------------------------------------------------------------------------------

' NAME:		Compare

'

' INPUT:

'

' DESCRIPTION: Logs if the object has a parent or not.

'------------------------------------------------------------------------------

sub Compare (in_obj)

	if in_obj.IsEqualTo(in_obj.Parent) then

		LogMessage "The parent is the object itself"

	else

		LogMessage "The object has a parent. "

	end if

end sub