include compared builds in save name

Author: oboking

src/Classes/BuildListControl.lua

@@ -175,6 +175,13 @@ function BuildListClass:GetRowValue(column, index, build)
 			label = ">> " .. build.folderName
 		else
 			label = build.buildName or "?"
+			if build.compareLabels and #build.compareLabels > 0 then
+				if #build.compareLabels == 1 then
+					label = label .. " (+" .. build.compareLabels[1] .. ")"
+				else
+					label = label .. " (+" .. #build.compareLabels .. " compared builds)"
+				end
+			end
 		end
 		if self.cutBuild and self.cutBuild.buildName == build.buildName and self.cutBuild.folderName == build.folderName then
 			return "^xC0B0B0"..label

src/Modules/BuildList.lua

@@ -220,6 +220,10 @@ function listMode:BuildList()
 				main:OpenCloudErrorPopup(build.fullFileName)
 				return
 			end
+			build.compareLabels = { }
+			for label in fileText:gmatch('<CompareEntry[^>]-label="([^"]*)"') do
+				t_insert(build.compareLabels, label)
+			end
 			fileText = fileText:match("(<Build.->)")
 			if fileText then
 				local xml = common.xml.ParseXML(fileText.."</Build>")