macroScript SetActiveGrid
category:"eqko"
tooltip:"Set Active Grid"

(
try (destroyDialog SetActiveGrid)
Catch ()
clearListener()

Rollout SetActiveGrid "Set Active Grid"
	(		
		local gridHelpers = for i in objects where classOf i == grid collect i
		local gridHelpersName = for i = 1 to gridHelpers.count collect gridHelpers[i].name
		local appendTogridHelpersName = insertItem "Home Grid" gridHelpersName 1
		
		listbox lb_grids "Available Grids:" items:gridHelpersName selection:0 height:gridHelpersName.count
		
		on lb_grids selected item do (
			if item ==1 then (
				if activeGrid != undefined do activeGrid = undefined
				)
			else (
				for obj in objects do (
					if obj.name == lb_grids.selected do select obj
					max activate grid object
					deselect obj
					)
				)
			)
		
			
	)
CreateDialog SetActiveGrid width:150 pos:[50,100]
)