LocationTargeting.lua

local QT = _G.QuestTogether
local L = QT.Translate

-- One QT-owned secure button follows the hovered dot/menu row in screen space.
-- Never parent or anchor it to a map or a pooled Blizzard menu frame: doing so
-- would make those foreign frames protected through the secure child.
function QT:CreateLocationTargetButton()
	local button = CreateFrame("Button", nil, UIParent, "SecureActionButtonTemplate")
	button:Hide()
	button:RegisterForClicks("LeftButtonUp", "RightButtonUp")
	button:SetAttribute("useOnKeyDown", false)
	button:SetAttribute("type1", "macro")
	button:SetFrameStrata("TOOLTIP")
	-- No 'show' branch: ending combat must not resurrect a stale hover target.
	RegisterStateDriver(button, "visibility", "[combat] hide")
	return button
end

function QT:GetLocationTargetButtonRect(owner)
	if not self:CanAccessForeignFrame(owner, true) or not self:CanAccessForeignFrame(UIParent) then return end
	local left, bottom, width, height = owner:GetRect()
	local scale, uiScale = self:SafeToNumber(owner:GetEffectiveScale()), self:SafeToNumber(UIParent:GetEffectiveScale())
	left, bottom, width, height = self:SafeToNumber(left), self:SafeToNumber(bottom), self:SafeToNumber(width), self:SafeToNumber(height)
	if not left or not bottom or not width or not height or width <= 0 or height <= 0
		or not scale or not uiScale or scale <= 0 or uiScale <= 0 then return end
	local ratio = scale / uiScale
	return left * ratio, bottom * ratio, width * ratio, height * ratio
end

function QT:IsLocationTargetOwnerVisible(owner)
	local method = self:GetAccessibleFrameMember(owner, "IsVisible")
	if type(method) ~= "function" then return false end
	local ok, visible = pcall(method, owner)
	return ok and self:CanAccessValue(visible) and visible == true
end

function QT:PositionLocationTargetButton(button, left, bottom, width, height)
	button:ClearAllPoints()
	button:SetPoint("BOTTOMLEFT", UIParent, "BOTTOMLEFT", left, bottom)
	button:SetSize(width, height)
end

function QT:GetLocationTargetMacro(name)
	name = self:NormalizeMemberName(name)
	-- Comms names are data, never macro syntax. Keep full realm/surname identity.
	if not name or name == "" or #name > 128 or name:find('[%c%[%]/;|\\"]') then return end
	return "/targetexact [nocombat] " .. name
end

local function Current(addon, record)
	if not record or not addon.isEnabled or addon:IsRuntimeRestricted()
		or not addon:CanAccessForeignFrame(record.owner, true) or not addon:IsLocationTargetOwnerVisible(record.owner)
		or addon:IsIgnoredPlayerName(record.name) then return false end
	local ok, valid = pcall(record.isCurrent)
	return ok and valid == true
end

function QT:HideLocationTargetButton()
	local state = rawget(self, "locationTargetState")
	if not state then return end
	state.current = nil
	-- Combat visibility is handled by the secure driver, never by a deferred click.
	if not self:IsRuntimeRestricted() and self:CanAccessForeignFrame(state.button) then
		state.button:Hide()
		state.button:SetAttribute("macrotext1", nil)
	end
end

function QT:ShowLocationTargetButton(owner, name, isCurrent, onEnter, onLeave, onClick)
	local macro = self:GetLocationTargetMacro(name)
	local record = { owner = owner, name = name, isCurrent = isCurrent, onEnter = onEnter, onLeave = onLeave, onClick = onClick }
	if not macro or not Current(self, record) then return false end
	local left, bottom, width, height = self:GetLocationTargetButtonRect(owner)
	if not left then return false end
	local state = rawget(self, "locationTargetState")
	if not state then
		state = { button = self:CreateLocationTargetButton() }
		self.locationTargetState = state
		local button = state.button
		-- Preserve SecureActionButtonTemplate's OnClick. Only primitive macro text
		-- crosses into its attributes; all validation and callbacks stay addon-owned.
		button:SetScript("PreClick", function()
			if not self:IsRuntimeRestricted() and not Current(self, state.current) then
				button:SetAttribute("macrotext1", nil)
			end
		end)
		button:SetScript("PostClick", function(_, mouseButton)
			local current = state.current
			local valid = Current(self, current)
			self:HideLocationTargetButton()
			if valid and current.onClick then current.onClick(mouseButton) end
		end)
		button:SetScript("OnEnter", function()
			local current = state.current
			if Current(self, current) and current.onEnter then current.onEnter() end
		end)
		button:SetScript("OnLeave", function()
			local current = state.current
			self:HideLocationTargetButton()
			if current and current.onLeave then current.onLeave() end
		end)
		button:SetScript("OnUpdate", function(_, elapsed)
			state.elapsed = (state.elapsed or 0) + elapsed
			if state.elapsed < 0.05 then return end
			state.elapsed = 0
			local current = state.current
			if not Current(self, current) then self:HideLocationTargetButton(); return end
			local x, y, w, h = self:GetLocationTargetButtonRect(current.owner)
			if not x then self:HideLocationTargetButton(); return end
			self:PositionLocationTargetButton(button, x, y, w, h)
		end)
	end
	if not self:CanAccessForeignFrame(state.button) then return false end
	state.current = record
	self:PositionLocationTargetButton(state.button, left, bottom, width, height)
	state.button:SetAttribute("macrotext1", macro)
	state.button:Show()
	return true
end

function QT:PopulateLocationTargetMenu(root, name, isCurrent)
	local entry = root:CreateButton(L("Target"))
	entry:SetEnabled(self:GetLocationTargetMacro(name) ~= nil)
	entry:SetOnEnter(function(frame)
		self:ShowLocationTargetButton(frame, name, isCurrent, nil, nil, function(button)
			if button == "LeftButton" then entry:Pick(MenuInputContext.MouseButton, button) end
		end)
	end)
	entry:AddResetter(function() self:HideLocationTargetButton() end)
end