tekPanelAuction.lua @@ -1,22 +1,14 @@ -local OptionHouse = LibStub("OptionHouse-1.1") - function tekErrMinimapButton() local frame = CreateFrame("Button", nil, Minimap) - --~ frame:SetPoint("CENTER", UIParent, "CENTER", 0, 0) frame:SetWidth(31) frame:SetHeight(31) frame:SetFrameStrata("LOW") - --~ frame:SetToplevel(1) frame:SetHighlightTexture("Interface\\Minimap\\UI-Minimap-ZoomButton-Highlight") frame:SetPoint("RIGHT", Minimap, "LEFT") local icon = frame:CreateTexture(nil, "BACKGROUND") icon:SetTexture("Interface\\Icons\\INV_Elemental_Primal_Fire") - --~ icon:SetWidth(20) - --~ icon:SetHeight(20) - --~ icon:SetPoint("TOPLEFT", 7, -5) - --~ icon:SetPoint("BOTTOMRIGHT", 4, 6) icon:SetPoint("TOPLEFT", 6, -6) icon:SetPoint("BOTTOMRIGHT", -6, 6) @@ -31,11 +23,10 @@ function tekErrMinimapButton() frame:SetScript("OnMouseDown", function(self) icon:SetTexCoord(.1,.9,.1,.9) end) frame:SetScript("OnMouseUp", function(self) icon:SetTexCoord(0,1,0,1) - OptionHouse:Open("tekErr", "Errors") + ShowUIPanel(tekErrPanel) end) frame:SetScript("OnEnter", function(self) ---~ GameTooltip_SetDefaultAnchor(GameTooltip,UIParent) GameTooltip:SetOwner(self, "BOTTOMRIGHT") GameTooltip:AddLine("tekErr") GameTooltip:AddLine("You have new script errors!",.8,.8,.8,1) MinimapButton.lua @@ -1,41 +1,26 @@ local linkstr = "|cffff4040[%s] |Htekerr:%s|h%s|h|r" -local lastName, editbox, butt +local lastName, butt local buttfunc = tekErrMinimapButton tekErrMinimapButton = nil -local function OnHyperlinkClick(frame, link, text) - local _, _, msg = string.find(link, "tekerr:(.+)") - editbox:SetText(text.. "\n".. msg) -end - - -local f = CreateFrame("ScrollingMessageFrame", nil, UIParent) +local panel = LibStub("tekPanel-Auction").new("tekErrPanel", "tekErr") +local f = CreateFrame("ScrollingMessageFrame", nil, panel) +f:SetPoint("TOPLEFT", 25, -225) +f:SetPoint("BOTTOMRIGHT", -15, 40) +f:SetFrameStrata("DIALOG") f:SetMaxLines(250) f:SetFontObject(GameFontHighlightSmall) f:SetJustifyH("LEFT") f:SetFading(false) -f:EnableMouseWheel(true) -f:SetScript("OnMouseWheel", function(frame, delta) - if delta > 0 then - if IsShiftKeyDown() then frame:ScrollToTop() - else frame:ScrollUp() end - elseif delta < 0 then - if IsShiftKeyDown() then frame:ScrollToBottom() - else frame:ScrollDown() end - end -end) f:SetScript("OnShow", function() if butt then butt:Hide() end end) -f:SetScript("OnHide", f.ScrollToBottom) -f:SetScript("OnHyperlinkClick", OnHyperlinkClick) f:SetScript("OnEvent", function(self, ...) self:AddMessage(string.join(", ", ...), 0.0, 1.0, 1.0) end) f:RegisterEvent("ADDON_ACTION_FORBIDDEN") --~ f:RegisterEvent("ADDON_ACTION_BLOCKED") -- We usually don't care about these, as they aren't fatal -f:Hide() TheLowDownRegisterFrame(f) TheLowDownRegisterFrame = nil @@ -48,16 +33,11 @@ seterrorhandler(function(msg) end) -local OptionHouse = LibStub("OptionHouse-1.1") -local _, title = GetAddOnInfo("tekErr") -local author, version = GetAddOnMetadata("tekErr", "Author"), GetAddOnMetadata("tekErr", "Version") -local oh = OptionHouse:RegisterAddOn("tekErr", title, author, version) -oh:RegisterCategory("Errors", function() - local frame = CreateFrame("Frame", nil, UIParent) - - editbox = CreateFrame("EditBox", nil, frame) - editbox:SetPoint("TOPLEFT") - editbox:SetPoint("BOTTOMRIGHT", frame, "TOPRIGHT", 0, -100) +panel:SetScript("OnShow", function(self) + local editbox = CreateFrame("EditBox", nil, panel) + editbox:SetPoint("TOPLEFT", 25, -75) + editbox:SetPoint("RIGHT", -15, 0) + editbox:SetPoint("BOTTOM", f, "TOP") editbox:SetFontObject(GameFontHighlightSmall) editbox:SetTextInsets(8,8,8,8) editbox:SetBackdrop{ @@ -71,17 +51,21 @@ oh:RegisterCategory("Errors", function() editbox:SetAutoFocus(false) editbox:SetScript("OnEscapePressed", function(self) self:ClearFocus() end) - f:SetParent(frame) - f:SetPoint("BOTTOMLEFT") - f:SetPoint("TOPRIGHT", editbox, "BOTTOMRIGHT") - f:SetFrameStrata("DIALOG") - f:Show() - - frame:SetScript("OnShow", function(frame) - f:SetFrameLevel(frame:GetFrameLevel()) - frame:SetScript("OnShow", nil) + f:EnableMouseWheel(true) + f:SetScript("OnHide", f.ScrollToBottom) + f:SetScript("OnHyperlinkClick", function(frame, link, text) + local _, _, msg = string.find(link, "tekerr:(.+)") + editbox:SetText(text.. "\n".. msg) + end) + f:SetScript("OnMouseWheel", function(frame, delta) + if delta > 0 then + if IsShiftKeyDown() then frame:ScrollToTop() + else frame:ScrollUp() end + elseif delta < 0 then + if IsShiftKeyDown() then frame:ScrollToBottom() + else frame:ScrollDown() end + end end) - return frame + self:SetScript("OnShow", nil) end) - tekErr.lua @@ -1,16 +1,14 @@ -## Interface: 20300 +## Interface: 20400 ## Title: tekErr -## Notes: Dumps error popup dialog text to an OptionHouse frame +## Notes: Lua error manager ## Author: Tekkub Stoutwrithe ## Version: Alpha -## X-Website: http://code.google.com/p/tekkub-wow/ +## X-Website: http://www.tekkub.net/ ## X-Email: tekkub-wow@googlegroups.com -## X-Category: Chat/Communication +## X-Category: Development Tools -## OptionalDeps: OptionHouse - -OptionHouse.lua +tekPanelAuction.lua TheLowDown.lua MinimapButton.lua tekErr.lua tekErr.toc OptionHouse.lua 43c0084b97c71fba35a52c9e4f5a5bccad8d6894 Tekkub tekkub@gmail.com http://github.com/tekkub/tekerr/commit/1ba1cff4e303499617376b54085876c4d2ba1117 1ba1cff4e303499617376b54085876c4d2ba1117 2008-07-31T19:12:28-07:00 2008-07-31T19:12:28-07:00 Redesign for wrath, no more OH 2d2a75aafc1d81ac35f24b616d21297ba4dcd98f Tekkub tekkub@gmail.com