Mercurial > wow > wowdb-profiler

comparison Comments.lua @ 264:58b090074eda

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Allow moving the comment frame via the WoWDB logo, and disallow clicking through the frame to the 3D world.
author James D. Callahan III <jcallahan@curse.com>
date Tue, 19 Mar 2013 23:53:38 -0500
parents 03f1fbe64104
children 726e8a94391d
comparison
equal deleted inserted replaced
263:03f1fbe64104 264:58b090074eda
75 panel:SetPoint("CENTER", _G.UIParent, "CENTER") 75 panel:SetPoint("CENTER", _G.UIParent, "CENTER")
76 panel:SetFrameStrata("DIALOG") 76 panel:SetFrameStrata("DIALOG")
77 panel.Bg:SetTexture([[Interface\FrameGeneral\UI-Background-Rock]], true, true) 77 panel.Bg:SetTexture([[Interface\FrameGeneral\UI-Background-Rock]], true, true)
78 panel.Bg:SetHorizTile(true) 78 panel.Bg:SetHorizTile(true)
79 panel.Bg:SetVertTile(true) 79 panel.Bg:SetVertTile(true)
80 panel:EnableMouse(true)
81 panel:SetMovable(true)
80 panel:Hide() 82 panel:Hide()
81 comment_frame = panel 83 comment_frame = panel
82 84
83 table.insert(_G.UISpecialFrames, panel:GetName()) 85 table.insert(_G.UISpecialFrames, panel:GetName())
84 86
90 header:SetSize(128, 64) 92 header:SetSize(128, 64)
91 header:SetPoint("CENTER", panel, "TOP", 0, -8) 93 header:SetPoint("CENTER", panel, "TOP", 0, -8)
92 header.Bg:SetTexture([[Interface\FrameGeneral\UI-Background-Marble]]) 94 header.Bg:SetTexture([[Interface\FrameGeneral\UI-Background-Marble]])
93 header.Bg:SetHorizTile(true) 95 header.Bg:SetHorizTile(true)
94 header.Bg:SetVertTile(true) 96 header.Bg:SetVertTile(true)
97 header:SetMovable(true)
98
99 header:SetScript("OnMouseDown", function()
100 panel:StartMoving()
101 end)
102
103 header:SetScript("OnMouseUp", function()
104 panel:StopMovingOrSizing()
105 end)
106
95 panel.header = header 107 panel.header = header
96 108
97 local logo = header:CreateTexture(nil, "ARTWORK") 109 local logo = header:CreateTexture(nil, "ARTWORK")
98 logo:SetTexture([[Interface\AddOns\WoWDBProfiler\wowdb-logo]]) 110 logo:SetTexture([[Interface\AddOns\WoWDBProfiler\wowdb-logo]])
99 logo:SetPoint("TOPLEFT", header, 10, -10) 111 logo:SetPoint("TOPLEFT", header, 10, -10)