'Script Copyright  2012 Ryan Marshall (Skarn)
'All Rights Reserved

Dim objPipeEvents

Function Object_OnMouseEnterEx(obj)
	objPipeEvents = Object.Comments
	If objPipeEvents = "" then Exit Function
	On Error Resume Next
	Call DesktopX.ScriptObject(objPipeEvents).Object_OnMouseEnterEx(obj)
End Function

Function Object_OnMouseLeaveEx(obj)
	objPipeEvents = Object.Comments
	If objPipeEvents = "" then Exit Function
	On Error Resume Next
	Call DesktopX.ScriptObject(objPipeEvents).Object_OnMouseLeaveEx(obj)
End Function

Function Object_OnRButtonUpEx(obj,x,y,dragged)
	objPipeEvents = Object.Comments
	If objPipeEvents = "" then Exit Function
	On Error Resume Next
	Object_OnRButtonUpEx = DesktopX.ScriptObject(objPipeEvents).Object_OnRButtonUpEx(obj,x,y,dragged)
End Function

Function Object_OnLButtonDownEx(obj,x,y)
	objPipeEvents = Object.Comments
	If objPipeEvents = "" then Exit Function
	On Error Resume Next
	Object_OnLButtonDownEx = DesktopX.ScriptObject(objPipeEvents).Object_OnLButtonDownEx(obj,x,y)
End function

Function Object_OnDragEx(obj,x,y,newX,newY)
	objPipeEvents = Object.Comments
	If objPipeEvents = "" then Exit Function
	On Error Resume Next
	Call DesktopX.ScriptObject(objPipeEvents).Object_OnDragEx(obj,x,y,newX,newY)
End Function

Function Object_OnDragFinishEx(obj)
	objPipeEvents = Object.Comments
	If objPipeEvents = "" then Exit Function
	On Error Resume Next
	Call DesktopX.ScriptObject(objPipeEvents).Object_OnDragFinishEx(obj)
End Function

Function Object_OnLButtonUpEx(obj,x,y,dragged)
	objPipeEvents = Object.Comments
	If objPipeEvents = "" then Exit Function
	On Error Resume Next
	Call DesktopX.ScriptObject(objPipeEvents).Object_OnLButtonUpEx(obj,x,y,dragged)
End Function