Added ListBox to gui.dialogs

A listbox class. Can be either filled with table of strings, or string+callback tables. Needs some code revision :)

library/lua/gui/dialogs.lua

@@ -172,5 +172,100 @@ function showInputPrompt(title, text, tcolor, input, on_input, on_cancel, min_wi
     }:show()
 end
 
+ListBox = defclass(ListBox, MessageBox)
+
+ListBox.focus_path = 'ListBox'
+
+function ListBox:init(info)
+    info = info or {}
+    self:init_fields{
+        selection = info.selection or 0,
+    	choices = info.choices or {},
+        select_pen = info.select_pen,
+        on_input = info.on_input,
+		page_top = 0
+    }
+    MessageBox.init(self, info)
+    self.on_accept = nil
+    return self
+end
+
+function ListBox:getWantedFrameSize()
+    local mw, mh = MessageBox.getWantedFrameSize(self)
+    return mw, mh+#self.choices
+end
+
+function ListBox:onRenderBody(dc)
+    MessageBox.onRenderBody(self, dc)
+	
+    dc:newline(1)
+	
+	if self.selection>dc.height-3 then
+		self.page_top=self.selection-(dc.height-3)
+	elseif self.selection<self.page_top and self.selection >0  then
+		self.page_top=self.selection-1
+	end
+	for i,entry in ipairs(self.choices) do
+		if type(entry)=="table" then
+			entry=entry[1]
+		end
+		if i>self.page_top then
+			if i == self.selection then
+				dc:pen(self.select_pen or COLOR_LIGHTCYAN)
+			else
+				dc:pen(self.text_pen or COLOR_GREY)
+			end
+			dc:string(entry)
+			dc:newline(1)
+		end
+	end
+end
+function ListBox:moveCursor(delta)
+	local newsel=self.selection+delta
+	if #self.choices ~=0 then
+		if newsel<1 or newsel>#self.choices then 
+			newsel=newsel % #self.choices
+		end
+	end
+	self.selection=newsel
+end
+function ListBox:onInput(keys)
+    if keys.SELECT then
+        self:dismiss()
+		local choice=self.choices[self.selection]
+        if self.on_input then
+            self.on_input(self.selection,choice)
+        end
+		
+		if choice and choice[2] then
+			choice[2](choice,self.selection) -- maybe reverse the arguments?
+		end
+    elseif keys.LEAVESCREEN then
+        self:dismiss()
+        if self.on_cancel then
+            self.on_cancel()
+        end
+	elseif keys.CURSOR_UP then
+		self:moveCursor(-1)
+	elseif keys.CURSOR_DOWN then
+		self:moveCursor(1)
+	elseif keys.CURSOR_UP_FAST then
+		self:moveCursor(-10)
+	elseif keys.CURSOR_DOWN_FAST then
+		self:moveCursor(10)
+    end
+end
+
+function showListPrompt(title, text, tcolor, choices, on_input, on_cancel, min_width)
+    mkinstance(ListBox):init{
+        title = title,
+        text = text,
+        text_pen = tcolor,
+        choices = choices,
+        on_input = on_input,
+        on_cancel = on_cancel,
+        frame_width = min_width,
+    }:show()
+end
 
 return _ENV