--[[
	Auctioneer - Price Level Utility module
	Version: 8.2.6494 (SwimmingSeadragon)
	Revision: $Id: CompactUI.lua 6494 2019-11-02 14:38:37Z none $
	URL: http://auctioneeraddon.com/

	This is an addon for World of Warcraft that adds a price level indicator
	to auctions when browsing the Auction House, so that you may readily see
	which items are bargains or overpriced at a glance.

	License:
		This program is free software; you can redistribute it and/or
		modify it under the terms of the GNU General Public License
		as published by the Free Software Foundation; either version 2
		of the License, or (at your option) any later version.

		This program is distributed in the hope that it will be useful,
		but WITHOUT ANY WARRANTY; without even the implied warranty of
		MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
		GNU General Public License for more details.

		You should have received a copy of the GNU General Public License
		along with this program(see GPL.txt); if not, write to the Free Software
		Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

	Note:
		This AddOn's source code is specifically designed to work with
		World of Warcraft's interpreted AddOn system.
		You have an implicit license to use this AddOn with these facilities
		since that is its designated purpose as per:
		http://www.fsf.org/licensing/licenses/gpl-faq.html#InterpreterIncompat
--]]
if not AucAdvanced then return end

local libType, libName = "Util", "CompactUI"
local lib,parent,private = AucAdvanced.NewModule(libType, libName)
if not lib then return end
local aucPrint,decode,_,_,replicate,empty,get,set,default,debugPrint,fill,_TRANS = AucAdvanced.GetModuleLocals()

local CalcPriceLevel
AucAdvanced.RegisterModuleCallback("pricelevel", function(lib) CalcPriceLevel = lib.CalcLevel end)
local IsPlayerIgnored = AucAdvanced.NOPFUNCTION
local PromptSellerIgnore
AucAdvanced.RegisterModuleCallback("basic", function(lib)
	IsPlayerIgnored = lib.IsPlayerIgnored
	PromptSellerIgnore = lib.PromptSellerIgnore
end)

private.cachePriceLevel = {}
private.pageContents = {}
private.pageElements = {} -- cache pageContents subtables for reuse
private.candy = {} -- decorative elements
private.buttons = {}

local searchname, searchminLevel, searchmaxLevel, searchpage, searchisUsable, searchqualityIndex, searchGetAll, searchExactMatch, searchFilterData

lib.Processors = {
	config = function(callbackType, gui)
		if private.SetupConfigGui then private.SetupConfigGui(gui) end
	end,

	auctionui = function()
		if private.HookAH then private.HookAH() end
	end,

	configchanged = function()
		if (private.Active) then
			private.MyAuctionFrameUpdate()
		end
	end,

	scanstats = function()
		wipe(private.cachePriceLevel)
	end,

	auctionclose = function()
		wipe(private.cachePriceLevel)
		wipe(private.pageContents)
		wipe(private.pageElements)
	end,
}
lib.Processors.blockupdate = lib.Processors.configchanged

local OldSortAuctionApplySort
function private.OnLoadRunOnce()
	private.OnLoadRunOnce = nil

	if SortAuctionApplySort then
		OldSortAuctionApplySort = SortAuctionApplySort
		SortAuctionApplySort = private.QueryCurrent
	end
	hooksecurefunc("QueryAuctionItems", private.OnQuery)

	default("util.compactui.activated", true)
	default("util.compactui.tooltiphelp", true)
	default("util.compactui.collapse", false)
	default("util.compactui.bidrequired", true)
	default("util.compactui.priceperitem", false)
	default("util.browseoverride.activated", false)
end
function lib.OnLoad()
	if private.OnLoadRunOnce then private.OnLoadRunOnce() end
end

--[[ Local functions ]]--
function private.OnQuery(...)
	-- copy query details
	searchname, searchminLevel, searchmaxLevel, searchpage, searchisUsable, searchqualityIndex, searchGetAll, searchExactMatch, searchFilterData = ...
	-- other functions hooking the query
	if private.UpdateDetailColumn then private.UpdateDetailColumn(...) end
end

function private.QueryCurrent(SortTable, SortColumn, reverse)
	if SortTable == "bidder" or SortTable == "owner" then
		OldSortAuctionApplySort(SortTable, SortColumn, reverse)
	else
		QueryAuctionItems(searchname, searchminLevel, searchmaxLevel, searchpage, searchisUsable, searchqualityIndex, searchGetAll, searchExactMatch, searchFilterData)
	end
end

--Beginner Tooltips script display for all UI elements
function private.buttonTooltips(self, text)
	if get("util.compactui.tooltiphelp") and text and self then
		GameTooltip:SetOwner(self, "ANCHOR_BOTTOMRIGHT")
		GameTooltip:SetText(text)
	end
end

