Mercurial > wow > wowdb-profiler

annotate Comments.lua @ 272:e9670d6c6bf1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added keybinding for comment system, disabling the MiniMap/LDB icon for now (or indefinitely).
author James D. Callahan III <jcallahan@curse.com>
date Fri, 22 Mar 2013 10:48:39 -0500
parents fbd94a0be29c
children ac6163ed8330
rev   line source
jcallahan@249 1 -- LUA API ------------------------------------------------------------
jcallahan@249 2
jcallahan@249 3 local _G = getfenv(0)
jcallahan@249 4
jcallahan@249 5 local table = _G.table
jcallahan@249 6
jcallahan@267 7 local next = _G.next
jcallahan@270 8 local pairs = _G.pairs
jcallahan@267 9
jcallahan@249 10 -- ADDON NAMESPACE ----------------------------------------------------
jcallahan@249 11
jcallahan@249 12 local ADDON_NAME, private = ...
jcallahan@249 13
jcallahan@249 14 local LibStub = _G.LibStub
jcallahan@249 15 local WDP = LibStub("AceAddon-3.0"):GetAddon(ADDON_NAME)
jcallahan@259 16 local Dialog = LibStub("LibDialog-1.0")
jcallahan@270 17 local LQT = LibStub("LibQTip-1.0")
jcallahan@249 18
jcallahan@249 19 local ParseGUID = private.ParseGUID
jcallahan@260 20 local ItemLinkToID = private.ItemLinkToID
jcallahan@263 21 local DBEntry = private.DBEntry
jcallahan@249 22
jcallahan@258 23 -- CONSTANTS ----------------------------------------------------------
jcallahan@258 24
jcallahan@258 25 local EDIT_MAXCHARS = 3000
jcallahan@259 26 local EDIT_DESCRIPTION_FORMAT = "Enter your comment below, being as descriptive as possible. Comments are limited to %s characters, including newlines and spaces."
jcallahan@259 27 local LINK_COMMENT_TOOLTIP = "Click here to create a link to the comment page on WoWDB."
jcallahan@261 28 local LINK_EDITBOX_DESC_FORMAT = "Copy the highlighted text and paste it into your browser to visit the comments for |cffffd200%s|r."
jcallahan@259 29
jcallahan@259 30 local URL_BASE = "http://www.wowdb.com/"
jcallahan@259 31
jcallahan@259 32 local URL_TYPE_MAP = {
jcallahan@267 33 ACHIEVEMENT = "achievements",
jcallahan@259 34 ITEM = "items",
jcallahan@259 35 OBJECT = "objects",
jcallahan@259 36 NPC = "npcs",
jcallahan@261 37 QUEST = "quests",
jcallahan@260 38 SPELL = "spells",
jcallahan@259 39 VEHICLE = "npcs",
jcallahan@259 40 }
jcallahan@259 41
jcallahan@259 42 Dialog:Register("WDP_CommentLink", {
jcallahan@259 43 text = "",
jcallahan@259 44 editboxes = {
jcallahan@259 45 {
jcallahan@259 46 text = _G.UNKNOWN,
jcallahan@259 47 on_escape_pressed = function(self)
jcallahan@259 48 self:ClearFocus()
jcallahan@259 49 end,
jcallahan@265 50 on_enter_pressed = function(self)
jcallahan@265 51 self:GetParent().buttons[1]:Click()
jcallahan@265 52 end,
jcallahan@259 53 },
jcallahan@259 54 },
jcallahan@259 55 buttons = {
jcallahan@259 56 {
jcallahan@259 57 text = _G.OKAY,
jcallahan@259 58 }
jcallahan@259 59 },
jcallahan@259 60 show_while_dead = true,
jcallahan@259 61 hide_on_escape = true,
jcallahan@259 62 is_exclusive = true,
jcallahan@259 63 on_show = function(self, data)
jcallahan@259 64 local editbox = self.editboxes[1]
jcallahan@259 65 editbox:SetWidth(self:GetWidth() - 20)
jcallahan@259 66 editbox:SetText(("%s%s/%d#related:comments"):format(URL_BASE, URL_TYPE_MAP[data.type_name], data.id))
jcallahan@259 67 editbox:HighlightText()
jcallahan@259 68 editbox:SetFocus()
jcallahan@259 69
jcallahan@261 70 self.text:SetJustifyH("LEFT")
jcallahan@259 71 self.text:SetFormattedText(LINK_EDITBOX_DESC_FORMAT:format(data.label))
jcallahan@259 72 end,
jcallahan@259 73 })
jcallahan@259 74
jcallahan@270 75 -- VARIABLES ----------------------------------------------------------
jcallahan@270 76
jcallahan@259 77 local comment_subject = {}
jcallahan@270 78 local comment_frame
jcallahan@258 79
jcallahan@249 80 -- HELPERS ------------------------------------------------------------
jcallahan@249 81
jcallahan@270 82 local function NewComment(type_name, label, id)
jcallahan@270 83 comment_subject.id = id
jcallahan@270 84 comment_subject.label = label
jcallahan@270 85 comment_subject.type_name = type_name
jcallahan@270 86
jcallahan@270 87 comment_frame.subject_name:SetText(label)
jcallahan@270 88 comment_frame.subject_data:SetFormattedText("(%s #%d)", type_name, id)
jcallahan@270 89 comment_frame.scroll_frame.edit_box:SetText("")
jcallahan@270 90 _G.ShowUIPanel(comment_frame)
jcallahan@270 91 end
jcallahan@270 92
jcallahan@270 93 local function CreateUnitComment(unit_id)
jcallahan@270 94 if not _G.UnitExists(unit_id) then
jcallahan@270 95 WDP:Printf("Unit '%s' does not exist.", unit_id)
jcallahan@270 96 return
jcallahan@270 97 end
jcallahan@270 98 local unit_type, unit_idnum = ParseGUID(_G.UnitGUID(unit_id))
jcallahan@270 99
jcallahan@270 100 if not unit_idnum then
jcallahan@270 101 WDP:Printf("Unable to determine unit from '%s'", unit_id)
jcallahan@270 102 return
jcallahan@270 103 end
jcallahan@270 104 local type_name = private.UNIT_TYPE_NAMES[unit_type + 1]
jcallahan@270 105 local unit_name = _G.UnitName(unit_id)
jcallahan@270 106 NewComment(type_name, unit_name, unit_idnum)
jcallahan@270 107 end
jcallahan@270 108
jcallahan@270 109 local DATA_TYPE_MAPPING = {
jcallahan@270 110 merchant = "ITEM",
jcallahan@270 111 }
jcallahan@270 112
jcallahan@270 113 local CreateCursorComment
jcallahan@249 114 do
jcallahan@270 115 local CURSOR_DATA_FUNCS = {
jcallahan@270 116 item = function(type_name, id_num, data_subtype)
jcallahan@270 117 local item_name = _G.GetItemInfo(id_num)
jcallahan@270 118 NewComment(type_name, item_name, id_num)
jcallahan@270 119 end,
jcallahan@270 120 merchant = function(type_name, item_index)
jcallahan@270 121 local item_link = _G.GetMerchantItemLink(item_index)
jcallahan@270 122 local item_name = _G.GetItemInfo(item_link)
jcallahan@270 123 NewComment(type_name, item_name, ItemLinkToID(item_link))
jcallahan@270 124 end,
jcallahan@270 125 spell = function(type_name, data, data_subtype, spell_id)
jcallahan@270 126 local spell_name = _G.GetSpellInfo(spell_id)
jcallahan@270 127 NewComment(type_name, spell_name, spell_id)
jcallahan@270 128 end,
jcallahan@270 129 }
jcallahan@270 130
jcallahan@270 131 function CreateCursorComment()
jcallahan@270 132 local data_type, data, data_subtype, subdata = _G.GetCursorInfo()
jcallahan@270 133 local comment_func = CURSOR_DATA_FUNCS[data_type]
jcallahan@270 134
jcallahan@270 135 if not comment_func then
jcallahan@270 136 WDP:Print("Unable to determine comment subject from cursor.")
jcallahan@270 137 return
jcallahan@270 138 end
jcallahan@270 139 comment_func(DATA_TYPE_MAPPING[data_type] or data_type:upper(), data, data_subtype, subdata)
jcallahan@270 140 end
jcallahan@270 141 end -- do-block
jcallahan@270 142
jcallahan@270 143 local function CreateQuestComment()
jcallahan@270 144 local index = _G.GetQuestLogSelection()
jcallahan@270 145
jcallahan@270 146 if not index or not _G.QuestLogFrame:IsShown() then
jcallahan@270 147 WDP:Print("You must select a quest from the Quest frame.")
jcallahan@270 148 return
jcallahan@270 149 end
jcallahan@270 150 local title, _, tag, _, is_header, _, _, _, idnum = _G.GetQuestLogTitle(index)
jcallahan@270 151
jcallahan@270 152 if is_header then
jcallahan@270 153 WDP:Print("You must select a quest from the Quest frame.")
jcallahan@270 154 return
jcallahan@270 155 end
jcallahan@270 156 NewComment("QUEST", title, idnum)
jcallahan@270 157 end
jcallahan@270 158
jcallahan@270 159 local function CreateAchievementComment()
jcallahan@270 160 if not _G.AchievementFrame or not _G.AchievementFrame:IsShown() or not _G.AchievementFrameAchievements.selection then
jcallahan@270 161 WDP:Print("You must select an achievement from the Achievement frame.")
jcallahan@270 162 return
jcallahan@270 163 end
jcallahan@270 164
jcallahan@270 165 for _, button in next, _G.AchievementFrameAchievementsContainer.buttons do
jcallahan@270 166 if button.selected then
jcallahan@270 167 NewComment("ACHIEVEMENT", button.label:GetText(), button.id)
jcallahan@270 168 break
jcallahan@270 169 end
jcallahan@270 170 end
jcallahan@270 171 end
jcallahan@270 172
jcallahan@270 173 local ShowPossibleSubjects
jcallahan@270 174 do
jcallahan@270 175 local display
jcallahan@270 176 local old_x, old_y, click_time
jcallahan@270 177
jcallahan@270 178 _G.WorldFrame:HookScript("OnMouseDown", function(frame, ...)
jcallahan@270 179 old_x, old_y = _G.GetCursorPosition()
jcallahan@270 180 click_time = _G.GetTime()
jcallahan@270 181 end)
jcallahan@270 182
jcallahan@270 183 _G.WorldFrame:HookScript("OnMouseUp", function(frame, ...)
jcallahan@270 184 if not display then
jcallahan@270 185 return
jcallahan@270 186 end
jcallahan@270 187 local x, y = _G.GetCursorPosition()
jcallahan@270 188
jcallahan@270 189 if not old_x or not old_y or not x or not y or not click_time then
jcallahan@270 190 display = display:Release()
jcallahan@270 191 return
jcallahan@270 192 end
jcallahan@270 193
jcallahan@270 194 if (_G.math.abs(x - old_x) + _G.math.abs(y - old_y)) <= 5 and _G.GetTime() - click_time < 1 then
jcallahan@270 195 display = display:Release()
jcallahan@270 196 end
jcallahan@270 197 end)
jcallahan@270 198
jcallahan@270 199 local function CreateComment(cell, func)
jcallahan@271 200 if _G.type(func) == "table" then
jcallahan@271 201 func[1](func[2])
jcallahan@271 202 else
jcallahan@271 203 func()
jcallahan@271 204 end
jcallahan@270 205 display = display:Release()
jcallahan@270 206 end
jcallahan@270 207
jcallahan@270 208 local CURSOR_NAME_FUNCS = {
jcallahan@270 209 item = function(id_num)
jcallahan@270 210 return _G.GetItemInfo(id_num)
jcallahan@270 211 end,
jcallahan@270 212 merchant = function(item_index)
jcallahan@270 213 return _G.GetItemInfo(_G.GetMerchantItemLink(item_index))
jcallahan@270 214 end,
jcallahan@270 215 spell = function(data, data_subtype, spell_id)
jcallahan@270 216 return _G.GetSpellInfo(spell_id)
jcallahan@270 217 end,
jcallahan@270 218 }
jcallahan@270 219
jcallahan@270 220 local VALID_UNITS = {
jcallahan@270 221 boss1 = true,
jcallahan@270 222 boss2 = true,
jcallahan@270 223 boss3 = true,
jcallahan@270 224 boss4 = true,
jcallahan@270 225 focus = true,
jcallahan@270 226 mouseover = true,
jcallahan@270 227 npc = true,
jcallahan@270 228 target = true,
jcallahan@270 229 }
jcallahan@270 230
jcallahan@270 231 function ShowPossibleSubjects(anchor)
jcallahan@270 232 if not display then
jcallahan@270 233 display = LQT:Acquire(ADDON_NAME, 1, "LEFT")
jcallahan@270 234 display:EnableMouse(true)
jcallahan@270 235 end
jcallahan@270 236
jcallahan@270 237 if anchor then
jcallahan@270 238 display:SmartAnchorTo(anchor)
jcallahan@270 239 display:SetAutoHideDelay(0.2, anchor)
jcallahan@270 240 else
jcallahan@270 241 display:SetPoint("CENTER", _G.UIParent, "CENTER", 0, 0)
jcallahan@270 242 end
jcallahan@270 243 display:Clear()
jcallahan@270 244 display:AddHeader("Choose comment subject:", "CENTER")
jcallahan@270 245 display:AddSeparator()
jcallahan@270 246 display:AddSeparator()
jcallahan@270 247
jcallahan@270 248 local line
jcallahan@270 249
jcallahan@270 250 for unit_id in pairs(VALID_UNITS) do
jcallahan@270 251 if _G.UnitExists(unit_id) then
jcallahan@270 252 local unit_type, unit_idnum = ParseGUID(_G.UnitGUID(unit_id))
jcallahan@270 253
jcallahan@270 254 if unit_idnum then
jcallahan@270 255 line = display:AddLine(("%s: %s"):format(unit_id:gsub("^%l", _G.string.upper), _G.UnitName(unit_id)))
jcallahan@271 256 display:SetLineScript(line, "OnMouseUp", CreateComment, { CreateUnitComment, unit_id })
jcallahan@270 257 end
jcallahan@270 258 end
jcallahan@270 259 end
jcallahan@270 260
jcallahan@270 261 if _G.AchievementFrame and _G.AchievementFrame:IsShown() and _G.AchievementFrameAchievements.selection then
jcallahan@270 262 for _, button in next, _G.AchievementFrameAchievementsContainer.buttons do
jcallahan@270 263 if button.selected then
jcallahan@270 264 line = display:AddLine(("Achievement: %s"):format(button.label:GetText()))
jcallahan@270 265 display:SetLineScript(line, "OnMouseUp", CreateComment, CreateAchievementComment)
jcallahan@270 266 break
jcallahan@270 267 end
jcallahan@270 268 end
jcallahan@270 269 end
jcallahan@270 270 local data_type, data, data_subtype, subdata = _G.GetCursorInfo()
jcallahan@270 271 local name_func = CURSOR_NAME_FUNCS[data_type]
jcallahan@270 272
jcallahan@270 273 if name_func then
jcallahan@270 274 line = display:AddLine(("Cursor: %s"):format(name_func(data, data_subtype, subdata)))
jcallahan@270 275 display:SetLineScript(line, "OnMouseUp", CreateComment, CreateCursorComment)
jcallahan@270 276 end
jcallahan@270 277
jcallahan@270 278 local quest_index = _G.GetQuestLogSelection()
jcallahan@270 279
jcallahan@270 280 if quest_index and _G.QuestLogFrame:IsShown() then
jcallahan@270 281 local title, _, tag, _, is_header, _, _, _, idnum = _G.GetQuestLogTitle(quest_index)
jcallahan@270 282
jcallahan@270 283 if not is_header then
jcallahan@270 284 line = display:AddLine(("Quest: %s"):format(title))
jcallahan@270 285 display:SetLineScript(line, "OnMouseUp", CreateComment, CreateQuestComment)
jcallahan@270 286 end
jcallahan@270 287 end
jcallahan@270 288
jcallahan@270 289 if display:GetLineCount() == 3 then
jcallahan@272 290 display = display:Release()
jcallahan@270 291 WDP:Print("There are no possible comment subjects.")
jcallahan@270 292 return
jcallahan@270 293 end
jcallahan@270 294 display:Show()
jcallahan@270 295 end
jcallahan@272 296
jcallahan@272 297 WDP.ShowPossibleSubjects = ShowPossibleSubjects -- For Keybinding.
jcallahan@270 298 end -- do-block
jcallahan@270 299
jcallahan@270 300 -- METHODS ------------------------------------------------------------
jcallahan@270 301
jcallahan@270 302 function private.ProcessCommentCommand(arg)
jcallahan@270 303 if not arg or arg == "" then
jcallahan@270 304 ShowPossibleSubjects(nil)
jcallahan@270 305 return
jcallahan@270 306 end
jcallahan@270 307
jcallahan@270 308 if arg == "achievement" then
jcallahan@270 309 CreateAchievementComment()
jcallahan@270 310 return
jcallahan@270 311 elseif arg == "cursor" then
jcallahan@270 312 CreateCursorComment()
jcallahan@270 313 return
jcallahan@270 314 elseif arg == "quest" then
jcallahan@270 315 CreateQuestComment()
jcallahan@270 316 return
jcallahan@270 317 end
jcallahan@270 318 CreateUnitComment(arg)
jcallahan@270 319 end
jcallahan@270 320
jcallahan@270 321 function private.InitializeCommentSystem()
jcallahan@249 322 local panel = _G.CreateFrame("Frame", "WDP_CommentFrame", _G.UIParent, "TranslucentFrameTemplate")
jcallahan@258 323 panel:SetSize(480, 350)
jcallahan@249 324 panel:SetPoint("CENTER", _G.UIParent, "CENTER")
jcallahan@249 325 panel:SetFrameStrata("DIALOG")
jcallahan@249 326 panel.Bg:SetTexture([[Interface\FrameGeneral\UI-Background-Rock]], true, true)
jcallahan@249 327 panel.Bg:SetHorizTile(true)
jcallahan@249 328 panel.Bg:SetVertTile(true)
jcallahan@264 329 panel:EnableMouse(true)
jcallahan@264 330 panel:SetMovable(true)
jcallahan@249 331 panel:Hide()
jcallahan@249 332 comment_frame = panel
jcallahan@249 333
jcallahan@249 334 table.insert(_G.UISpecialFrames, panel:GetName())
jcallahan@249 335
jcallahan@249 336 local streaks = panel:CreateTexture("$parentTopTileStreaks", "BORDER", "_UI-Frame-TopTileStreaks", -6)
jcallahan@249 337 streaks:SetPoint("TOPLEFT", 13, -13)
jcallahan@249 338 streaks:SetPoint("BOTTOMRIGHT", panel, "TOPRIGHT", -13, -35)
jcallahan@249 339
jcallahan@249 340 local header = _G.CreateFrame("Frame", "$parentHeader", panel, "TranslucentFrameTemplate")
jcallahan@249 341 header:SetSize(128, 64)
jcallahan@249 342 header:SetPoint("CENTER", panel, "TOP", 0, -8)
jcallahan@249 343 header.Bg:SetTexture([[Interface\FrameGeneral\UI-Background-Marble]])
jcallahan@249 344 header.Bg:SetHorizTile(true)
jcallahan@249 345 header.Bg:SetVertTile(true)
jcallahan@264 346 header:SetMovable(true)
jcallahan@264 347
jcallahan@264 348 header:SetScript("OnMouseDown", function()
jcallahan@264 349 panel:StartMoving()
jcallahan@264 350 end)
jcallahan@264 351
jcallahan@264 352 header:SetScript("OnMouseUp", function()
jcallahan@264 353 panel:StopMovingOrSizing()
jcallahan@264 354 end)
jcallahan@264 355
jcallahan@249 356 panel.header = header
jcallahan@249 357
jcallahan@249 358 local logo = header:CreateTexture(nil, "ARTWORK")
jcallahan@249 359 logo:SetTexture([[Interface\AddOns\WoWDBProfiler\wowdb-logo]])
jcallahan@249 360 logo:SetPoint("TOPLEFT", header, 10, -10)
jcallahan@249 361 logo:SetPoint("BOTTOMRIGHT", header, -10, 10)
jcallahan@249 362
jcallahan@258 363 local subject_name = panel:CreateFontString(nil, "ARTWORK", "GameFontNormal")
jcallahan@258 364 subject_name:SetPoint("TOP", header, "BOTTOM", 0, -10)
jcallahan@258 365 panel.subject_name = subject_name
jcallahan@258 366
jcallahan@258 367 local subject_data = panel:CreateFontString(nil, "ARTWORK", "GameFontNormal")
jcallahan@258 368 subject_data:SetPoint("TOP", subject_name, "BOTTOM", 0, -3)
jcallahan@258 369 panel.subject_data = subject_data
jcallahan@249 370
jcallahan@249 371 local close = _G.CreateFrame("Button", nil, panel, "UIPanelCloseButton")
jcallahan@249 372 close:SetPoint("TOPRIGHT", panel, "TOPRIGHT", -7, -7)
jcallahan@249 373
jcallahan@249 374 local scroll_frame = _G.CreateFrame("ScrollFrame", "$parentScrollFrame", panel)
jcallahan@249 375 scroll_frame:SetSize(435, 150)
jcallahan@249 376 scroll_frame:SetPoint("BOTTOM", 0, 70)
jcallahan@249 377
jcallahan@249 378 scroll_frame:SetScript("OnScrollRangeChanged", function(self, x, y)
jcallahan@249 379 _G.ScrollFrame_OnScrollRangeChanged(self, x, y)
jcallahan@249 380 end)
jcallahan@249 381
jcallahan@249 382 scroll_frame:SetScript("OnVerticalScroll", function(self, offset)
jcallahan@249 383 local scrollbar = self.ScrollBar
jcallahan@249 384 scrollbar:SetValue(offset)
jcallahan@249 385
jcallahan@249 386 local min, max = scrollbar:GetMinMaxValues()
jcallahan@249 387
jcallahan@249 388 if offset == 0 then
jcallahan@249 389 scrollbar.ScrollUpButton:Disable()
jcallahan@249 390 else
jcallahan@249 391 scrollbar.ScrollUpButton:Enable()
jcallahan@249 392 end
jcallahan@249 393
jcallahan@249 394 if (scrollbar:GetValue() - max) == 0 then
jcallahan@249 395 scrollbar.ScrollDownButton:Disable()
jcallahan@249 396 else
jcallahan@249 397 scrollbar.ScrollDownButton:Enable()
jcallahan@249 398 end
jcallahan@249 399 end)
jcallahan@249 400
jcallahan@249 401 scroll_frame:SetScript("OnMouseWheel", function(self, delta)
jcallahan@249 402 _G.ScrollFrameTemplate_OnMouseWheel(self, delta)
jcallahan@249 403 end)
jcallahan@249 404
jcallahan@266 405 -- This is needed because the EditBox starts with a height of a single line, so getting focus on click would require finding the EditBox blindly.
jcallahan@266 406 scroll_frame:SetScript("OnMouseUp", function(self)
jcallahan@266 407 _G.EditBox_SetFocus(self.edit_box)
jcallahan@266 408 end)
jcallahan@266 409
jcallahan@258 410 panel.scroll_frame = scroll_frame
jcallahan@258 411
jcallahan@249 412 local edit_container = _G.CreateFrame("Frame", nil, scroll_frame)
jcallahan@249 413 edit_container:SetPoint("TOPLEFT", scroll_frame, -7, 7)
jcallahan@249 414 edit_container:SetPoint("BOTTOMRIGHT", scroll_frame, 7, -7)
jcallahan@249 415 edit_container:SetFrameLevel(scroll_frame:GetFrameLevel() - 1)
jcallahan@249 416 edit_container:SetBackdrop({
jcallahan@249 417 bgFile = [[Interface\Tooltips\UI-Tooltip-Background]],
jcallahan@249 418 edgeFile = [[Interface\Tooltips\UI-Tooltip-Border]],
jcallahan@249 419 tile = true,
jcallahan@249 420 tileSize = 16,
jcallahan@249 421 edgeSize = 16,
jcallahan@249 422 insets = {
jcallahan@249 423 left = 5,
jcallahan@249 424 right = 5,
jcallahan@249 425 top = 5,
jcallahan@249 426 bottom = 5
jcallahan@249 427 }
jcallahan@249 428 })
jcallahan@249 429
jcallahan@249 430 edit_container:SetBackdropBorderColor(_G.TOOLTIP_DEFAULT_COLOR.r, _G.TOOLTIP_DEFAULT_COLOR.g, _G.TOOLTIP_DEFAULT_COLOR.b)
jcallahan@249 431 edit_container:SetBackdropColor(0, 0, 0)
jcallahan@249 432
jcallahan@259 433 local link_button = _G.CreateFrame("Button", "$parentLinkButton", panel)
jcallahan@259 434 link_button:SetSize(32, 16)
jcallahan@259 435 link_button:SetPoint("TOPRIGHT", edit_container, "BOTTOMRIGHT", 5, 0)
jcallahan@259 436
jcallahan@259 437 link_button:SetNormalTexture([[Interface\TradeSkillFrame\UI-TradeSkill-LinkButton]])
jcallahan@259 438 link_button:GetNormalTexture():SetTexCoord(0, 1, 0, 0.5)
jcallahan@259 439
jcallahan@259 440 link_button:SetHighlightTexture([[Interface\TradeSkillFrame\UI-TradeSkill-LinkButton]])
jcallahan@259 441 link_button:GetHighlightTexture():SetTexCoord(0, 1, 0.5, 1)
jcallahan@259 442
jcallahan@259 443 link_button:SetScript("OnClick", function(self)
jcallahan@259 444 Dialog:Spawn("WDP_CommentLink", { type_name = comment_subject.type_name, id = comment_subject.id, label = comment_subject.label })
jcallahan@259 445 end)
jcallahan@259 446
jcallahan@259 447 link_button:SetScript("OnEnter", function(self)
jcallahan@259 448 _G.GameTooltip:SetOwner(self, "ANCHOR_TOPLEFT")
jcallahan@259 449 _G.GameTooltip:SetText(LINK_COMMENT_TOOLTIP, nil, nil, nil, nil, 1)
jcallahan@259 450 _G.GameTooltip:Show()
jcallahan@259 451 end)
jcallahan@259 452
jcallahan@259 453 link_button:SetScript("OnLeave", _G.GameTooltip_Hide)
jcallahan@259 454
jcallahan@266 455 local edit_description = edit_container:CreateFontString(nil, "ARTWORK", "GameFontHighlight")
jcallahan@258 456 edit_description:SetHeight(36)
jcallahan@258 457 edit_description:SetPoint("BOTTOMLEFT", edit_container, "TOPLEFT", 5, 3)
jcallahan@258 458 edit_description:SetPoint("BOTTOMRIGHT", edit_container, "TOPRIGHT", 5, 3)
jcallahan@258 459 edit_description:SetFormattedText(EDIT_DESCRIPTION_FORMAT, _G.BreakUpLargeNumbers(EDIT_MAXCHARS))
jcallahan@258 460 edit_description:SetWordWrap(true)
jcallahan@258 461 edit_description:SetJustifyH("LEFT")
jcallahan@258 462
jcallahan@266 463 local edit_box = _G.CreateFrame("EditBox", "$parentEditBox", scroll_frame)
jcallahan@249 464 edit_box:SetMultiLine(true)
jcallahan@258 465 edit_box:SetMaxLetters(EDIT_MAXCHARS)
jcallahan@249 466 edit_box:EnableMouse(true)
jcallahan@249 467 edit_box:SetAutoFocus(false)
jcallahan@249 468 edit_box:SetFontObject("ChatFontNormal")
jcallahan@249 469 edit_box:SetSize(420, 220)
jcallahan@249 470 edit_box:HighlightText(0)
jcallahan@266 471 edit_box:SetFrameLevel(scroll_frame:GetFrameLevel() + 1)
jcallahan@249 472
jcallahan@249 473 edit_box:SetScript("OnCursorChanged", _G.ScrollingEdit_OnCursorChanged)
jcallahan@249 474 edit_box:SetScript("OnEscapePressed", _G.EditBox_ClearFocus)
jcallahan@249 475 edit_box:SetScript("OnShow", function(self)
jcallahan@249 476 _G.EditBox_SetFocus(self)
jcallahan@249 477
jcallahan@249 478 if self:GetNumLetters() > 0 then
jcallahan@249 479 panel.submitButton:Enable()
jcallahan@249 480 else
jcallahan@249 481 panel.submitButton:Disable()
jcallahan@249 482 end
jcallahan@249 483 end)
jcallahan@249 484
jcallahan@249 485 edit_box:SetScript("OnTextChanged", function(self, user_input)
jcallahan@249 486 local parent = self:GetParent()
jcallahan@249 487 local num_letters = self:GetNumLetters()
jcallahan@249 488 _G.ScrollingEdit_OnTextChanged(self, parent)
jcallahan@258 489 parent.charCount:SetFormattedText(_G.BreakUpLargeNumbers(self:GetMaxLetters() - num_letters))
jcallahan@249 490
jcallahan@249 491 if num_letters > 0 then
jcallahan@249 492 panel.submitButton:Enable();
jcallahan@258 493 else
jcallahan@258 494 panel.submitButton:Disable()
jcallahan@249 495 end
jcallahan@249 496 end)
jcallahan@249 497
jcallahan@249 498 edit_box:SetScript("OnUpdate", function(self, elapsed)
jcallahan@249 499 _G.ScrollingEdit_OnUpdate(self, elapsed, self:GetParent())
jcallahan@249 500 end)
jcallahan@249 501
jcallahan@258 502 scroll_frame.edit_box = edit_box
jcallahan@249 503 scroll_frame:SetScrollChild(edit_box)
jcallahan@249 504
jcallahan@249 505 local char_count = scroll_frame:CreateFontString(nil, "OVERLAY", "GameFontDisableLarge")
jcallahan@249 506 char_count:SetPoint("BOTTOMRIGHT", -15, 0)
jcallahan@249 507 scroll_frame.charCount = char_count
jcallahan@249 508
jcallahan@249 509 local scroll_bar = _G.CreateFrame("Slider", "$parentScrollBar", scroll_frame, "UIPanelScrollBarTemplate")
jcallahan@249 510 scroll_bar:SetPoint("TOPLEFT", scroll_frame, "TOPRIGHT", -13, -16)
jcallahan@249 511 scroll_bar:SetPoint("BOTTOMLEFT", scroll_frame, "BOTTOMRIGHT", -13, 16)
jcallahan@249 512 scroll_frame.ScrollBar = scroll_bar
jcallahan@249 513
jcallahan@249 514 _G.ScrollFrame_OnLoad(scroll_frame)
jcallahan@249 515
jcallahan@249 516 local submit = _G.CreateFrame("Button", "$parentSubmit", panel, "GameMenuButtonTemplate")
jcallahan@249 517 submit:SetSize(160, 30)
jcallahan@249 518 submit:SetPoint("BOTTOM", 0, 15)
jcallahan@249 519 submit:SetText(_G.SUBMIT)
jcallahan@249 520 submit:Enable(false)
jcallahan@249 521
jcallahan@249 522 submit:SetScript("OnClick", function()
jcallahan@263 523 local entry = DBEntry(URL_TYPE_MAP[comment_subject.type_name], comment_subject.id)
jcallahan@263 524
jcallahan@263 525 if not entry then
jcallahan@263 526 WDP:Print("An error has occurred; please report at http://wow.curseforge.com/addons/wowdb-profiler/create-ticket/")
jcallahan@263 527 return
jcallahan@263 528 end
jcallahan@263 529 entry.comments = entry.comments or {}
jcallahan@263 530 entry.comments[#entry.comments + 1] = edit_box:GetText()
jcallahan@263 531
jcallahan@249 532 edit_box:SetText("")
jcallahan@249 533 _G.HideUIPanel(panel)
jcallahan@249 534 end)
jcallahan@249 535 panel.submitButton = submit
jcallahan@270 536
jcallahan@272 537 -- local data_obj = LibStub("LibDataBroker-1.1"):NewDataObject(ADDON_NAME, {
jcallahan@272 538 -- type = "data source",
jcallahan@272 539 -- label = ADDON_NAME,
jcallahan@272 540 -- text = " ",
jcallahan@272 541 -- icon = [[Interface\CHATFRAME\UI-ChatIcon-Chat-Up]],
jcallahan@272 542 -- OnClick = function(self, button, down)
jcallahan@272 543 -- ShowPossibleSubjects(self)
jcallahan@272 544 -- end,
jcallahan@272 545 -- OnTooltipShow = function(self)
jcallahan@272 546 -- self:AddLine(_G.CLICK_TO_ENTER_COMMENT)
jcallahan@272 547 -- end,
jcallahan@272 548 -- })
jcallahan@272 549 --
jcallahan@272 550 -- private.data_obj = data_obj
jcallahan@272 551 -- LibStub("LibDBIcon-1.0"):Register(ADDON_NAME, data_obj, private.db.global.config.minimap_icon)
jcallahan@270 552
jcallahan@272 553 _G["BINDING_HEADER_WOWDB_PROFILER"] = "WoWDB Profiler"
jcallahan@249 554 end