How permanently save a text written in an EditText and added in a ListBox?

(
	/*
		automated loading and saving of UISettings for a complete Rollout
		make sure to not rename your rollout and/or UIItems between dev versions or the settings wont transfer
		simply include the struct and its local var in the header of your index scriptFile
 
		use the functions as demonstrated in the rolllout-example
	*/
 
	local functions
	struct temp 
	(
		val = 0 --dont change
		,
		gIs = fn gIs Category Key File:"Settings" =  
		(
 
			local type, val, key1
 
			registry.createKey HKEY_CURRENT_USER ("Software\\ROSettings\\"+File as string + "\\" + Category as string) accessRights:#all newKeyCreated:&newKeyCreated key:&key1
 
			registry.queryValue key1 (Key as string) type:&type value:&val
 
			val
		)--END gIs FN
		,
		sIs = fn sIs Category Key Val File:"Settings" del:false = 
		(
			try
			(
				local newKeyCreated , key1
 
				registry.createKey HKEY_CURRENT_USER ("Software\\ROSettings\\"+File as string + "\\" + Category as string) accessRights:#all newKeyCreated:&newKeyCreated key:&key1
 
				if not del then
				(
					registry.setvalue key1 (Key as string) #REG_SZ (Val as string)
				)
				else
				(
					registry.deleteKey key1
				)
			)
			catch
			(	
				print (registry.getLastError())	
			)
		)--END sIs FN
		,
		saveROSettings = fn saveROSettings RO =
		(
			local items = RO.controls
 
			for i in items do
			(
				print (classOf i)  --uncommend to find out the classes of the UI items
 
				case classOf i of
				(
					SpinnerControl : (functions.sIs RO.name i.name i.value)
 
					ColorPickerControl : (functions.sIs RO.name i.name i.color)
 
					CheckBoxControl : (functions.sIs RO.name i.name i.checked)
 
					CheckButtonControl : (functions.sIs RO.name i.name i.checked)
 
					RadioControl : (functions.sIs RO.name i.name i.state)
 
				)--END classes cases
			)--END items loop
		)--END saveROSettings FN
		,
		getROSettings = fn getROSettings RO =
		(
			local items = RO.controls
 
			for i in items do
			(
				case classOf i of
				(
					SpinnerControl : 
					(
						local val = functions.gIs RO.name i.name ; if val != undefined AND classOf val == String do val = execute val
						if classOf val == float OR classOf val == integer do i.value = val
					)
 
					ColorPickerControl : 
					(
						local val = functions.gIs RO.name i.name ; if val != undefined AND classOf val == String do val = execute val
						if classOf val == color do i.color = val
					)
 
					CheckBoxControl : 
					(
						local val = functions.gIs RO.name i.name ; if val != undefined AND classOf val == String do val = execute val
						if classOf val == BooleanClass do i.checked = val
					)
 
					CheckButtonControl : 
					(
						local val = functions.gIs RO.name i.name ; if val != undefined AND classOf val == String do val = execute val
						if classOf val == BooleanClass do i.checked = val
					)					
 
					RadioControl : 
					(
						local val = functions.gIs RO.name i.name ; if val != undefined AND classOf val == String do val = execute val
						if classOf val == float OR classOf val == integer  do i.state = val
					)					
 
				)--END classes cases
			)--END items loop
		)--END getROSettings FN
	)
	functions = temp val:1
 
	rollout testRO ""
	(
 		spinner spinner1
 
 		colorPicker colorpck1
 
		checkBox checkbox1 "what?"
 
		checkbutton checkbutton1 "check this"
 
		radiobuttons radioButtons1 "choices" labels:#("btn1", "btn2")
 
 
		on testRO open do
		(
			functions.getROSettings testRO
		)
 
		on testRO close do
		(
			functions.saveROSettings testRO
		)
 
	)--END RO
 
	createdialog testRO
 
)

[code]
bla