Add clear button in dat viewer

Author: PGDeve

src/Export/Main.lua

@@ -9,6 +9,7 @@ USE_DAT64 = true
 local ipairs = ipairs
 local t_insert = table.insert
 local t_remove = table.remove
+local t_maxn = table.maxn
 local m_ceil = math.ceil
 local m_max = math.max
 local m_min = math.min
@@ -109,6 +110,17 @@ function main:Init()
 	function printf(...)
 		print(string.format(...))
 	end
+
+	function clearScriptOutput()
+		if t_maxn(self.scriptOutput) == 0 then
+			return
+		end
+		local removed = -1
+		while removed ~= nil do
+			removed = t_remove(self.scriptOutput)
+		end
+	end
+
 	function processTemplateFile(name, inDir, outDir, directiveTable)
 		local state = { }
 		local out = io.open(outDir..name..".lua", "w")
@@ -198,6 +210,13 @@ function main:Init()
 			return not self.curDatFile
 		end
 	}
+	self.controls.clearOutput = new("ButtonControl", nil, {1190, 10, 100, 18}, "Clear", function()
+		clearScriptOutput()
+	end) {
+		shown = function()
+			return t_maxn(self.scriptOutput) > 0
+		end
+	}
 
 	self.controls.scriptList = new("ScriptListControl", nil, {270, 35, 100, 300}) {
 		shown = function()