Mercurial > wow > wowdb-profiler

annotate Comments.lua @ 276:a43a9444659e

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