Mercurial > wow > wowdb-profiler

changeset 249:3fe3e55c327e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added command and GUI for prototype of an in-game comment-submission system.
author James D. Callahan III <jcallahan@curse.com>
date Thu, 14 Mar 2013 16:36:36 -0500
parents 4cb26edfd905
children cba604389d92
files .pkgmeta Comments.lua Constants.lua Main.lua WoWDBProfiler.toc wowdb-logo.tga
diffstat 6 files changed, 214 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/.pkgmeta	Tue Mar 12 08:44:32 2013 -0500
+++ b/.pkgmeta	Thu Mar 14 16:36:36 2013 -0500
@@ -9,6 +9,8 @@
         tag: latest
     Libs/AceAddon-3.0:
         url: svn://svn.wowace.com/wow/ace3/mainline/trunk/AceAddon-3.0
+    Libs/AceConsole-3.0:
+        url: svn://svn.wowace.com/wow/ace3/mainline/trunk/AceConsole-3.0
     Libs/AceEvent-3.0:
         url: svn://svn.wowace.com/wow/ace3/mainline/trunk/AceEvent-3.0
     Libs/AceTimer-3.0:
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Comments.lua	Thu Mar 14 16:36:36 2013 -0500
@@ -0,0 +1,206 @@
+-- LUA API ------------------------------------------------------------
+
+local _G = getfenv(0)
+
+local table = _G.table
+
+-- ADDON NAMESPACE ----------------------------------------------------
+
+local ADDON_NAME, private = ...
+
+local LibStub = _G.LibStub
+local WDP = LibStub("AceAddon-3.0"):GetAddon(ADDON_NAME)
+
+local ParseGUID = private.ParseGUID
+
+-- HELPERS ------------------------------------------------------------
+
+local comment_frame
+do
+    local panel = _G.CreateFrame("Frame", "WDP_CommentFrame", _G.UIParent, "TranslucentFrameTemplate")
+    panel:SetSize(480, 454)
+    panel:SetPoint("CENTER", _G.UIParent, "CENTER")
+    panel:SetFrameStrata("DIALOG")
+    panel.Bg:SetTexture([[Interface\FrameGeneral\UI-Background-Rock]], true, true)
+    panel.Bg:SetHorizTile(true)
+    panel.Bg:SetVertTile(true)
+    panel:Hide()
+    comment_frame = panel
+
+    table.insert(_G.UISpecialFrames, panel:GetName())
+
+    local streaks = panel:CreateTexture("$parentTopTileStreaks", "BORDER", "_UI-Frame-TopTileStreaks", -6)
+    streaks:SetPoint("TOPLEFT", 13, -13)
+    streaks:SetPoint("BOTTOMRIGHT", panel, "TOPRIGHT", -13, -35)
+
+    local header = _G.CreateFrame("Frame", "$parentHeader", panel, "TranslucentFrameTemplate")
+    --    header:SetSize(180, 45)
+    header:SetSize(128, 64)
+    header:SetPoint("CENTER", panel, "TOP", 0, -8)
+    header.Bg:SetTexture([[Interface\FrameGeneral\UI-Background-Marble]])
+    header.Bg:SetHorizTile(true)
+    header.Bg:SetVertTile(true)
+    panel.header = header
+
+    local logo = header:CreateTexture(nil, "ARTWORK")
+    logo:SetTexture([[Interface\AddOns\WoWDBProfiler\wowdb-logo]])
+    logo:SetPoint("TOPLEFT", header, 10, -10)
+    logo:SetPoint("BOTTOMRIGHT", header, -10, 10)
+
+    --[[
+        local header_label = header:CreateFontString(nil, "ARTWORK", "GameFontNormal")
+        header_label:SetPoint("CENTER", 0, 0)
+        header_label:SetText(ADDON_NAME)
+    ]]
+
+    local close = _G.CreateFrame("Button", nil, panel, "UIPanelCloseButton")
+    close:SetPoint("TOPRIGHT", panel, "TOPRIGHT", -7, -7)
+
+    local scroll_frame = _G.CreateFrame("ScrollFrame", "$parentScrollFrame", panel)
+    scroll_frame:SetSize(435, 150)
+    scroll_frame:SetPoint("BOTTOM", 0, 70)
+
+    scroll_frame:SetScript("OnScrollRangeChanged", function(self, x, y)
+        _G.ScrollFrame_OnScrollRangeChanged(self, x, y)
+    end)
+
+    scroll_frame:SetScript("OnVerticalScroll", function(self, offset)
+        local scrollbar = self.ScrollBar
+        scrollbar:SetValue(offset)
+
+        local min, max = scrollbar:GetMinMaxValues()
+
+        if offset == 0 then
+            scrollbar.ScrollUpButton:Disable()
+        else
+            scrollbar.ScrollUpButton:Enable()
+        end
+
+        if (scrollbar:GetValue() - max) == 0 then
+            scrollbar.ScrollDownButton:Disable()
+        else
+            scrollbar.ScrollDownButton:Enable()
+        end
+    end)
+
+    scroll_frame:SetScript("OnMouseWheel", function(self, delta)
+        _G.ScrollFrameTemplate_OnMouseWheel(self, delta)
+    end)
+
+    local edit_container = _G.CreateFrame("Frame", nil, scroll_frame)
+    edit_container:SetPoint("TOPLEFT", scroll_frame, -7, 7)
+    edit_container:SetPoint("BOTTOMRIGHT", scroll_frame, 7, -7)
+    edit_container:SetFrameLevel(scroll_frame:GetFrameLevel() - 1)
+    edit_container:SetBackdrop({
+        bgFile = [[Interface\Tooltips\UI-Tooltip-Background]],
+        edgeFile = [[Interface\Tooltips\UI-Tooltip-Border]],
+        tile = true,
+        tileSize = 16,
+        edgeSize = 16,
+        insets = {
+            left = 5,
+            right = 5,
+            top = 5,
+            bottom = 5
+        }
+    })
+
+    edit_container:SetBackdropBorderColor(_G.TOOLTIP_DEFAULT_COLOR.r, _G.TOOLTIP_DEFAULT_COLOR.g, _G.TOOLTIP_DEFAULT_COLOR.b)
+    edit_container:SetBackdropColor(0, 0, 0)
+
+    local edit_box = _G.CreateFrame("EditBox", nil, scroll_frame)
+    edit_box:SetMultiLine(true)
+    edit_box:SetMaxLetters(3000)
+    edit_box:EnableMouse(true)
+    edit_box:SetAutoFocus(false)
+    edit_box:SetFontObject("ChatFontNormal")
+    edit_box:SetSize(420, 220)
+    edit_box:HighlightText(0)
+
+    edit_box:SetScript("OnCursorChanged", _G.ScrollingEdit_OnCursorChanged)
+    edit_box:SetScript("OnEscapePressed", _G.EditBox_ClearFocus)
+    edit_box:SetScript("OnShow", function(self)
+        _G.EditBox_SetFocus(self)
+
+        if self:GetNumLetters() > 0 then
+            panel.submitButton:Enable()
+        else
+            panel.submitButton:Disable()
+        end
+    end)
+
+    edit_box:SetScript("OnTextChanged", function(self, user_input)
+        local parent = self:GetParent()
+        local num_letters = self:GetNumLetters()
+        _G.ScrollingEdit_OnTextChanged(self, parent)
+        parent.charCount:SetText(self:GetMaxLetters() - num_letters)
+
+        if num_letters > 0 then
+            panel.submitButton:Enable();
+        end
+    end)
+
+    edit_box:SetScript("OnUpdate", function(self, elapsed)
+        _G.ScrollingEdit_OnUpdate(self, elapsed, self:GetParent())
+    end)
+
+    scroll_frame:SetScrollChild(edit_box)
+
+    local char_count = scroll_frame:CreateFontString(nil, "OVERLAY", "GameFontDisableLarge")
+    char_count:SetPoint("BOTTOMRIGHT", -15, 0)
+    scroll_frame.charCount = char_count
+
+    local scroll_bar = _G.CreateFrame("Slider", "$parentScrollBar", scroll_frame, "UIPanelScrollBarTemplate")
+    scroll_bar:SetPoint("TOPLEFT", scroll_frame, "TOPRIGHT", -13, -16)
+    scroll_bar:SetPoint("BOTTOMLEFT", scroll_frame, "BOTTOMRIGHT", -13, 16)
+    scroll_frame.ScrollBar = scroll_bar
+
+    _G.ScrollFrame_OnLoad(scroll_frame)
+
+    local submit = _G.CreateFrame("Button", "$parentSubmit", panel, "GameMenuButtonTemplate")
+    submit:SetSize(160, 30)
+    submit:SetPoint("BOTTOM", 0, 15)
+    submit:SetText(_G.SUBMIT)
+    submit:Enable(false)
+
+    submit:SetScript("OnClick", function()
+    -- TODO: Make this assign the comment to the correct SavedVariables entry.
+        edit_box:SetText("")
+        _G.HideUIPanel(panel)
+    end)
+    panel.submitButton = submit
+end
+
+local function CreateUnitComment(unit_type, unit_idnum)
+    comment_frame:Show()
+end
+
+local function CreateCursorComment()
+    -- TODO: Implement!
+end
+
+-- METHODS ------------------------------------------------------------
+
+function private.ProcessCommentCommand(arg)
+    if not arg or arg == "" then
+        WDP:Print("You must supply a valid comment type.")
+        return
+    end
+
+    if arg == "cursor" then
+        WDP:Print("Not yet implemented.")
+        return
+    end
+
+    if not _G.UnitExists(arg) then
+        WDP:Printf("Unit '%s' does not exist.", arg)
+        return
+    end
+    local unit_type, unit_idnum = ParseGUID(_G.UnitGUID(arg))
+
+    if not unit_idnum then
+        WDP:Printf("Unable to determine unit from '%s'", arg)
+        return
+    end
+    CreateUnitComment(unit_type, unit_idnum)
+end
--- a/Constants.lua	Tue Mar 12 08:44:32 2013 -0500
+++ b/Constants.lua	Thu Mar 14 16:36:36 2013 -0500
@@ -11,8 +11,6 @@
 -----------------------------------------------------------------------
 local ADDON_NAME, private = ...
 
