macroScript quadMenuList
	category:"RobG3D Scripts"
(
	try (destroyDialog roll_mouseList) catch ()
	
	allObjArr = #()
	allObjStrArr = #()

	for i in objects do (
		if i.isHidden == false then append allObjArr i
	)

	for i in 1 to allObjArr.count do (
		append allObjStrArr allObjArr[i].name
	)
	
	if objects.count >= 1 then (
		rollout roll_mouseList "Falloff" --width:200 height:24
		(
			
			listbox li_allObj "Scene Objects" items:allObjStrArr height:allObjStrArr.count
			
			on li_allObj selected sel do (
				objStr = li_allObj.items[sel]
				execute ("selectMore $" + objStr)
			)
			
			on li_allObj doubleClicked sel do (
				objStr = li_allObj.items[sel]
				execute ("selectMore $" + objStr)
				
				destroyDialog roll_mouseList
			)
		)
		
		createDialog roll_mouseList pos:(mouse.screenpos - [10,10]) style:#(#style_sysmenu)
	)
)