libs/AceGUI-3.0-SharedMediaWidgets/AceGUI-3.0-SharedMediaWidgets/prototypes.lua

   1 -- Widget created by Yssaril
   2 --[===[@debug@
   3 local DataVersion = 9001 -- dev version always overwrites everything else :)
   4 --@end-debug@]===]
   5 --@non-debug@
   6 local DataVersion = 47
   7 --@end-non-debug@
   8 local AGSMW = LibStub:NewLibrary("AceGUISharedMediaWidgets-1.0", DataVersion)
   9
  10 if not AGSMW then
  11   return        -- already loaded and no upgrade necessary
  12 end
  13
  14 LoadAddOn("LibSharedMedia-3.0")
  15 local AceGUI = LibStub("AceGUI-3.0")
  16 local Media = LibStub("LibSharedMedia-3.0")
  17
  18 AGSMW = AGSMW or {}
  19
  20 AceGUIWidgetLSMlists = {
  21         ['font'] = Media:HashTable("font"),
  22         ['sound'] = Media:HashTable("sound"),
  23         ['statusbar'] = Media:HashTable("statusbar"),
  24         ['border'] = Media:HashTable("border"),
  25         ['background'] = Media:HashTable("background"),
  26 }
  27
  28 do
  29         local function disable(frame)
  30                 frame.label:SetTextColor(.5,.5,.5)
  31                 frame.text:SetTextColor(.5,.5,.5)
  32                 frame.dropButton:Disable()
  33                 if frame.displayButtonFont then
  34                         frame.displayButtonFont:SetTextColor(.5,.5,.5)
  35                         frame.displayButton:Disable()
  36                 end
  37         end
  38
  39         local function enable(frame)
  40                 frame.label:SetTextColor(1,.82,0)
  41                 frame.text:SetTextColor(1,1,1)
  42                 frame.dropButton:Enable()
  43                 if frame.displayButtonFont then
  44                         frame.displayButtonFont:SetTextColor(1,1,1)
  45                         frame.displayButton:Enable()
  46                 end
  47         end
  48
  49         local displayButtonBackdrop = {
  50                 edgeFile = "Interface/Tooltips/UI-Tooltip-Border",
  51                 tile = true, tileSize = 16, edgeSize = 16,
  52                 insets = { left = 4, right = 4, top = 4, bottom = 4 },
  53         }
  54
  55         -- create or retrieve BaseFrame
  56         function AGSMW:GetBaseFrame()
  57                 local frame = CreateFrame("Frame", nil, UIParent)
  58                 frame:SetHeight(44)
  59                 frame:SetWidth(200)
  60                 frame:SetPoint("CENTER", UIParent, "CENTER")
  61
  62                 local label = frame:CreateFontString(nil,"OVERLAY","GameFontNormalSmall")
  63                         label:SetPoint("TOPLEFT",frame,"TOPLEFT",0,0)
  64                         label:SetPoint("TOPRIGHT",frame,"TOPRIGHT",0,0)
  65                         label:SetJustifyH("LEFT")
  66                         label:SetHeight(18)
  67                         label:SetText("")
  68                 frame.label = label
  69
  70                 local DLeft = frame:CreateTexture(nil, "ARTWORK")
  71                         DLeft:SetWidth(25)
  72                         DLeft:SetHeight(64)
  73                         DLeft:SetPoint("BOTTOMLEFT", frame, "BOTTOMLEFT", -17, -21)
  74                         DLeft:SetTexture([[Interface\Glues\CharacterCreate\CharacterCreate-LabelFrame]])
  75                         DLeft:SetTexCoord(0, 0.1953125, 0, 1)
  76                 frame.DLeft = DLeft
  77
  78                 local DRight = frame:CreateTexture(nil, "ARTWORK")
  79                         DRight:SetWidth(25)
  80                         DRight:SetHeight(64)
  81                         DRight:SetPoint("TOP", DLeft, "TOP")
  82                         DRight:SetPoint("RIGHT", frame, "RIGHT", 17, 0)
  83                         DRight:SetTexture([[Interface\Glues\CharacterCreate\CharacterCreate-LabelFrame]])
  84                         DRight:SetTexCoord(0.8046875, 1, 0, 1)
  85                 frame.DRight = DRight
  86
  87                 local DMiddle = frame:CreateTexture(nil, "ARTWORK")
  88                         DMiddle:SetHeight(64)
  89                         DMiddle:SetPoint("TOP", DLeft, "TOP")
  90                         DMiddle:SetPoint("LEFT", DLeft, "RIGHT")
  91                         DMiddle:SetPoint("RIGHT", DRight, "LEFT")
  92                         DMiddle:SetTexture([[Interface\Glues\CharacterCreate\CharacterCreate-LabelFrame]])
  93                         DMiddle:SetTexCoord(0.1953125, 0.8046875, 0, 1)
  94                 frame.DMiddle = DMiddle
  95
  96                 local text = frame:CreateFontString(nil,"OVERLAY","GameFontHighlightSmall")
  97                         text:SetPoint("RIGHT",DRight,"RIGHT",-43,1)
  98                         text:SetPoint("LEFT",DLeft,"LEFT",26,1)
  99                         text:SetJustifyH("RIGHT")
 100                         text:SetHeight(18)
 101                         text:SetText("")
 102                 frame.text = text
 103
 104                 local dropButton = CreateFrame("Button", nil, frame)
 105                         dropButton:SetWidth(24)
 106                         dropButton:SetHeight(24)
 107                         dropButton:SetPoint("TOPRIGHT", DRight, "TOPRIGHT", -16, -18)
 108                         dropButton:SetNormalTexture([[Interface\ChatFrame\UI-ChatIcon-ScrollDown-Up]])
 109                         dropButton:SetPushedTexture([[Interface\ChatFrame\UI-ChatIcon-ScrollDown-Down]])
 110                         dropButton:SetDisabledTexture([[Interface\ChatFrame\UI-ChatIcon-ScrollDown-Disabled]])
 111                         dropButton:SetHighlightTexture([[Interface\Buttons\UI-Common-MouseHilight]], "ADD")
 112                 frame.dropButton = dropButton
 113
 114                 frame.Disable = disable
 115                 frame.Enable = enable
 116                 return frame
 117         end
 118
 119         function AGSMW:GetBaseFrameWithWindow()
 120                 local frame = self:GetBaseFrame()
 121
 122                 local displayButton = CreateFrame("Button", nil, frame)
 123                         displayButton:SetHeight(42)
 124                         displayButton:SetWidth(42)
 125                         displayButton:SetPoint("TOPLEFT", frame, "TOPLEFT", 1, -2)
 126                         displayButton:SetBackdrop(displayButtonBackdrop)
 127                         displayButton:SetBackdropBorderColor(.5, .5, .5)
 128                 frame.displayButton = displayButton
 129
 130                 frame.label:SetPoint("TOPLEFT",displayButton,"TOPRIGHT",1,2)
 131
 132                 frame.DLeft:SetPoint("BOTTOMLEFT", displayButton, "BOTTOMRIGHT", -17, -20)
 133
 134                 return frame
 135         end
 136
 137 end
 138
 139 do
 140
 141         local sliderBackdrop = {
 142                 ["bgFile"] = [[Interface\Buttons\UI-SliderBar-Background]],
 143                 ["edgeFile"] = [[Interface\Buttons\UI-SliderBar-Border]],
 144                 ["tile"] = true,
 145                 ["edgeSize"] = 8,
 146                 ["tileSize"] = 8,
 147                 ["insets"] = {
 148                         ["left"] = 3,
 149                         ["right"] = 3,
 150                         ["top"] = 3,
 151                         ["bottom"] = 3,
 152                 },
 153         }
 154         local frameBackdrop = {
 155                 bgFile=[[Interface\DialogFrame\UI-DialogBox-Background-Dark]],
 156                 edgeFile = [[Interface\DialogFrame\UI-DialogBox-Border]],
 157                 tile = true, tileSize = 32, edgeSize = 32,
 158                 insets = { left = 11, right = 12, top = 12, bottom = 9 },
 159         }
 160
 161         local function OnMouseWheel(self, dir)
 162                 self.slider:SetValue(self.slider:GetValue()+(15*dir*-1))
 163         end
 164
 165         local function AddFrame(self, frame)
 166                 frame:SetParent(self.contentframe)
 167                 frame:SetFrameStrata(self:GetFrameStrata())
 168                 frame:SetFrameLevel(self:GetFrameLevel() + 100)
 169
 170                 if next(self.contentRepo) then
 171                         frame:SetPoint("TOPLEFT", self.contentRepo[#self.contentRepo], "BOTTOMLEFT", 0, 0)
 172                         frame:SetPoint("RIGHT", self.contentframe, "RIGHT", 0, 0)
 173                         self.contentframe:SetHeight(self.contentframe:GetHeight() + frame:GetHeight())
 174                         self.contentRepo[#self.contentRepo+1] = frame
 175                 else
 176                         self.contentframe:SetHeight(frame:GetHeight())
 177                         frame:SetPoint("TOPLEFT", self.contentframe, "TOPLEFT", 0, 0)
 178                         frame:SetPoint("RIGHT", self.contentframe, "RIGHT", 0, 0)
 179                         self.contentRepo[1] = frame
 180                 end
 181
 182                 if self.contentframe:GetHeight() > UIParent:GetHeight()*2/5 - 20 then
 183                         self.scrollframe:SetPoint("BOTTOMRIGHT", self, "BOTTOMRIGHT", -28, 12)
 184                         self:SetHeight(UIParent:GetHeight()*2/5)
 185                         self.slider:Show()
 186                         self:SetScript("OnMouseWheel", OnMouseWheel)
 187                         self.scrollframe:UpdateScrollChildRect()
 188                         self.slider:SetMinMaxValues(0, self.contentframe:GetHeight()-self.scrollframe:GetHeight())
 189                 else
 190                         self.scrollframe:SetPoint("BOTTOMRIGHT", self, "BOTTOMRIGHT", -14, 12)
 191                         self:SetHeight(self.contentframe:GetHeight()+25)
 192                         self.slider:Hide()
 193                         self:SetScript("OnMouseWheel", nil)
 194                         self.scrollframe:UpdateScrollChildRect()
 195                         self.slider:SetMinMaxValues(0, 0)
 196                 end
 197                 self.contentframe:SetWidth(self.scrollframe:GetWidth())
 198         end
 199
 200         local function ClearFrames(self)
 201                 for i, frame in ipairs(self.contentRepo) do
 202                         frame:ReturnSelf()
 203                         self.contentRepo[i] = nil
 204                 end
 205         end
 206
 207         local function slider_OnValueChanged(self, value)
 208                 self.frame.scrollframe:SetVerticalScroll(value)
 209         end
 210
 211         local DropDownCache = {}
 212         function AGSMW:GetDropDownFrame()
 213                 local frame
 214                 if next(DropDownCache) then
 215                         frame = table.remove(DropDownCache)
 216                 else
 217                         frame = CreateFrame("Frame", nil, UIParent)
 218                                 frame:SetClampedToScreen(true)
 219                                 frame:SetWidth(188)
 220                                 frame:SetBackdrop(frameBackdrop)
 221                                 frame:SetFrameStrata("TOOLTIP")
 222                                 frame:EnableMouseWheel(true)
 223
 224                         local contentframe = CreateFrame("Frame", nil, frame)
 225                                 contentframe:SetWidth(160)
 226                                 contentframe:SetHeight(0)
 227                         frame.contentframe = contentframe
 228
 229                         local scrollframe = CreateFrame("ScrollFrame", nil, frame)
 230                                 scrollframe:SetWidth(160)
 231                                 scrollframe:SetPoint("TOPLEFT", frame, "TOPLEFT", 14, -13)
 232                                 scrollframe:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -14, 12)
 233                                 scrollframe:SetScrollChild(contentframe)
 234                         frame.scrollframe = scrollframe
 235
 236                         contentframe:SetPoint("TOPLEFT", scrollframe)
 237                         contentframe:SetPoint("TOPRIGHT", scrollframe)
 238
 239                         local bgTex = frame:CreateTexture(nil, "ARTWORK")
 240                                 bgTex:SetAllPoints(scrollframe)
 241                         frame.bgTex = bgTex
 242
 243                         frame.AddFrame = AddFrame
 244                         frame.ClearFrames = ClearFrames
 245                         frame.contentRepo = {} -- store all our frames in here so we can get rid of them later
 246
 247                         local slider = CreateFrame("Slider", nil, scrollframe)
 248                                 slider:SetOrientation("VERTICAL")
 249                                 slider:SetPoint("TOPRIGHT", frame, "TOPRIGHT", -14, -10)
 250                                 slider:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -14, 10)
 251                                 slider:SetBackdrop(sliderBackdrop)
 252                                 slider:SetThumbTexture([[Interface\Buttons\UI-SliderBar-Button-Vertical]])
 253                                 slider:SetMinMaxValues(0, 1)
 254                                 --slider:SetValueStep(1)
 255                                 slider:SetWidth(12)
 256                                 slider.frame = frame
 257                                 slider:SetScript("OnValueChanged", slider_OnValueChanged)
 258                         frame.slider = slider
 259                 end
 260                 frame:SetHeight(UIParent:GetHeight()*2/5)
 261                 frame.slider:SetValue(0)
 262                 frame:Show()
 263                 return frame
 264         end
 265
 266         function AGSMW:ReturnDropDownFrame(frame)
 267                 ClearFrames(frame)
 268                 frame:ClearAllPoints()
 269                 frame:Hide()
 270                 frame:SetBackdrop(frameBackdrop)
 271                 frame.bgTex:SetTexture(nil)
 272                 table.insert(DropDownCache, frame)
 273                 return nil
 274         end
 275 end