-local LibStub = _G.LibStub
-
 
 -----------------------------------------------------------------------
 -- Constants.
--- a/Main.lua	Tue Mar 12 08:44:32 2013 -0500
+++ b/Main.lua	Thu Mar 14 16:36:36 2013 -0500
@@ -17,7 +17,7 @@
 local ADDON_NAME, private = ...
 
 local LibStub = _G.LibStub
-local WDP = LibStub("AceAddon-3.0"):NewAddon(ADDON_NAME, "AceEvent-3.0", "AceTimer-3.0")
+local WDP = LibStub("AceAddon-3.0"):NewAddon(ADDON_NAME, "AceConsole-3.0", "AceEvent-3.0", "AceTimer-3.0")
 
 local deformat = LibStub("LibDeformat-3.0")
 local LPJ = LibStub("LibPetJournal-2.0")
@@ -400,6 +400,8 @@
         end
         return unit_type
     end
+
+    private.ParseGUID = ParseGUID
 end -- do-block
 
 
@@ -720,6 +722,8 @@
     end
     raw_db.build_num = build_num
     raw_db.version = DB_VERSION
+
+    self:RegisterChatCommand("comment", private.ProcessCommentCommand)
 end
 
 
--- a/WoWDBProfiler.toc	Tue Mar 12 08:44:32 2013 -0500
+++ b/WoWDBProfiler.toc	Thu Mar 14 16:36:36 2013 -0500
@@ -10,3 +10,4 @@
 
 Constants.lua
 Main.lua
+Comments.lua
Binary file wowdb-logo.tga has changed