rollout chooseRenderer "Choose Renderer"
(
	local rc = RendererClass.classes
	group "Assign Renderer (double click)"
	(
		listBox lbxRend "" height:8
	)
	group "Current Renderer"
	(
		Label inf ""
	)
	on chooseRenderer open do (
		deleteItem rc (findItem rc Missing_Renderer)
		lbxRend.items = for r in rc collect (r as string)
		inf.text = (filterString (renderers.current as string) ":")[1]
	)
	on lbxRend doubleClicked index do (
		renderers.current = rc[index]()
		inf.text = lbxRend.items[index]
	)
)
createdialog chooseRenderer 300 200
-- SR v.0.1 (2010-11.27) by Anubis (project3d.narod.ru)