'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
'\\\\\\\\\\\\By Andrea Padovan Playstos entertainment\\\\\19-09-2002\\\\\\\\\\\\\\\\'
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'

Dim BeforeValue, AfterValue, oSel

'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
Set oRoot =  ActiveProject.ActiveScene.Root 
AddProp "Custom_parameter_list", oRoot , , "MXE Edit Name"
SIAddCustomParameter "MXE_Edit_Name", "Before", siString, 0, 0, 1, , 4, 0, 1
SIAddCustomParameter "MXE_Edit_Name", "After", siString, 0, 0, 1, , 4, 0, 1
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
On Error Resume Next
InspectObj "MXE_Edit_Name" , , , 4
if Err.Number = 0 then
	'Get the dialog values
	BeforeValue			= getValue ("MXE_Edit_Name.Before")
	AfterValue			= getValue ("MXE_Edit_Name.After")
	logmessage BeforeValue
	logmessage AfterValue
	DeleteObj "MXE_Edit_Name"
else
	
	DeleteObj "MXE_Edit_Name"

end if
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
Set oSel = GetValue ("SelectionList")
for each item in oSel
SetValue item & ".name" , BeforeValue & item.name & AfterValue
next
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'