fix

git-svn-id: http://svn.net-core.org/repos/t-engine4@2936 51575b47-30f0-44d4-a5cc-537603b46e54

game/engines/default/engine/ui/List.lua

@@ -128,6 +128,13 @@ function _M:generate()
 	self:onSelect()
 end
 
+function _M:select(i)
+	if self.sel and self.list[self.sel] then self.list[self.sel].focus_decay = self.focus_decay_max end
+	self.sel = util.bound(i, 1, #self.list)
+	self.scroll = util.scroll(self.sel, self.scroll, self.max_display)
+	self:onSelect()
+end
+
 function _M:onSelect()
 	local item = self.list[self.sel]
 	if not item then return end