florian.berthold
038931fcfb
Match the layout convention used by every other multi-addon-shape fork in Exiles/ (Bagnon/, Kui_Nameplates/, ShadowedUnitFrames/, etc.) — the addon's own files live in a subfolder named after the addon, with only the repo-level README files at the root. All moves are pure git renames (history preserved). Toc references are relative to the toc location so nothing inside the addon changes.
378 lines
11 KiB
Lua
378 lines
11 KiB
Lua
local Type, Version = "MultiLineEditBox", 33
|
|
local AceGUI = LibStub and LibStub("AceGUI-3.0", true)
|
|
if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end
|
|
|
|
-- Lua APIs
|
|
local pairs = pairs
|
|
|
|
-- WoW APIs
|
|
local GetCursorInfo, ClearCursor = GetCursorInfo, ClearCursor
|
|
local CreateFrame, UIParent = CreateFrame, UIParent
|
|
local _G = _G
|
|
|
|
--[[-----------------------------------------------------------------------------
|
|
Support functions
|
|
-------------------------------------------------------------------------------]]
|
|
|
|
if not AceGUIMultiLineEditBoxInsertLink then
|
|
-- upgradeable hook
|
|
if ChatFrameUtil and ChatFrameUtil.InsertLink then
|
|
hooksecurefunc(ChatFrameUtil, "InsertLink", function(...) return _G.AceGUIMultiLineEditBoxInsertLink(...) end)
|
|
elseif ChatEdit_InsertLink then
|
|
hooksecurefunc("ChatEdit_InsertLink", function(...) return _G.AceGUIMultiLineEditBoxInsertLink(...) end)
|
|
end
|
|
end
|
|
|
|
function _G.AceGUIMultiLineEditBoxInsertLink(text)
|
|
for i = 1, AceGUI:GetWidgetCount(Type) do
|
|
local editbox = _G[("MultiLineEditBox%uEdit"):format(i)]
|
|
if editbox and editbox:IsVisible() and editbox:HasFocus() then
|
|
editbox:Insert(text)
|
|
return true
|
|
end
|
|
end
|
|
end
|
|
|
|
|
|
local function Layout(self)
|
|
self:SetHeight(self.numlines * 14 + (self.disablebutton and 19 or 41) + self.labelHeight)
|
|
|
|
if self.labelHeight == 0 then
|
|
self.scrollBar:SetPoint("TOP", self.frame, "TOP", 0, -23)
|
|
else
|
|
self.scrollBar:SetPoint("TOP", self.label, "BOTTOM", 0, -19)
|
|
end
|
|
|
|
if self.disablebutton then
|
|
self.scrollBar:SetPoint("BOTTOM", self.frame, "BOTTOM", 0, 21)
|
|
self.scrollBG:SetPoint("BOTTOMLEFT", 0, 4)
|
|
else
|
|
self.scrollBar:SetPoint("BOTTOM", self.button, "TOP", 0, 18)
|
|
self.scrollBG:SetPoint("BOTTOMLEFT", self.button, "TOPLEFT")
|
|
end
|
|
end
|
|
|
|
--[[-----------------------------------------------------------------------------
|
|
Scripts
|
|
-------------------------------------------------------------------------------]]
|
|
local function OnClick(self) -- Button
|
|
self = self.obj
|
|
self.editBox:ClearFocus()
|
|
if not self:Fire("OnEnterPressed", self.editBox:GetText()) then
|
|
self.button:Disable()
|
|
end
|
|
end
|
|
|
|
local function OnCursorChanged(self, _, y, _, cursorHeight) -- EditBox
|
|
self, y = self.obj.scrollFrame, -y
|
|
local offset = self:GetVerticalScroll()
|
|
if y < offset then
|
|
self:SetVerticalScroll(y)
|
|
else
|
|
y = y + cursorHeight - self:GetHeight()
|
|
if y > offset then
|
|
self:SetVerticalScroll(y)
|
|
end
|
|
end
|
|
end
|
|
|
|
local function OnEditFocusLost(self) -- EditBox
|
|
self:HighlightText(0, 0)
|
|
self.obj:Fire("OnEditFocusLost")
|
|
end
|
|
|
|
local function OnEnter(self) -- EditBox / ScrollFrame
|
|
self = self.obj
|
|
if not self.entered then
|
|
self.entered = true
|
|
self:Fire("OnEnter")
|
|
end
|
|
end
|
|
|
|
local function OnLeave(self) -- EditBox / ScrollFrame
|
|
self = self.obj
|
|
if self.entered then
|
|
self.entered = nil
|
|
self:Fire("OnLeave")
|
|
end
|
|
end
|
|
|
|
local function OnMouseUp(self) -- ScrollFrame
|
|
self = self.obj.editBox
|
|
self:SetFocus()
|
|
self:SetCursorPosition(self:GetNumLetters())
|
|
end
|
|
|
|
local function OnReceiveDrag(self) -- EditBox / ScrollFrame
|
|
local type, id, info, extra = GetCursorInfo()
|
|
if type == "spell" then
|
|
if C_Spell and C_Spell.GetSpellName then
|
|
info = C_Spell.GetSpellName(extra)
|
|
else
|
|
info = GetSpellInfo(id, info)
|
|
end
|
|
elseif type ~= "item" then
|
|
return
|
|
end
|
|
ClearCursor()
|
|
self = self.obj
|
|
local editBox = self.editBox
|
|
if not editBox:HasFocus() then
|
|
editBox:SetFocus()
|
|
editBox:SetCursorPosition(editBox:GetNumLetters())
|
|
end
|
|
editBox:Insert(info)
|
|
self.button:Enable()
|
|
end
|
|
|
|
local function OnSizeChanged(self, width, height) -- ScrollFrame
|
|
self.obj.editBox:SetWidth(width)
|
|
end
|
|
|
|
local function OnTextChanged(self, userInput) -- EditBox
|
|
if userInput then
|
|
self = self.obj
|
|
self:Fire("OnTextChanged", self.editBox:GetText())
|
|
self.button:Enable()
|
|
end
|
|
end
|
|
|
|
local function OnTextSet(self) -- EditBox
|
|
self:HighlightText(0, 0)
|
|
self:SetCursorPosition(self:GetNumLetters())
|
|
self:SetCursorPosition(0)
|
|
self.obj.button:Disable()
|
|
end
|
|
|
|
local function OnVerticalScroll(self, offset) -- ScrollFrame
|
|
local editBox = self.obj.editBox
|
|
editBox:SetHitRectInsets(0, 0, offset, editBox:GetHeight() - offset - self:GetHeight())
|
|
end
|
|
|
|
local function OnScrollRangeChanged(self, xrange, yrange)
|
|
if yrange == 0 then
|
|
self.obj.editBox:SetHitRectInsets(0, 0, 0, 0)
|
|
else
|
|
OnVerticalScroll(self, self:GetVerticalScroll())
|
|
end
|
|
end
|
|
|
|
local function OnShowFocus(frame)
|
|
frame.obj.editBox:SetFocus()
|
|
frame:SetScript("OnShow", nil)
|
|
end
|
|
|
|
local function OnEditFocusGained(frame)
|
|
AceGUI:SetFocus(frame.obj)
|
|
frame.obj:Fire("OnEditFocusGained")
|
|
end
|
|
|
|
--[[-----------------------------------------------------------------------------
|
|
Methods
|
|
-------------------------------------------------------------------------------]]
|
|
local methods = {
|
|
["OnAcquire"] = function(self)
|
|
self.editBox:SetText("")
|
|
self:SetDisabled(false)
|
|
self:SetWidth(200)
|
|
self:DisableButton(false)
|
|
self:SetNumLines()
|
|
self.entered = nil
|
|
self:SetMaxLetters(0)
|
|
end,
|
|
|
|
["OnRelease"] = function(self)
|
|
self:ClearFocus()
|
|
end,
|
|
|
|
["SetDisabled"] = function(self, disabled)
|
|
local editBox = self.editBox
|
|
if disabled then
|
|
editBox:ClearFocus()
|
|
editBox:EnableMouse(false)
|
|
editBox:SetTextColor(0.5, 0.5, 0.5)
|
|
self.label:SetTextColor(0.5, 0.5, 0.5)
|
|
self.scrollFrame:EnableMouse(false)
|
|
self.button:Disable()
|
|
else
|
|
editBox:EnableMouse(true)
|
|
editBox:SetTextColor(1, 1, 1)
|
|
self.label:SetTextColor(1, 0.82, 0)
|
|
self.scrollFrame:EnableMouse(true)
|
|
end
|
|
end,
|
|
|
|
["SetLabel"] = function(self, text)
|
|
if text and text ~= "" then
|
|
self.label:SetText(text)
|
|
if self.labelHeight ~= 10 then
|
|
self.labelHeight = 10
|
|
self.label:Show()
|
|
end
|
|
elseif self.labelHeight ~= 0 then
|
|
self.labelHeight = 0
|
|
self.label:Hide()
|
|
end
|
|
Layout(self)
|
|
end,
|
|
|
|
["SetNumLines"] = function(self, value)
|
|
if not value or value < 4 then
|
|
value = 4
|
|
end
|
|
self.numlines = value
|
|
Layout(self)
|
|
end,
|
|
|
|
["SetText"] = function(self, text)
|
|
self.editBox:SetText(text)
|
|
end,
|
|
|
|
["GetText"] = function(self)
|
|
return self.editBox:GetText()
|
|
end,
|
|
|
|
["SetMaxLetters"] = function (self, num)
|
|
self.editBox:SetMaxLetters(num or 0)
|
|
end,
|
|
|
|
["DisableButton"] = function(self, disabled)
|
|
self.disablebutton = disabled
|
|
if disabled then
|
|
self.button:Hide()
|
|
else
|
|
self.button:Show()
|
|
end
|
|
Layout(self)
|
|
end,
|
|
|
|
["ClearFocus"] = function(self)
|
|
self.editBox:ClearFocus()
|
|
self.frame:SetScript("OnShow", nil)
|
|
end,
|
|
|
|
["SetFocus"] = function(self)
|
|
self.editBox:SetFocus()
|
|
if not self.frame:IsShown() then
|
|
self.frame:SetScript("OnShow", OnShowFocus)
|
|
end
|
|
end,
|
|
|
|
["HighlightText"] = function(self, from, to)
|
|
self.editBox:HighlightText(from, to)
|
|
end,
|
|
|
|
["GetCursorPosition"] = function(self)
|
|
return self.editBox:GetCursorPosition()
|
|
end,
|
|
|
|
["SetCursorPosition"] = function(self, ...)
|
|
return self.editBox:SetCursorPosition(...)
|
|
end,
|
|
}
|
|
|
|
--[[-----------------------------------------------------------------------------
|
|
Constructor
|
|
-------------------------------------------------------------------------------]]
|
|
local backdrop = {
|
|
bgFile = [[Interface\Tooltips\UI-Tooltip-Background]],
|
|
edgeFile = [[Interface\Tooltips\UI-Tooltip-Border]], edgeSize = 16,
|
|
insets = { left = 4, right = 3, top = 4, bottom = 3 }
|
|
}
|
|
|
|
local function Constructor()
|
|
local frame = CreateFrame("Frame", nil, UIParent)
|
|
frame:Hide()
|
|
|
|
local widgetNum = AceGUI:GetNextWidgetNum(Type)
|
|
|
|
local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormalSmall")
|
|
label:SetPoint("TOPLEFT", frame, "TOPLEFT", 0, -4)
|
|
label:SetPoint("TOPRIGHT", frame, "TOPRIGHT", 0, -4)
|
|
label:SetJustifyH("LEFT")
|
|
label:SetText(ACCEPT)
|
|
label:SetHeight(10)
|
|
|
|
local button = CreateFrame("Button", ("%s%dButton"):format(Type, widgetNum), frame, "UIPanelButtonTemplate")
|
|
button:SetPoint("BOTTOMLEFT", 0, 4)
|
|
button:SetHeight(22)
|
|
button:SetWidth(label:GetStringWidth() + 24)
|
|
button:SetText(ACCEPT)
|
|
button:SetScript("OnClick", OnClick)
|
|
button:Disable()
|
|
|
|
local text = button:GetFontString()
|
|
text:ClearAllPoints()
|
|
text:SetPoint("TOPLEFT", button, "TOPLEFT", 5, -5)
|
|
text:SetPoint("BOTTOMRIGHT", button, "BOTTOMRIGHT", -5, 1)
|
|
text:SetJustifyV("MIDDLE")
|
|
|
|
local scrollBG = CreateFrame("Frame", nil, frame, "BackdropTemplate")
|
|
scrollBG:SetBackdrop(backdrop)
|
|
scrollBG:SetBackdropColor(0, 0, 0)
|
|
scrollBG:SetBackdropBorderColor(0.4, 0.4, 0.4)
|
|
|
|
local scrollFrame = CreateFrame("ScrollFrame", ("%s%dScrollFrame"):format(Type, widgetNum), frame, "UIPanelScrollFrameTemplate")
|
|
|
|
local scrollBar = _G[scrollFrame:GetName() .. "ScrollBar"]
|
|
scrollBar:ClearAllPoints()
|
|
scrollBar:SetPoint("TOP", label, "BOTTOM", 0, -19)
|
|
scrollBar:SetPoint("BOTTOM", button, "TOP", 0, 18)
|
|
scrollBar:SetPoint("RIGHT", frame, "RIGHT")
|
|
|
|
scrollBG:SetPoint("TOPRIGHT", scrollBar, "TOPLEFT", 0, 19)
|
|
scrollBG:SetPoint("BOTTOMLEFT", button, "TOPLEFT")
|
|
|
|
scrollFrame:SetPoint("TOPLEFT", scrollBG, "TOPLEFT", 5, -6)
|
|
scrollFrame:SetPoint("BOTTOMRIGHT", scrollBG, "BOTTOMRIGHT", -4, 4)
|
|
scrollFrame:SetScript("OnEnter", OnEnter)
|
|
scrollFrame:SetScript("OnLeave", OnLeave)
|
|
scrollFrame:SetScript("OnMouseUp", OnMouseUp)
|
|
scrollFrame:SetScript("OnReceiveDrag", OnReceiveDrag)
|
|
scrollFrame:SetScript("OnSizeChanged", OnSizeChanged)
|
|
scrollFrame:HookScript("OnVerticalScroll", OnVerticalScroll)
|
|
scrollFrame:HookScript("OnScrollRangeChanged", OnScrollRangeChanged)
|
|
|
|
local editBox = CreateFrame("EditBox", ("%s%dEdit"):format(Type, widgetNum), scrollFrame)
|
|
editBox:SetAllPoints()
|
|
editBox:SetFontObject(ChatFontNormal)
|
|
editBox:SetMultiLine(true)
|
|
editBox:EnableMouse(true)
|
|
editBox:SetAutoFocus(false)
|
|
editBox:SetCountInvisibleLetters(false)
|
|
editBox:SetScript("OnCursorChanged", OnCursorChanged)
|
|
editBox:SetScript("OnEditFocusLost", OnEditFocusLost)
|
|
editBox:SetScript("OnEnter", OnEnter)
|
|
editBox:SetScript("OnEscapePressed", editBox.ClearFocus)
|
|
editBox:SetScript("OnLeave", OnLeave)
|
|
editBox:SetScript("OnMouseDown", OnReceiveDrag)
|
|
editBox:SetScript("OnReceiveDrag", OnReceiveDrag)
|
|
editBox:SetScript("OnTextChanged", OnTextChanged)
|
|
editBox:SetScript("OnTextSet", OnTextSet)
|
|
editBox:SetScript("OnEditFocusGained", OnEditFocusGained)
|
|
|
|
|
|
scrollFrame:SetScrollChild(editBox)
|
|
|
|
local widget = {
|
|
button = button,
|
|
editBox = editBox,
|
|
frame = frame,
|
|
label = label,
|
|
labelHeight = 10,
|
|
numlines = 4,
|
|
scrollBar = scrollBar,
|
|
scrollBG = scrollBG,
|
|
scrollFrame = scrollFrame,
|
|
type = Type
|
|
}
|
|
for method, func in pairs(methods) do
|
|
widget[method] = func
|
|
end
|
|
button.obj, editBox.obj, scrollFrame.obj = widget, widget, widget
|
|
|
|
return AceGUI:RegisterAsWidget(widget)
|
|
end
|
|
|
|
AceGUI:RegisterWidgetType(Type, Constructor, Version)
|