Mercurial > wow > askmrrobot

annotate ui/AmrUiTextarea.lua @ 81:0515882856f1 v38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for 7.0
author yellowfive
date Tue, 19 Jul 2016 10:05:32 -0700
parents cf2b6b9a8337
children
rev   line source
yellowfive@57 1 --[[-----------------------------------------------------------------------------
yellowfive@57 2 Textarea Widget
yellowfive@57 3 -------------------------------------------------------------------------------]]
yellowfive@57 4 local Type, Version = "AmrUiTextarea", 1
yellowfive@57 5 local AceGUI = LibStub and LibStub("AceGUI-3.0", true)
yellowfive@57 6 if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end
yellowfive@57 7
yellowfive@57 8 local Amr = LibStub("AceAddon-3.0"):GetAddon("AskMrRobot")
yellowfive@57 9
yellowfive@57 10 --[[-----------------------------------------------------------------------------
yellowfive@57 11 Scripts
yellowfive@57 12 -------------------------------------------------------------------------------]]
yellowfive@57 13
yellowfive@57 14 -- handles clicking in the scrollframe but below the bounds of the editbox (which can't be sized to same as scrollframe)
yellowfive@57 15 local function scrollFrameMouseUp(self)
yellowfive@57 16 local editbox = self.obj.editbox
yellowfive@57 17 editbox:SetFocus()
yellowfive@57 18 editbox:SetCursorPosition(editbox:GetNumLetters())
yellowfive@57 19 end
yellowfive@57 20
yellowfive@57 21 local function scrollFrameVerticalScroll(self, offset)
yellowfive@57 22 local editbox = self.obj.editbox
yellowfive@57 23 editbox:SetHitRectInsets(0, 0, offset, editbox:GetHeight() - offset - self:GetHeight())
yellowfive@57 24 end
yellowfive@57 25
yellowfive@57 26 local function editboxCursorChanged(self, _, y, _, cursorHeight)
yellowfive@57 27 self, y = self.obj.scrollFrame, -y
yellowfive@57 28 local offset = self:GetVerticalScroll()
yellowfive@57 29 if y < offset then
yellowfive@57 30 self:SetVerticalScroll(y)
yellowfive@57 31 else
yellowfive@57 32 y = y + cursorHeight - self:GetHeight()
yellowfive@57 33 if y > offset then
yellowfive@57 34 self:SetVerticalScroll(y)
yellowfive@57 35 end
yellowfive@57 36 end
yellowfive@57 37 end
yellowfive@57 38
yellowfive@57 39 local function editboxEditFocusLost(self)
yellowfive@57 40 self:HighlightText(0, 0)
yellowfive@57 41 self.obj:Fire("OnEditFocusLost")
yellowfive@57 42 end
yellowfive@57 43
yellowfive@57 44 local function editboxEditFocusGained(frame)
yellowfive@57 45 AceGUI:SetFocus(frame.obj)
yellowfive@57 46 frame.obj:Fire("OnEditFocusGained")
yellowfive@57 47 end
yellowfive@57 48
yellowfive@57 49 local function editboxTextChanged(self, userInput)
yellowfive@57 50 if userInput then
yellowfive@57 51 self = self.obj
yellowfive@57 52 self:Fire("OnTextChanged", self.editbox:GetText())
yellowfive@57 53 end
yellowfive@57 54 end
yellowfive@57 55
yellowfive@57 56 local function editboxTextSet(self)
yellowfive@57 57 self:HighlightText()
yellowfive@57 58 self:SetCursorPosition(self:GetNumLetters())
yellowfive@57 59 self = self.obj
yellowfive@57 60 self:Fire("OnTextSet", self.editbox:GetText())
yellowfive@57 61 end
yellowfive@57 62
yellowfive@61 63 local function editboxEnterPressed(self)
yellowfive@61 64 self.obj:Fire("OnEnterPressed")
yellowfive@61 65 end
yellowfive@61 66
yellowfive@57 67 -- works for both the scrollframe and the editbox, handles e.g. dragging a spell link into the textarea
yellowfive@57 68 local function onReceiveDrag(self)
yellowfive@57 69 local type, id, info = GetCursorInfo()
yellowfive@57 70 if type == "spell" then
yellowfive@57 71 info = GetSpellInfo(id, info)
yellowfive@57 72 elseif type ~= "item" then
yellowfive@57 73 return
yellowfive@57 74 end
yellowfive@57 75 ClearCursor()
yellowfive@57 76 self = self.obj
yellowfive@57 77 local editbox = self.editbox
yellowfive@57 78 if not editbox:HasFocus() then
yellowfive@57 79 editbox:SetFocus()
yellowfive@57 80 editbox:SetCursorPosition(editbox:GetNumLetters())
yellowfive@57 81 end
yellowfive@57 82 editbox:Insert(info)
yellowfive@57 83 end
yellowfive@57 84
yellowfive@57 85 --[[-----------------------------------------------------------------------------
yellowfive@57 86 Methods
yellowfive@57 87 -------------------------------------------------------------------------------]]
yellowfive@57 88 local methods = {
yellowfive@57 89 ["OnAcquire"] = function(self)
yellowfive@57 90 -- restore default values
yellowfive@57 91 self:SetWidth(200)
yellowfive@57 92 self:SetHeight(24)
yellowfive@61 93 self:SetMultiLine(true)
yellowfive@57 94 self:SetFont(Amr.CreateFont("Regular", 16, Amr.Colors.Text))
yellowfive@57 95 self:SetText("")
yellowfive@57 96 self.frame:ClearAllPoints()
yellowfive@57 97 end,
yellowfive@57 98
yellowfive@57 99 ["SetText"] = function(self, text)
yellowfive@57 100 self.editbox:SetText(text)
yellowfive@57 101 end,
yellowfive@57 102
yellowfive@57 103 ["GetText"] = function(self)
yellowfive@57 104 return self.editbox:GetText()
yellowfive@57 105 end,
yellowfive@57 106
yellowfive@57 107 ["SetFont"] = function(self, font)
yellowfive@57 108 self.editbox:SetFontObject(font)
yellowfive@57 109 end,
yellowfive@57 110
yellowfive@57 111 ["SetDisabled"] = function(self, disabled)
yellowfive@57 112 self.disabled = disabled
yellowfive@57 113 if disabled then
yellowfive@57 114 self.editbox:Disable()
yellowfive@57 115 else
yellowfive@57 116 self.editbox:Enable()
yellowfive@57 117 end
yellowfive@57 118 end,
yellowfive@57 119
yellowfive@57 120 ["OnWidthSet"] = function(self, width)
yellowfive@57 121 self.editbox:SetWidth(width)
yellowfive@57 122 end,
yellowfive@57 123
yellowfive@57 124 ["OnHeightSet"] = function(self, height)
yellowfive@57 125 self.editbox:SetHeight(height)
yellowfive@57 126 end,
yellowfive@57 127
yellowfive@57 128 ["ClearFocus"] = function(self)
yellowfive@57 129 self.editbox:ClearFocus()
yellowfive@61 130 self.editbox:HighlightText(0, 0)
yellowfive@57 131 self.frame:SetScript("OnShow", nil)
yellowfive@57 132 end,
yellowfive@61 133
yellowfive@61 134 ["SetMultiLine"] = function(self, multi)
yellowfive@61 135 self.editbox:SetMultiLine(multi)
yellowfive@61 136 end,
yellowfive@57 137
yellowfive@57 138 ["SetFocus"] = function(self, highlight)
yellowfive@57 139 self.editbox:SetFocus()
yellowfive@57 140 if highlight then
yellowfive@57 141 self.editbox:HighlightText()
yellowfive@57 142 end
yellowfive@57 143 if not self.frame:IsShown() then
yellowfive@57 144 self.frame:SetScript("OnShow", function(frame)
yellowfive@57 145 frame.obj.editbox:SetFocus()
yellowfive@57 146 if highlight then
yellowfive@57 147 self.editbox:HighlightText()
yellowfive@57 148 end
yellowfive@57 149 frame:SetScript("OnShow", nil)
yellowfive@57 150 end)
yellowfive@57 151 end
yellowfive@57 152 end
yellowfive@57 153 }
yellowfive@57 154
yellowfive@57 155 --[[-----------------------------------------------------------------------------
yellowfive@57 156 Constructor
yellowfive@57 157 -------------------------------------------------------------------------------]]
yellowfive@57 158 local function Constructor()
yellowfive@57 159 local name = "AmrUiTextarea" .. AceGUI:GetNextWidgetNum(Type)
yellowfive@57 160 local frame = CreateFrame("ScrollFrame", name, UIParent)
yellowfive@57 161 frame:Hide()
yellowfive@57 162
yellowfive@57 163 frame:SetScript("OnMouseUp", scrollFrameMouseUp)
yellowfive@57 164 frame:SetScript("OnReceiveDrag", onReceiveDrag)
yellowfive@57 165 frame:HookScript("OnVerticalScroll", scrollFrameVerticalScroll)
yellowfive@57 166
yellowfive@57 167 local editbox = CreateFrame("EditBox", name .. "Edit", frame)
yellowfive@57 168 editbox:SetAllPoints()
yellowfive@57 169 editbox:EnableMouse(true)
yellowfive@57 170 editbox:SetMultiLine(true)
yellowfive@57 171 editbox:SetAutoFocus(false)
yellowfive@57 172 editbox:SetCountInvisibleLetters(false)
yellowfive@57 173 editbox:SetTextInsets(4, 4, 4, 4)
yellowfive@57 174
yellowfive@57 175 editbox:SetScript("OnMouseDown", onReceiveDrag)
yellowfive@57 176 editbox:SetScript("OnReceiveDrag", onReceiveDrag)
yellowfive@57 177
yellowfive@57 178 editbox:SetScript("OnCursorChanged", editboxCursorChanged)
yellowfive@57 179 editbox:SetScript("OnEscapePressed", editbox.ClearFocus)
yellowfive@61 180 editbox:SetScript("OnEnterPressed", editboxEnterPressed)
yellowfive@57 181 editbox:SetScript("OnEditFocusLost", editboxEditFocusLost)
yellowfive@57 182 editbox:SetScript("OnTextChanged", editboxTextChanged)
yellowfive@57 183 editbox:SetScript("OnTextSet", editboxTextSet)
yellowfive@57 184 editbox:SetScript("OnEditFocusGained", editboxEditFocusGained)
yellowfive@57 185
yellowfive@57 186 frame:SetScrollChild(editbox)
yellowfive@57 187
yellowfive@57 188 local border = frame:CreateTexture(nil, "BACKGROUND")
yellowfive@81 189 border:SetColorTexture(Amr.Colors.BorderGray.R, Amr.Colors.BorderGray.G, Amr.Colors.BorderGray.B, 1)
yellowfive@57 190 border:SetAllPoints(true)
yellowfive@57 191
yellowfive@57 192 local bg = frame:CreateTexture(nil, "BORDER")
yellowfive@81 193 bg:SetColorTexture(Amr.Colors.BgInput.R, Amr.Colors.BgInput.G, Amr.Colors.BgInput.B, 1)
yellowfive@57 194 bg:SetPoint("TOPLEFT", frame, "TOPLEFT", 1, -1)
yellowfive@57 195 bg:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -1, 1)
yellowfive@57 196
yellowfive@57 197 local widget = {
yellowfive@57 198 editbox = editbox,
yellowfive@57 199 scrollFrame = frame,
yellowfive@57 200 frame = frame,
yellowfive@57 201 type = Type
yellowfive@57 202 }
yellowfive@57 203 for method, func in pairs(methods) do
yellowfive@57 204 widget[method] = func
yellowfive@57 205 end
yellowfive@57 206 editbox.obj, frame.obj = widget, widget
yellowfive@57 207
yellowfive@57 208 return AceGUI:RegisterAsWidget(widget)
yellowfive@57 209 end
yellowfive@57 210
yellowfive@57 211 AceGUI:RegisterWidgetType(Type, Constructor, Version)