dotnet btns to max menu

try(destroyDialog ::bgaRoll)catch()
rollout bgaRoll "• • •"
(
	fn filtGroup o = isGroupMember o or isGroupHead o
	fn getRootGroupHead node = if isgroupmember node do
	(
		while node != undefined and (not isgrouphead node or isgroupmember node) do (node = node.parent)
		node
	)
	pickbutton pick "PickGroup" pos:[5,5] width:100 height:20 filter:filtGroup
	on pick picked obj do if obj != undefined and selection.count !=0 do
	(
		local rootGroup = getRootGroupHead obj
		InstanceMgr.GetInstances rootGroup &groups
		selObjs = getCurrentSelection()
		if groups.count > 1 then 
		(
			with redraw off 
			(
				for i = 1 to groups.count where groups[i] != rootGroup do
				(
					maxOps.cloneNodes selObjs cloneType:#instance newNodes:&objs
					for o in objs do
					(
						if o.parent != undefined do o.parent = undefined
						tm = o.transform * (inverse rootGroup.transform)
						o.transform = tm*groups[i].transform
						attachNodesToGroup o groups[i]
					)
				)
				attachNodesToGroup selObjs rootGroup
			)
		)
	)
 
)
createDialog bgaRoll 110 30 10 110 style:#(#style_titlebar, #style_sysmenu, #style_toolwindow)