112 lines
3.6 KiB
Lua
112 lines
3.6 KiB
Lua
local _G = ShaguTweaks.GetGlobalEnv()
|
|
local T = ShaguTweaks.T
|
|
local API = ShaguTweaks.API
|
|
|
|
local module = ShaguTweaks:register({
|
|
title = T["Movable Unit Frames"],
|
|
description = T["Player and Target unit frames can be moved while <Shift> and <Ctrl> are pressed together."],
|
|
expansions = { ["vanilla"] = true },
|
|
category = T["Unit Frames"],
|
|
enabled = true,
|
|
})
|
|
|
|
local movables = { "PlayerFrame", "TargetFrame" }
|
|
|
|
module.enable = function(self)
|
|
local unlocker = CreateFrame("Frame", nil, UIParent)
|
|
|
|
for _, frame in pairs(movables) do
|
|
_G[frame]:SetClampedToScreen(true)
|
|
end
|
|
|
|
unlocker.grid = CreateFrame("Frame", nil, WorldFrame)
|
|
unlocker.grid:SetAllPoints(WorldFrame)
|
|
unlocker.grid:Hide()
|
|
|
|
local size = 1
|
|
local line = {}
|
|
|
|
local width = GetScreenWidth()
|
|
local height = GetScreenHeight()
|
|
|
|
local ratio = width / GetScreenHeight()
|
|
local rheight = GetScreenHeight() * ratio
|
|
|
|
local wStep = width / 64
|
|
local hStep = rheight / 64
|
|
|
|
-- vertical lines
|
|
for i = 0, 64 do
|
|
if i == 64 / 2 then
|
|
line = unlocker.grid:CreateTexture(nil, 'BORDER')
|
|
line:SetTexture(.8, .6, 0)
|
|
else
|
|
line = unlocker.grid:CreateTexture(nil, 'BACKGROUND')
|
|
line:SetTexture(0, 0, 0, .2)
|
|
end
|
|
line:SetPoint("TOPLEFT", unlocker.grid, "TOPLEFT", i*wStep - (size/2), 0)
|
|
line:SetPoint('BOTTOMRIGHT', unlocker.grid, 'BOTTOMLEFT', i*wStep + (size/2), 0)
|
|
end
|
|
|
|
-- horizontal lines
|
|
for i = 1, floor(height/hStep) do
|
|
if i == floor(height/hStep / 2) then
|
|
line = unlocker.grid:CreateTexture(nil, 'BORDER')
|
|
line:SetTexture(.8, .6, 0)
|
|
else
|
|
line = unlocker.grid:CreateTexture(nil, 'BACKGROUND')
|
|
line:SetTexture(0, 0, 0, .2)
|
|
end
|
|
|
|
line:SetPoint("TOPLEFT", unlocker.grid, "TOPLEFT", 0, -(i*hStep) + (size/2))
|
|
line:SetPoint('BOTTOMRIGHT', unlocker.grid, 'TOPRIGHT', 0, -(i*hStep + size/2))
|
|
end
|
|
|
|
local function IsControlDown()
|
|
-- ClassicAPI updates its left/right modifier bitmap before firing
|
|
-- MODIFIER_STATE_CHANGED. Vanilla's merged key state can still be stale
|
|
-- inside that callback, exactly like the Shift case fixed in Equip Compare.
|
|
if type(_G.IsLeftControlKeyDown) == "function" and
|
|
type(_G.IsRightControlKeyDown) == "function" then
|
|
return (_G.IsLeftControlKeyDown() or _G.IsRightControlKeyDown()) and true or false
|
|
end
|
|
|
|
return IsControlKeyDown() and true or false
|
|
end
|
|
|
|
local function UpdateMovableState()
|
|
local shiftDown = API and API.IsShiftKeyDown and API.IsShiftKeyDown()
|
|
or (IsShiftKeyDown() and true or false)
|
|
local shouldMove = shiftDown and IsControlDown()
|
|
|
|
if shouldMove and not unlocker.movable then
|
|
for _, frame in pairs(movables) do
|
|
_G[frame]:SetUserPlaced(true)
|
|
_G[frame]:SetMovable(true)
|
|
_G[frame]:EnableMouse(true)
|
|
_G[frame]:RegisterForDrag("LeftButton")
|
|
_G[frame]:SetScript("OnDragStart", function() this:StartMoving() end)
|
|
_G[frame]:SetScript("OnDragStop", function() this:StopMovingOrSizing() end)
|
|
end
|
|
|
|
unlocker.movable = true
|
|
unlocker.grid:Show()
|
|
elseif not shouldMove and unlocker.movable then
|
|
for _, frame in pairs(movables) do
|
|
_G[frame]:SetScript("OnDragStart", function() end)
|
|
_G[frame]:SetScript("OnDragStop", function() end)
|
|
_G[frame]:StopMovingOrSizing()
|
|
end
|
|
|
|
unlocker.movable = nil
|
|
unlocker.grid:Hide()
|
|
end
|
|
end
|
|
|
|
-- ClassicAPI provides MODIFIER_STATE_CHANGED. This replaces the old
|
|
-- every-frame Shift/Ctrl poll with work only when a modifier actually changes.
|
|
unlocker:RegisterEvent("MODIFIER_STATE_CHANGED")
|
|
unlocker:RegisterEvent("PLAYER_ENTERING_WORLD")
|
|
unlocker:SetScript("OnEvent", UpdateMovableState)
|
|
end
|