ttf=dstBone.transform
	tempPos = ttf.pos
	ttf.rotation= eulerangles 0 0 0 
	ttf.pos = tempPos
	dstBone.transform=ttf

	format "%s \n" "dstBone.transform.rotation"
)		

button showabout mstr[17][2] pos:[460,420] width:60 height:30


fn addchild thenode thobj=
(
	local thenode,newnode,thobj
	dataary=#(thobj.name,thobj,undefined)
	if thobj.name== "Bip001"then
	(
		_globalParent1 = thobj.parent
		_globalBip1 = thobj
		thobj.parent = nil
	)
	else if thobj.name== "eff_head"then
	(
		_globalParent2 = thobj.parent
		_globalBip2 = thobj
		thobj.parent = nil
		format "%s\n" "found head"
	)
	else if thobj.name== "eff_zero"then
	(
		_globalParent3 = thobj.parent
		_globalBip3 = thobj
		thobj.parent = nil
	)
	if thobj.name=="root" or thobj.name=="eff_body" or thobj.name=="eff_foot_l" or  thobj.name=="eff_foot_r" or thobj.name=="eff_hand_l" or thobj.name=="eff_hand_r" or thobj.name=="eff_head" or thobj.name=="eff_weapon_a" or thobj.name=="eff_zero"    then
	(
		resetBonerot thobj

		newnode=thenode.Nodes.add thobj.name
		newnode.tag=dotNetMXSValue dataary
	 
	format "%s\n" thobj.transform.rotation.x
	)
	for child in thobj.children do
	(	
		
		addchild thenode child		
		
	)
)

fn initTV tv obj=
(	
	tv.BeginUpdate()
	tv.Nodes.clear()
	addchild tv obj
	_globalBip1.parent = _globalParent1
	_globalBip2.parent = _globalParent2
	_globalBip3.parent = _globalParent3
	--theRoot.BackColor=(dotNetClass "System.Drawing.Color").red
	--theRoot.BackColor=tv.BackColor

	tv.ExpandAll()
	tv.EndUpdate()

	tv.SelectedNode=tv.Nodes.Item[0]
)

fn getlinkary=
(
	nodeary=(for i=0 to tvdst.nodes.count-1 collect tvdst.nodes.Item[i])
	for cnode in  nodeary do join nodeary (for i=0 to cnode.nodes.count-1 collect cnode.nodes.Item[i])
	
	linkary=#()
	for i= 1 to nodeary.count do 
	(
		dataary=nodeary[i].tag.value
		if dataary[3]!=undefined then
		(
			append linkary #(dataary[2],dataary[3])
		)
	)
	return linkary
)

on setsrc pressed do
(
	format "preseed"
	if $selection.count==1 then
	(
		if isValidNode $selection[1] do initTV tvsrc $selection[1]
	)
	else
	(
		messagebox mstr[22][2]
	)
)	

on setdst pressed do
(	
	if $selection.count==1 then
	(
		if isValidNode $selection[1] do initTV tvdst $selection[1]
				
	)
	else
	(
		messagebox mstr[22][2]
	)		
)	

fn selectNoderefObj EventArg=
(
	if EventArg.Node==undefined then return false
	dstary=EventArg.Node.tag.value
	try(select dstary[2])catch(max select none)			
)

on tvsrc AfterSelect EventArg do
(
	selectNoderefObj EventArg
)

on tvdst AfterSelect EventArg do
(
	selectNoderefObj EventArg		
)

on nextautolink pressed do
(
	Windows.sendMessage addlink.hwnd[1] 0x0201 0 0 --发送左键按下消息
	Windows.sendMessage addlink.hwnd[1] 0x0202 0 0 --发送左键抬起消息
	try
	(
		if tvdst.SelectedNode.NextVisibleNode!=undefined  and tvsrc.SelectedNode.NextVisibleNode!=undefined then
		(
			tvdst.SelectedNode=tvdst.SelectedNode.NextVisibleNode
			tvsrc.SelectedNode=tvsrc.SelectedNode.NextVisibleNode
		)
	)
	catch()
)

on refresh pressed do
(
	try
	(
		obj=tvdst.Nodes.Item[0].tag.value[2]
	)
	catch()
	if isValidNode obj do initTV tvdst obj
)

on showabout pressed do
(
	format "%s\n" "pressed"
	createDialog about_rollout modal:true
)