-- **************************************************

-- Dialog

-- **************************************************



local SZ_TextListTestDialog = {}



SZ_TextListTestDialog.MSG = MOHO.MSG_BASE



function SZ_TextListTestDialog:new(moho)

	local d = LM.GUI.SimpleDialog("Text List Test", SZ_TextListTestDialog)

	local l = d:GetLayout()

	

	d.moho = moho

	

	d.textList = LM.GUI.ImageTextList(200, 100, self.MSG)

	l:AddChild(d.textList)

	

	d.textList:SetAllowsMultipleSelection(true)

	

	for i=0, 20 do

		d.textList:AddItem("Option "..i)

	end

	

	d.textList:ScrollItemIntoView(10, true)

	

	return d

end