127 lines
4.2 KiB
Lua
127 lines
4.2 KiB
Lua
local _G = ShaguTweaks.GetGlobalEnv()
|
|
local T = ShaguTweaks.T
|
|
local API = ShaguTweaks.API
|
|
|
|
local module = ShaguTweaks:register({
|
|
title = T["Show Micro Menu"],
|
|
description = T["Shows micro menu buttons when using the reduced actionbar layout. Hold Ctrl+Shift to move the micro menu."],
|
|
expansions = { ["vanilla"] = true, ["tbc"] = nil },
|
|
category = T["Action Bar"],
|
|
maintainer = "@shagu (GitHub)",
|
|
enabled = nil,
|
|
config = {
|
|
["panelmicro.scale"] = 1,
|
|
}
|
|
})
|
|
|
|
module.enable = function(self)
|
|
-- The ShaguTweaks loader initializes module config while iterating an
|
|
-- unordered table. On a fresh install the Reduced Actionbar key may not have
|
|
-- been visited yet, so fall back to that module's declared default.
|
|
local reducedTitle = T["Reduced Actionbar Size"]
|
|
local reducedEnabled = ShaguTweaks_config and ShaguTweaks_config[reducedTitle]
|
|
if reducedEnabled == nil then
|
|
local reducedModule = ShaguTweaks.mods and ShaguTweaks.mods[reducedTitle]
|
|
reducedEnabled = reducedModule and reducedModule.enabled and 1 or 0
|
|
end
|
|
if reducedEnabled ~= 1 then return end
|
|
|
|
-- Moving the micro menu is driven by ClassicAPI modifier events and native
|
|
-- Region:IsMouseOver state. Do not keep a permanent polling fallback here.
|
|
if not API.modifierstate or not API.regionmouseover then return end
|
|
|
|
local frames = {
|
|
CharacterMicroButton, SpellbookMicroButton, TalentMicroButton,
|
|
QuestLogMicroButton, MainMenuMicroButton, SocialsMicroButton,
|
|
WorldMapMicroButton, HelpMicroButton
|
|
}
|
|
|
|
local microframe = CreateFrame("Button", "ShaguTweaksReducedActionBarMicroMenu", UIParent)
|
|
microframe:SetPoint("BOTTOMRIGHT", UIParent, "BOTTOMRIGHT", -8, 8)
|
|
microframe:SetWidth(225)
|
|
microframe:SetHeight(44)
|
|
microframe:SetScale(module.config["panelmicro.scale"])
|
|
|
|
microframe:SetFrameStrata("MEDIUM")
|
|
microframe:SetBackdrop({
|
|
bgFile = "Interface\\Tooltips\\UI-Tooltip-Background",
|
|
edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border",
|
|
tile = true, tileSize = 8, edgeSize = 16,
|
|
insets = { left = 3, right = 3, top = 3, bottom = 3 }
|
|
})
|
|
|
|
microframe:SetBackdropBorderColor(.9,.8,.5,1)
|
|
microframe:SetBackdropColor(.4,.4,.4,1)
|
|
|
|
microframe:SetClampedToScreen(true)
|
|
microframe:SetMovable(true)
|
|
microframe:EnableMouse(true)
|
|
microframe:RegisterForDrag("LeftButton")
|
|
|
|
microframe:SetUserPlaced(true)
|
|
|
|
microframe:RegisterEvent("PLAYER_ENTERING_WORLD")
|
|
|
|
local function UpdateMoveMode()
|
|
local active = API.IsMouseOver(microframe)
|
|
and API.IsShiftKeyDown()
|
|
and API.IsControlKeyDown()
|
|
|
|
if active then
|
|
if microframe.mousedisabled then return end
|
|
microframe.mousedisabled = true
|
|
for _, frame in ipairs(frames) do
|
|
frame:EnableMouse(0)
|
|
end
|
|
else
|
|
if not microframe.mousedisabled then return end
|
|
microframe.mousedisabled = false
|
|
for _, frame in ipairs(frames) do
|
|
frame:EnableMouse(1)
|
|
end
|
|
end
|
|
end
|
|
|
|
microframe:SetScript("OnEnter", UpdateMoveMode)
|
|
microframe:SetScript("OnLeave", UpdateMoveMode)
|
|
|
|
local modifier = CreateFrame("Frame", nil, microframe)
|
|
modifier:RegisterEvent("MODIFIER_STATE_CHANGED")
|
|
modifier:SetScript("OnEvent", UpdateMoveMode)
|
|
|
|
microframe:SetScript("OnDragStart", function()
|
|
local shift = API.IsShiftKeyDown()
|
|
local control = API.IsControlKeyDown()
|
|
if not shift or not control then return end
|
|
this:StartMoving()
|
|
end)
|
|
|
|
microframe:SetScript("OnDragStop", function()
|
|
this:StopMovingOrSizing()
|
|
end)
|
|
|
|
microframe:SetScript("OnEvent", function()
|
|
if this.initialized then return end
|
|
this.initialized = true
|
|
|
|
ShaguTweaks.DarkenFrame(microframe)
|
|
|
|
for id, frame in ipairs(frames) do
|
|
local anchor = frames[id-1] or microframe
|
|
frame:ClearAllPoints()
|
|
frame:SetPoint("LEFT", anchor, id == 1 and "LEFT" or "RIGHT", id == 1 and 3.5 or -2, id==1 and 10 or 0)
|
|
frame:SetParent(microframe)
|
|
frame.Show = nil
|
|
frame:Show()
|
|
|
|
-- Child micro buttons normally own the mouse. Re-evaluate move mode when
|
|
-- entering or leaving one so Ctrl+Shift already held before mouseover is
|
|
-- handled without polling and without replacing their tooltip scripts.
|
|
ShaguTweaks.HookScript(frame, "OnEnter", UpdateMoveMode)
|
|
ShaguTweaks.HookScript(frame, "OnLeave", UpdateMoveMode)
|
|
end
|
|
|
|
UpdateMoveMode()
|
|
end)
|
|
end
|