function private.HookAH()
	private.HookAH = nil
	lib.inUse = true -- deprecated, use lib.IsActive()
	private.switchUI:SetParent(AuctionFrameBrowse)
	private.switchUI:SetPoint("TOPRIGHT", AuctionFrameBrowse, "TOPRIGHT", -157, -17)


	if (not get("util.compactui.activated")) then
		private.MyAuctionFrameUpdate = AucAdvanced.NOPFUNCTION
		return
	end

	AuctionFrameBrowse_Update = private.MyAuctionFrameUpdate
	local button, lastButton
	local line

	local function HideBlizzardColumnHeaders()
		BrowseQualitySort:Hide()
		BrowseLevelSort:Hide()
		BrowseDurationSort:Hide()
		BrowseHighBidderSort:Hide()
		BrowseCurrentBidSort:Hide()
	end
	HideBlizzardColumnHeaders()
	if BrowseResetButton then -- doesn't exist in Classic
		BrowseResetButton:HookScript("OnClick", HideBlizzardColumnHeaders)
	end
	hooksecurefunc("AuctionFrameBrowse_Reset", HideBlizzardColumnHeaders) -- hook this too, in case it's called by a third party AddOn
	hooksecurefunc("AuctionFrameFilter_OnClick", function()
		HideBlizzardColumnHeaders()
		if AuctionFrameBrowse.selectedClass == TOKEN_FILTER_LABEL then
			for pos, candy in ipairs(private.candy) do candy:Hide() end
			BrowsePrevPageButton:Hide()
			BrowseNextPageButton:Hide()
			BrowseSearchCountText:Hide()
		end
	end) -- AuctionFrameFilter_OnClick

	local NEW_NUM_BROWSE = 14
	for i = 1, NEW_NUM_BROWSE do
		local buttonName = "BrowseButton"..i
		local origButton = _G[buttonName]
		if origButton then
			origButton:Hide()
			_G[buttonName] = nil
			_G[buttonName.."Item"] = nil
			_G[buttonName.."ItemIconTexture"] = nil
			_G[buttonName.."Highlight"] = nil
		end
		button = CreateFrame("Button", buttonName, AuctionFrameBrowse)
		button.Orig = origButton
		button.pos = i
		private.buttons[i] = button
		if (i == 1) then
			button:SetPoint("TOPLEFT", 188, -103)
		else
			button:SetPoint("TOPLEFT", lastButton, "BOTTOMLEFT")
		end
		button:SetWidth(610)
		button:SetHeight(19)
		button:EnableMouse(true)
		button.LineTexture = button:CreateTexture()
		button.LineTexture:SetPoint("TOPLEFT", 0, 0)
		button.LineTexture:SetPoint("BOTTOMRIGHT", 0, 1)
		button.AddTexture = button:CreateTexture()
		button.AddTexture:SetPoint("TOPLEFT", 0, 0)
		button.AddTexture:SetPoint("BOTTOMRIGHT", 0, 1)

		button.HighlightTexture = button:CreateTexture(buttonName.."Highlight")
		button.HighlightTexture:SetPoint("TOPLEFT", 0, 0)
		button.HighlightTexture:SetPoint("BOTTOMRIGHT", 0, 1)
		button.HighlightTexture:SetColorTexture(1, 1, 0.3, 0.2)
		button:SetHighlightTexture(button.HighlightTexture, "ADD")

		button.Count = button:CreateFontString(nil,nil,"GameFontHighlight")
		button.Count:SetPoint("TOPLEFT", button, "TOPLEFT", 0, 0)
		button.Count:SetWidth(28)
		button.Count:SetHeight(19)
		button.Count:SetJustifyH("RIGHT")
		button.Count:SetFont(STANDARD_TEXT_FONT, 11)

		button.IconButton = CreateFrame("Button", buttonName.."Item", button)
		button.IconButton:SetPoint("TOPLEFT", button, "TOPLEFT", 30, 0)
		button.IconButton:SetWidth(16)
		button.IconButton:SetHeight(19)
		button.IconButton:SetNormalTexture("Interface\\Buttons\\UI-Quickslot2")
		button.IconButton:SetScript("OnEnter", private.IconEnter)
		button.IconButton:SetScript("OnLeave", private.IconLeave)
		button.IconButton:SetScript("OnClick", private.IconClick)
		button.IconButton:SetFrameLevel(button.IconButton:GetFrameLevel() + 5)
		button.Icon = button.IconButton:CreateTexture(buttonName.."ItemIconTexture", "ARTWORK")
		button.Icon:SetPoint("TOPLEFT", 0, -1)
		button.Icon:SetWidth(16)
		button.Icon:SetHeight(16)
		button.IconButton.IconBorder = button.IconButton:CreateTexture(nil, "OVERLAY") -- added so as to not break certain skinning AddOns

		button.Name = button:CreateFontString(nil,nil,"GameFontHighlight")
		button.Name:SetPoint("TOPLEFT", button, "TOPLEFT", 50, 0)
		button.Name:SetWidth(220)
		button.Name:SetHeight(19)
		button.Name:SetJustifyH("LEFT")
		button.Name:SetFont(STANDARD_TEXT_FONT, 10)
		button.rLevel = button:CreateFontString(nil,nil,"GameFontHighlight")
		button.rLevel:SetPoint("TOPLEFT", button.Name, "TOPRIGHT", 2, 0)
		button.rLevel:SetWidth(30)
		button.rLevel:SetHeight(19)
		button.rLevel:SetJustifyH("RIGHT")
		button.rLevel:SetFont(STANDARD_TEXT_FONT, 11)
		button.iLevel = button:CreateFontString(nil,nil,"GameFontHighlight")
		button.iLevel:SetPoint("TOPLEFT", button.rLevel, "TOPRIGHT", 2, 0)
		button.iLevel:SetWidth(30)
		button.iLevel:SetHeight(19)
		button.iLevel:SetJustifyH("RIGHT")
		button.iLevel:SetFont(STANDARD_TEXT_FONT, 11)
		button.tLeft = button:CreateFontString(nil,nil,"GameFontHighlight")
		button.tLeft:SetPoint("TOPLEFT", button.iLevel, "TOPRIGHT", 2, 0)
		button.tLeft:SetWidth(35)
		button.tLeft:SetHeight(19)
		button.tLeft:SetJustifyH("CENTER")
		button.tLeft:SetFont(STANDARD_TEXT_FONT, 11)
		button.Owner = button:CreateFontString(nil,nil,"GameFontHighlight")
		button.Owner:SetPoint("TOPLEFT", button.tLeft, "TOPRIGHT", 2, 0)
		button.Owner:SetWidth(80)
		button.Owner:SetHeight(19)
		button.Owner:SetJustifyH("LEFT")
		button.Owner:SetFont(STANDARD_TEXT_FONT, 10)
		button.OwnerHitBox = CreateFrame("Button", nil, button)
		button.OwnerHitBox:SetPoint("TOPLEFT", button.Owner, "TOPLEFT")
		button.OwnerHitBox:SetPoint("BOTTOMRIGHT", button.Owner, "BOTTOMRIGHT")
		button.OwnerHitBox:SetScript("OnEnter", private.OwnerEnter)
		button.OwnerHitBox:SetScript("OnLeave", private.OwnerLeave)
		button.OwnerHitBox:SetScript("OnClick", private.OwnerClick)
		button.Bid = AucAdvanced.CreateMoney(10,110)
		button.Bid:SetParent(button)
		button.Bid.SetMoney = private.SetMoney
		button.Bid:SetPoint("TOPRIGHT", button.Owner, "TOPRIGHT", 112, 0)
		button.Bid:SetDrawLayer("OVERLAY")
		button.Buy = AucAdvanced.CreateMoney(10,110)
		button.Buy:SetParent(button)
		button.Buy.SetMoney = private.SetMoney
		button.Buy:SetColor(1,0.82,0)
		button.Buy:SetPoint("TOPRIGHT", button.Bid, "BOTTOMRIGHT", 0, 1)
		button.Buy:SetDrawLayer("OVERLAY")
		button.Value = button:CreateFontString(nil,nil,"GameFontHighlight")
		button.Value:SetPoint("TOPLEFT", button.Bid, "TOPRIGHT", 2, 0)
		button.Value:SetWidth(45)
		button.Value:SetHeight(19)
		button.Value:SetJustifyH("RIGHT")
		button.Value:SetFont(STANDARD_TEXT_FONT, 11)

		button.SetAuction = private.SetAuction
		button:SetScript("OnClick", private.ButtonClick)

		lastButton = button
	end
	NUM_BROWSE_TO_DISPLAY = NEW_NUM_BROWSE

	local function selectHeader(self, ...)
		local id = self.id
		private.headers.sort = 0
		private.headers.dir = 0
		private.headers.pos = 0
		for i=1, #private.headers do
			local header = private.headers[i]
			if i == id then
				if header.dir ~= 0 then
					header.dir = header.dir * -1
					if header.dir == header.defaultdir then
						header.pos = header.pos + 1
					end
				else
					header.pos = 1
					header.dir = header.defaultdir
				end
				if header.dir > 0 then
					header.Back:SetVertexColor(0.6,1,1, 1)
				else
					header.Back:SetVertexColor(1,0.6,1, 1)
				end
				if header.cycle then
					local headPos = ((header.pos-1) % #header.cycle)+1
					header.Text:SetText(header.cycle[headPos])
					private.headers.pos = headPos
				end
				private.headers.sort = id
				private.headers.dir = header.dir
			else
				header.dir = 0
				header.Back:SetVertexColor(1,1,1, 0.8)
				header.Text:SetText(header.Text.default)
			end
		end
		if SortAuctionSetSort then
			local sort = private.headers.sort
			local dir = private.headers.dir
			local col = ""
			if sort then
				if sort == 1 then col = "quantity" -- Count
				elseif sort == 2 then
					local pos = private.headers.pos
					if pos == 1 then col = "name" -- Name
					elseif pos == 2 then
						col = "quality" -- Quality
						dir = - dir -- server's default quality sort order is the opposite of CompactUI's - so invert to make them match
					end
				elseif sort == 3 then col = "level" -- MinLevel
				--elseif sort == 4 then <?> -- ItemLevel
				elseif sort == 5 then col = "duration" -- TimeLeft
				elseif sort == 6 then col = "seller" -- Owner
				elseif sort == 7 then
					local pos = private.headers.pos
					if pos == 1 then col = "minbidbuyout" -- Buy
					elseif pos == 2 then col = "bid" -- Bid
					elseif pos == 3 then col = "unitprice" -- BuyEach
					elseif pos == 4 then col = "unitprice" -- BidEach -- there is no BidEach server sort command, so we just use "unitprice" here
					end
				--elseif sort == 8 then <?> -- PriceLevel
				end
			end
			if dir > 0 then
				dir = false
			else
				dir = true
			end
			if (col ~= "") then
				local pagesize=GetNumAuctionItems("list")
				if pagesize <= 50 then -- don't try to sort a getall
					SortAuctionSetSort("list", col, dir)
					SortAuctionApplySort("list")
				end
			end
		end
		private.MyAuctionFrameUpdate()
	end


	local function createHeader(id, dir, text, parentLeft, parentRight, lOfs, rOfs, cycle)
		if not parentRight then parentRight = parentLeft end

		local header = CreateFrame("Button", nil, private.headers)
		header:SetHighlightTexture("Interface\\QuestFrame\\UI-QuestTitleHighlight")
		header:SetPoint("BOTTOMLEFT", parentLeft, "TOPLEFT", lOfs or 0, 2)
		header:SetPoint("BOTTOMRIGHT", parentRight, "TOPRIGHT", rOfs or 0, 2)
		header:SetHeight(16)
		header.Text = header:CreateFontString(nil, "OVERLAY", "GameFontNormal")
		header.Text:SetPoint("TOPLEFT", header, "TOPLEFT", 2, 0)
		header.Text:SetPoint("BOTTOMRIGHT", header, "BOTTOMRIGHT")
		header.Text:SetJustifyH("LEFT")
		header.Text:SetJustifyV("CENTER")
		header.Text:SetText(text)
		header.Text.default = text
		header.Back = header:CreateTexture(nil, "ARTWORK")
		header.Back:SetPoint("TOPLEFT", header, "TOPLEFT")
		header.Back:SetPoint("BOTTOMRIGHT", header, "BOTTOMRIGHT")
		header.Back:SetTexture("Interface\\QuestFrame\\UI-QuestTitleHighlight")
		header.Back:SetTexCoord(0.1, 0.8, 0, 1)
		header.Back:SetVertexColor(1,1,1, 0.8)
		header:SetScript("OnClick", selectHeader)
		header.defaultdir = dir
		header.cycle = cycle
		header.pos = 1
		header.dir = 0
		header.id = id
		private.headers[id] = header
	end

	private.headers = CreateFrame("Frame", nil, AuctionFrameBrowse)
	tinsert(private.candy, private.headers)

	local bOne = private.buttons[1]
	createHeader(1, 1, "#", bOne.Count)
	createHeader(2, 1, "Auction Item", bOne.IconButton, bOne.Name, 0, 0, { "Name", "Quality" })
	createHeader(3, -1, "Min", bOne.rLevel)
	createHeader(4, -1, "iLvl", bOne.iLevel)
	createHeader(5, 1, "Left", bOne.tLeft)
	createHeader(6, 1, "Owner", bOne.Owner)
	createHeader(7, -1, "Price", bOne.Value, bOne.Bid, -110, 0, {"Buy total", "Bid total", "Buy each", "Bid each"})
	createHeader(8, 1, "Pct", bOne.Value, nil, 0, -2)

	-- Column 3 special handling: label changes depending on queried class/subclass filters
	local detail = private.headers[3]
	function private.UpdateDetailColumn(name, minLevel, maxLevel, page, isUsable, qualityIndex, GetAll, exactMatch, filterData)
		-- Detail should be set to "Slot" for bags, "Skill" for recipes, otherwise "Min"
		-- Inspect filterData, looking for any classID other than for container or recipe
		local detailText = "Min"

-- Classic doesn't show slots or recipe skills, just min level to use
-- see notes below about GetItemInfo
		if filterData and not AucAdvanced.Classic then
			local allBags, allRecipes = true, true
			local bagID, recipeID = LE_ITEM_CLASS_CONTAINER, LE_ITEM_CLASS_RECIPE
			for _, filter in ipairs(filterData) do
				if filter.classID ~= bagID then allBags = false end
				if filter.classID ~= recipeID then allRecipes = false end
			end
			if allBags then detailText = "Slot"
			elseif allRecipes then detailText = "Skill" end
		end

		detail.Text:SetText(detailText)
	end

	local tex
	tex = AuctionFrameBrowse:CreateTexture()
	tex:SetColorTexture(1,1,1, 0.05)
	tex:SetPoint("TOPLEFT", private.buttons[1].rLevel, "TOPLEFT")
	tex:SetPoint("BOTTOMRIGHT", private.buttons[NEW_NUM_BROWSE].rLevel, "BOTTOMRIGHT")
	tinsert(private.candy, tex)

	tex = AuctionFrameBrowse:CreateTexture()
	tex:SetColorTexture(1,1,1, 0.05)
	tex:SetPoint("TOPLEFT", private.buttons[1].tLeft, "TOPLEFT")
	tex:SetPoint("BOTTOMRIGHT", private.buttons[NEW_NUM_BROWSE].tLeft, "BOTTOMRIGHT")
	tinsert(private.candy, tex)

	tex = AuctionFrameBrowse:CreateTexture()
	tex:SetColorTexture(1,1,1, 0.05)
	tex:SetPoint("TOPLEFT", private.buttons[1].Owner, "TOPRIGHT", 2, 0)
	tex:SetPoint("BOTTOM", private.buttons[NEW_NUM_BROWSE].Buy, "BOTTOM", 0, 0)
	tex:SetPoint("RIGHT", private.buttons[1].Bid, "RIGHT", -10, 0)
	tinsert(private.candy, tex)

	tex = AuctionFrameBrowse:CreateTexture()
	tex:SetColorTexture(1,1,0.5, 0.1)
	tex:SetPoint("TOPLEFT", private.buttons[NEW_NUM_BROWSE].Count, "BOTTOMLEFT", 0, -1)
	tex:SetWidth(610)
	tex:SetHeight(38)
	tinsert(private.candy, tex)

	BrowsePrevPageButton:ClearAllPoints()
	BrowsePrevPageButton:SetPoint("BOTTOMRIGHT", tex, "BOTTOMRIGHT", -170, -5)
	BrowseNextPageButton:ClearAllPoints()
	BrowseNextPageButton:SetPoint("BOTTOMRIGHT", tex, "BOTTOMRIGHT", -5, -5)
	BrowseSearchCountText:ClearAllPoints()
	BrowseSearchCountText:SetPoint("BOTTOMRIGHT", tex, "BOTTOMRIGHT", -10, 27)

	local check = CreateFrame("CheckButton", nil, AuctionFrameBrowse, "OptionsCheckButtonTemplate")
	private.PerItem = check
	check:SetChecked(get("util.compactui.priceperitem"))
	check:SetPoint("TOPLEFT", tex, "TOPLEFT", 5, -5)
	check:SetScript("OnClick", function()
		set("util.compactui.priceperitem", check:GetChecked())
		AuctionFrameBrowse_Update()
	end)
	tinsert(private.candy, check)

	local text = AuctionFrameBrowse:CreateFontString(nil,nil,"GameFontNormal")
	text:SetPoint("LEFT", check, "LEFT", 30, 0)
	text:SetText("Show stacks as price per unit")
	tinsert(private.candy, text)

	text = AuctionFrameBrowse:CreateFontString(nil,nil,"GameFontNormal")
	private.PageNum = text
	text:SetPoint("TOPLEFT", BrowsePrevPageButton, "TOPLEFT")
	text:SetPoint("BOTTOMRIGHT", BrowseNextPageButton, "BOTTOMRIGHT")
	text:SetFont(STANDARD_TEXT_FONT, 12)
	text:SetShadowOffset(2,2)
	tinsert(private.candy, text)

	private.Active = true

	-- Select our PCT column
	selectHeader(private.headers[8])
end

function private.SetMoney(me, value, hasBid, highBidder)
	value = tonumber (value)
	if not value then me:Hide() return end
	value = math.floor (value)
	local r,g,b -- = 1,0.8,0.2     -- near Blizzard default text yellow

    local colorBlind = GetCVar("colorblindMode") == "1"

    if colorBlind then
        r,g,b = 1,0.8,0.4
        if (hasBid == true) then r,g,b = 1,1,1
        elseif (hasBid == false) then r,g,b = 0.8,0.8,0.8 end
        if (highBidder) then r,g,b = 0.5,1,0.4 end
    else
        if (hasBid == true) then r,g,b = 1,1,1
        elseif (hasBid == false) then r,g,b = 0.7,0.7,0.7 end
        if (highBidder) then r,g,b = 0.4,1,0.2 end
    end

	me:SetValue(value, r,g,b)
	me:Show()
end

function private.IconClick(self, mouseButton)
	private.ButtonClick(self:GetParent(), mouseButton)
end

function private.OwnerClick(self, mouseButton)
	local mainButton = self:GetParent()
	if mouseButton == "LeftButton" and IsAltKeyDown() then
		if PromptSellerIgnore then
			PromptSellerIgnore(mainButton.Owner:GetText(), mainButton, "TOPLEFT", mainButton.Owner, "TOPRIGHT")
		end
	else
		private.ButtonClick(mainButton, mouseButton)
	end
end

function private.ButtonClick(me, mouseButton)
	if IsModifiedClick() then
		HandleModifiedItemClick(GetAuctionItemLink("list", me.id))
	else
		-- Modified from Blizzard_AuctionUI.lua BrowseButton_OnClick function, as the IDs of our buttons are different
		if GetCVarBool("auctionDisplayOnCharacter") then
			DressUpItemLink(GetAuctionItemLink("list", me.id))
		end
		SetSelectedAuctionItem("list", me.id)
		-- Close any auction related popups
		CloseAuctionStaticPopups()
		AuctionFrameBrowse_Update()
	end
end

function private.IconEnter(this)
	local button = this:GetParent()
	button.Icon:ClearAllPoints()
	button.Icon:SetPoint("RIGHT", this, "LEFT")
	button.Icon:SetWidth(64)
	button.Icon:SetHeight(64)
	AuctionFrameItem_OnEnter(this, "list", button.id)
end

function private.IconLeave(this)
	local button = this:GetParent()
	button.Icon:ClearAllPoints()
	button.Icon:SetPoint("TOPLEFT", this, "TOPLEFT")
	button.Icon:SetWidth(16)
	button.Icon:SetHeight(16)
	GameTooltip:Hide()
	if BattlePetTooltip then
		BattlePetTooltip:Hide()
	end
	ResetCursor()
end

function private.OwnerEnter(frame)
	if frame.tooltipText then
		GameTooltip:SetOwner(frame, "ANCHOR_NONE")
		GameTooltip:SetPoint("RIGHT", frame, "LEFT")
		GameTooltip:SetText(frame.tooltipText)
	end
end

function private.OwnerLeave(frame)
	GameTooltip:Hide()
end

local sortfuncCol, sortfuncDir
local function SetupBrowseSortFunction()
	sortfuncCol = nil
	local cursort = private.headers.sort
	if cursort == 1 then sortfuncCol = 3 -- Count
	elseif cursort == 2 then
		local pos = private.headers.pos
		if pos == 1 then sortfuncCol = 6 -- Name
		elseif pos == 2 then sortfuncCol = 5 -- Quality
		end
	elseif cursort == 3 then sortfuncCol = 8 -- MinLevel
	elseif cursort == 4 then sortfuncCol = 9 -- ItemLevel
	elseif cursort == 5 then sortfuncCol = 10 -- TimeLeft
	elseif cursort == 6 then sortfuncCol = 11 -- Owner
	elseif cursort == 7 then
		local pos = private.headers.pos
		if pos == 1 then sortfuncCol = 17 -- Buy
		elseif pos == 2 then sortfuncCol = 16 -- Bid
		elseif pos == 3 then sortfuncCol = 19 -- BuyEach
		elseif pos == 4 then sortfuncCol = 18 -- BidEach
		end
	elseif cursort == 8 then sortfuncCol = 22 -- PriceLevel
	end
	sortfuncDir = private.headers.dir

	return sortfuncDir and sortfuncCol -- used to test if we can sort
end
local function BrowseSortFunction(a, b)
	local ta, tb = a[sortfuncCol], b[sortfuncCol]
	if ta ~= tb then
		if sortfuncDir > 0 then
			return ta < tb
		else
			return ta > tb
		end
	end
	if a[5] ~= b[5] then return a[5] < b[5] end
	if a[6] ~= b[6] then return a[6] < b[6] end
	if a[3] ~= b[3] then return a[3] < b[3] end
end

local lookupTimeLeft = {"30m", "2h", "12h", "48h"}

if AucAdvanced.Classic then
    lookupTimeLeft = {"30m", "2h", "8h", "24h"}
end

function private.RetrievePage()
	wipe(private.pageContents)

	local selected = GetSelectedAuctionItem("list") or 0
	local numBatchAuctions, totalAuctions = GetNumAuctionItems("list")
	--if numBatchAuctions > NUM_AUCTION_ITEMS_PER_PAGE then --If doing a GetAll, don't show anything
	if numBatchAuctions > 3000 then -- ### temp fix for "Usable Items" setting returning more than 50 results at a time [ADV-686]
		return 0, 0 -- numBatchAuctions, totalAuctions
	end

	for i = 1, numBatchAuctions do
		if not private.pageElements[i] then private.pageElements[i] = {} end

		local link = GetAuctionItemLink("list", i)
		if link then
			local item = private.pageElements[i]

			item[1] = i
			item[2] = selected == i

			local name, texture, count, quality, canUse, level, levelColHeader, minBid, minIncrement, buyoutPrice, bidAmount, highBidder, bidderFullName, owner, ownerFullName, status, itemID, hasAllInfo =  GetAuctionItemInfo("list", i)
			local _, _, _, itemLevel, itemDetail = GetItemInfo(link) -- itemDetail = minUseLevel

-- NOTE - this is broken for Classic! Always shows "1" for all bags  LE_ITEM_CLASS_CONTAINER
-- NOTE - this is also broken for skill in recipes, Always shows "1"    LE_ITEM_CLASS_RECIPE
-- NOTE - apparently GetItemInfo is not the same as for 8.x
--print("got itemDetail", itemLevel, itemDetail, name, texture, count, quality, canUse, level, levelColHeader, minBid, minIncrement, buyoutPrice, bidAmount, highBidder, bidderFullName, owner, ownerFullName, status, itemID, hasAllInfo ) -- always "1" for level

			if levelColHeader == "ITEM_LEVEL_ABBR" then
				itemLevel = level
			else
				-- itemDetail is used for special values if present, e.g slot count for bags, skill level for recipes,
				-- otherwise displays min user level
				itemDetail = level
			end
			itemLevel = tonumber(itemLevel) or 1 -- extra safety checking - these values may be used by our sort function
			itemDetail = tonumber(itemDetail) or 1

			local timeLeft = GetAuctionItemTimeLeft("list", i)
			local timeLeftText = lookupTimeLeft[timeLeft]

			if not count or count < 1 then count = 1 end

			local requiredBid
			if bidAmount > 0 then
				requiredBid = bidAmount + minIncrement
				if buyoutPrice > 0 and requiredBid > buyoutPrice then
					requiredBid = buyoutPrice
				end
			elseif minBid > 0 then
				requiredBid = minBid
			else
				requiredBid = 1
			end

			if ( requiredBid >= MAXIMUM_BID_PRICE ) then
				-- Lie about our buyout price
				buyoutPrice = requiredBid
			end

			local priceLevel, perItem, r,g,b
			if CalcPriceLevel then
				local cacheSig = strjoin(":", link, count, requiredBid, buyoutPrice)
				local cacheData = private.cachePriceLevel[cacheSig]
				if cacheData then
					priceLevel, perItem, r,g,b = unpack(cacheData)
				else
					priceLevel, perItem, r,g,b = CalcPriceLevel(link, count, requiredBid, buyoutPrice)
					private.cachePriceLevel[cacheSig] = {priceLevel, perItem, r,g,b}
				end
			end

			item[3] = count
			item[4] = texture
			item[5] = quality
			item[6] = name
			item[7] = link
			item[8] = itemDetail
			item[9] = itemLevel
			item[10] = timeLeft
			item[11] = owner or ""
			item[12] = ownerFullName
			item[13] = minBid
			item[14] = bidAmount
			item[15] = minIncrement
			item[16] = requiredBid
			item[17] = buyoutPrice
			item[18] = requiredBid / count
			item[19] = buyoutPrice / count
			item[20] = timeLeftText
			item[21] = highBidder
			item[22] = priceLevel or 0
			item[23] = perItem
			item[24] = r
			item[25] = g
			item[26] = b

			tinsert(private.pageContents, item)
		end
	end

	if SetupBrowseSortFunction() then
		sort(private.pageContents, BrowseSortFunction)
	end

	return numBatchAuctions, totalAuctions
end

function private.SetAuction(button, pos)
	local id, selected, count, texture, itemRarity, name, link, itemDetail, itemLevel,
		timeLeft, owner, ownerFullName, minBid, bidAmount, minIncrement, requiredBid,
		buyoutPrice, requiredBidEach, buyoutPriceEach, timeLeftText, highBidder, priceLevel, perItem, r, g, b = lib.GetContents(pos)

	if not id then
		button:Hide()
		return
	end

	if (selected) then
		button.LineTexture:SetColorTexture(1,1,0.3, 0.2)
	elseif (pos % 2 == 0) then
		button.LineTexture:SetColorTexture(0.3,0.3,0.4, 0.1)
	else
		button.LineTexture:SetColorTexture(0,0,0.1, 0.1)
	end
	button.id = id -- id is the index from GetAuctionItemInfo("list", id)

	local showBid
	if (get("util.compactui.bidrequired")) then
		showBid = requiredBid
	else
		showBid = max (bidAmount, minBid)
	end

	if (selected) then
		if (buyoutPrice > 0 and buyoutPrice >= minBid) then
			local canBuyout = 1
			if (GetMoney() < buyoutPrice) then
				if (not highBidder or GetMoney()+bidAmount < buyoutPrice) then
					canBuyout = nil
				end
			end
			if (canBuyout) then
				BrowseBuyoutButton:Enable()
				AuctionFrame.buyoutPrice = buyoutPrice
			end
		else
			AuctionFrame.buyoutPrice = nil
		end
		-- Set bid
		MoneyInputFrame_SetCopper(BrowseBidPrice, requiredBid)

		-- See if the user can bid on this
		if (not highBidder and owner ~= UnitName("player")) then
			if (GetMoney() >= MoneyInputFrame_GetCopper(BrowseBidPrice)) then
				if (MoneyInputFrame_GetCopper(BrowseBidPrice) <= MAXIMUM_BID_PRICE) then
					BrowseBidButton:Enable()
				end
			end
		end
	end
	if IsPlayerIgnored(owner) then
		button.Owner:SetTextColor(1,0,0) -- ignored player tinted red
	elseif ownerFullName then
		button.Owner:SetTextColor(.7,1,1) -- connected realm player tinted pale blue
	else
		button.Owner:SetTextColor(1,1,1) -- default white
	end

	local perUnit = 1
	if (private.PerItem:GetChecked()) then
		perUnit = count
	end

	if itemLevel == 0 then itemLevel = "" end
	if itemDetail == 0 then itemDetail = "" end

	button.Count:SetText(count)
	button.Icon:SetTexture(texture)
	button.Name:SetText(link)
	button.rLevel:SetText(itemDetail)
	button.iLevel:SetText(itemLevel)
	button.tLeft:SetText(timeLeftText)
	button.Owner:SetText(owner)
	button.OwnerHitBox.tooltipText = ownerFullName
	button.Bid:SetMoney(showBid/perUnit, (bidAmount > 0), highBidder)
	button.Buy:SetMoney((buyoutPrice > 0) and buyoutPrice/perUnit)
	button:Show()
end

function private.MyAuctionFrameUpdate()
	if AuctionFrameBrowse.selectedClass ~= TOKEN_FILTER_LABEL then
		if not BrowseScrollFrame then return end

		if AucAdvanced.API.IsBlocked() then
			for pos, candy in ipairs(private.candy) do candy:Hide() end
			BrowsePrevPageButton:Hide()
			BrowseNextPageButton:Hide()
			BrowseSearchCountText:Hide()
			return
		end

		local numBatchAuctions, totalAuctions = private.RetrievePage()
		local offset = FauxScrollFrame_GetOffset(BrowseScrollFrame)

		BrowseBidButton:Disable()
		BrowseBuyoutButton:Disable()

		BrowseNoResultsText:SetShown(numBatchAuctions == 0)

		private.RetrievePage()
		for i=1, NUM_BROWSE_TO_DISPLAY do
			local index = offset + i
			local button = private.buttons[i]
			if index > numBatchAuctions then
				button:SetAuction() -- empty auction
			else
				button:SetAuction(index)
			end
		end

		if totalAuctions > 0 then
			for _, candy in ipairs(private.candy) do candy:Show() end
			BrowsePrevPageButton:Show()
			BrowseNextPageButton:Show()
			BrowseSearchCountText:Show()
			local itemsMin = AuctionFrameBrowse.page * NUM_AUCTION_ITEMS_PER_PAGE + 1
			local itemsMax = itemsMin + numBatchAuctions - 1
			local pageMax = ceil(totalAuctions/NUM_AUCTION_ITEMS_PER_PAGE)
			BrowseSearchCountText:SetFormattedText(NUMBER_OF_RESULTS_TEMPLATE, itemsMin, itemsMax, totalAuctions)
			if totalAuctions > NUM_AUCTION_ITEMS_PER_PAGE then
				BrowsePrevPageButton.isEnabled = AuctionFrameBrowse.page > 0
				BrowseNextPageButton.isEnabled = AuctionFrameBrowse.page < pageMax - 1
			else
				BrowsePrevPageButton.isEnabled = false
				BrowseNextPageButton.isEnabled = false
			end
			private.PageNum:SetFormattedText("%d/%d", AuctionFrameBrowse.page+1, pageMax)
		else
			for _, candy in ipairs(private.candy) do candy:Hide() end
			BrowsePrevPageButton:Hide()
			BrowseNextPageButton:Hide()
			BrowseSearchCountText:Hide()
		end
		FauxScrollFrame_Update(BrowseScrollFrame, numBatchAuctions, NUM_BROWSE_TO_DISPLAY, AUCTIONS_BUTTON_HEIGHT)
		AucAdvanced.API.ListUpdate()
	end
end

--create the configure UI button.
private.switchUI = CreateFrame("Button", nil, UIParent, "OptionsButtonTemplate")
private.switchUI:SetWidth(100)
private.switchUI:SetHeight(15)
private.switchUI:SetText("Configure")
private.switchUI:SetScript("OnClick", function()
	if private.gui and private.gui:IsShown() then
		AucAdvanced.Settings.Hide()
	else
		AucAdvanced.Settings.Show()
		private.gui:ActivateTab(private.guiID)
	end
end)
private.switchUI:SetScript("OnEnter", function()  private.buttonTooltips(private.switchUI, "Open the configuration options for the CompactUI window.") end)
private.switchUI:SetScript("OnLeave", function() GameTooltip:Hide() end)

function private.SetupConfigGui(gui)
	private.SetupConfigGui = nil
	-- The defaults for the following settings are set in the lib.OnLoad function
	local id = gui:AddTab(libName, libType.." Modules")
	private.gui = gui --stores our ID id we use this to open the config button to correct frame
	private.guiID = id

	gui:AddHelp(id, "what compactui",
		_TRANS('COMP_Help_WhatCompactUI'), -- "What is CompactUI?"
		_TRANS('COMP_Help_WhatCompactUIAnswer')) --"CompactUI is a space optimized browse interface to replace the default Blizzard auction browse interface. \nDue to the fact that it heavily modifies your auction frames, it may cause it to be incompatible with other addons that also modify the auction frames. If this is the case you will have to make a choice between CompactUI and the other addons. You may disable CompactUI easily by unticking the \"Enable use of CompactUI (requires logout)\" option in the settings window."

	gui:AddControl(id, "Header",     0,    libName.." options")
	gui:AddControl(id, "Checkbox",   0, 1, "util.compactui.activated", _TRANS('COMP_Interface_CompActivated')) --"Enable use of CompactUI (requires logout)"
	gui:AddTip(id, _TRANS('COMP_HelpTooltip_CompActivated')) --"Ticking this box will enable CompactUI to take over your auction browse window after your next reload.")
	gui:AddControl(id, "Note",       0, 2, 600, 70, _TRANS('COMP_Interface_CompWarning')) --"Note: This module heavily modifies your standard auction browser window, and may not play well with other auction house addons. Should you enable this module and notice any incompatabilities, please turn this module off again by unticking the above box and reloading your interface."

	gui:AddControl(id, "Checkbox",   0, 1, "util.compactui.tooltiphelp", _TRANS('COMP_Interface_CompTooltipHelp')) --"Displays the pop up help tooltips"
	gui:AddTip(id, _TRANS('COMP_HelpTooltip_CompTooltipHelp')) --"This option will display popup help tooltips on the CompactUI display"
	gui:AddControl(id, "Checkbox",   0, 1, "util.compactui.collapse", _TRANS('COMP_Interface_CompCollapse')) --"Remove smaller denomination coins when it's zero"
	gui:AddTip(id, _TRANS('COMP_HelpTooltip_CompCollapse')) --"This option will cause lower value coins to be hidden when the hiding would not change the value of the displayed price."
	gui:AddControl(id, "Checkbox",   0, 1, "util.compactui.bidrequired", _TRANS('COMP_Interface_CompBidRequired')) --"Show the required bid instead of the current bid value"
	gui:AddTip(id, _TRANS('COMP_HelpTooltip_CompBidRequired')) --"Toggling this option changes CompactUI's behaviour to show the required bid."
	gui:AddControl(id, "Checkbox",   0, 1, "util.browseoverride.activated", _TRANS('COMP_Interface_BrowserOverRide')) --"Prevent other modules from changing the display of the browse tab while scanning"
	gui:AddTip(id, _TRANS('COMP_HelpTooltip_BrowseOverRide')) --"Enabling this option will allow CompactUI to continue displaying the auction data, even when another module is installed to hide the display of auctions while scanning."

	gui:AddHelp(id, "what is popup",
		_TRANS('COMP_Help_WhatPopup'), --"What does enabling the popup help do?"
		_TRANS('COMP_Help_WhatPopupAnswer')) --"Displays a little popup tooltip over various parts of the CompactUI."

	gui:AddHelp(id, "what is collapse",
		_TRANS('COMP_Help_WhatCollapse'), --"What does removing smaller denomination coins do?",
		_TRANS('COMP_Help_WhatCollapseAnswer')) --"Removing smaller denomination coins removes coins from the lowest order when the coins are zero and their removal would not affect the accuracy of the price display. \nThis has the effect of shortening the length of the displayed prices, however it can cause additional confusion over similar length prices that are of a different order (ie: 1s 55c looks like 1g 55s) and if you're not careful, you may spend more than you meant to."

	gui:AddHelp(id, "what is required",
		_TRANS('COMP_Help_WhatRequied'), --"What is the required bid?",
		_TRANS('COMP_Help_WhatRequiedAnswered')) --"The stock standard interface shows you the current bid. In the case where the current bid is not the minimum (or starting) bid, your actual amount when you bid on this item will be the current bid, plus the minimum increment. Therefore what you pay will be more than what is displayed in the window when you are not the first bidder. By ticking this option, you change CompactUI's behaviour to instead show the required bid that you will need to bid, so that no matter if there is a bid or not, what you see is what you will pay."

	gui:AddHelp(id, "what is browseoverride",
		_TRANS('COMP_Help_WhatBrowseOverride'), --"Why do I want to prevent other modules from changing the Browse window?"
		_TRANS('COMP_Help_WhatBrowseOverrideAnswer')) --"If you have a module such as ScanProgress installed and activated, it will change the browse interface so that you cannot see the items as you are scanning. This option will revert the display so that you can see the items while scanning instead."

	gui:AddHelp(id, "what is playerignore",
		_TRANS('COMP_Help_HowToIgnore'), --"How do I ignore a seller's auctions?"
		_TRANS('COMP_Help_HowToIgnoreAnswer')) --"ALT click on the seller you wish to ignore and select yes in the pop up window. The seller's name will be marked in red and placed in the BASIC FILTER module's ignored list."
	gui:AddHelp(id, "what is playerunignore",
		_TRANS('COMP_Help_HowToUnignore'), --"How do I un-ignore a seller's auctions?"
		_TRANS('COMP_Help_HowToUnignoreAnswer')) --"ALT click on the seller you wish to remove from ignore and select yes in the pop up window. The seller's name will be removed from the BASIC FILTER module's ignored list."

end

--[[ Exports ]]--

function lib.GetContents(pos)
	if private.pageContents[pos] then
		return unpack(private.pageContents[pos], 1, 26)
	end
	-- id, selected, count, texture, itemRarity, name, link, itemDetail, itemLevel, timeLeft, owner, ownerFullName, minBid, bidAmount, minIncrement, requiredBid, buyoutPrice, requiredBidEach, buyoutPriceEach, timeLeftText, highBidder, priceLevel, perItem, r, g, b
end

function lib.IsActive()
	return private.Active
end

function lib.GetButtons()
	return private.buttons
end


AucAdvanced.RegisterRevision("$URL: Auc-Advanced/Modules/Auc-Util-CompactUI/CompactUI.lua $", "$Rev: 6494 $")
