libs/AceGUI-3.0/widgets/AceGUIContainer-BlizOptionsGroup.lua

   1 --[[-----------------------------------------------------------------------------
   2 BlizOptionsGroup Container
   3 Simple container widget for the integration of AceGUI into the Blizzard Interface Options
   4 -------------------------------------------------------------------------------]]
   5 local Type, Version = "BlizOptionsGroup", 21
   6 local AceGUI = LibStub and LibStub("AceGUI-3.0", true)
   7 if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then return end
   8
   9 -- Lua APIs
  10 local pairs = pairs
  11
  12 -- WoW APIs
  13 local CreateFrame = CreateFrame
  14
  15 --[[-----------------------------------------------------------------------------
  16 Scripts
  17 -------------------------------------------------------------------------------]]
  18
  19 local function OnShow(frame)
  20         frame.obj:Fire("OnShow")
  21 end
  22
  23 local function OnHide(frame)
  24         frame.obj:Fire("OnHide")
  25 end
  26
  27 --[[-----------------------------------------------------------------------------
  28 Support functions
  29 -------------------------------------------------------------------------------]]
  30
  31 local function okay(frame)
  32         frame.obj:Fire("okay")
  33 end
  34
  35 local function cancel(frame)
  36         frame.obj:Fire("cancel")
  37 end
  38
  39 local function default(frame)
  40         frame.obj:Fire("default")
  41 end
  42
  43 local function refresh(frame)
  44         frame.obj:Fire("refresh")
  45 end
  46
  47 --[[-----------------------------------------------------------------------------
  48 Methods
  49 -------------------------------------------------------------------------------]]
  50
  51 local methods = {
  52         ["OnAcquire"] = function(self)
  53                 self:SetName()
  54                 self:SetTitle()
  55         end,
  56
  57         -- ["OnRelease"] = nil,
  58
  59         ["OnWidthSet"] = function(self, width)
  60                 local content = self.content
  61                 local contentwidth = width - 63
  62                 if contentwidth < 0 then
  63                         contentwidth = 0
  64                 end
  65                 content:SetWidth(contentwidth)
  66                 content.width = contentwidth
  67         end,
  68
  69         ["OnHeightSet"] = function(self, height)
  70                 local content = self.content
  71                 local contentheight = height - 26
  72                 if contentheight < 0 then
  73                         contentheight = 0
  74                 end
  75                 content:SetHeight(contentheight)
  76                 content.height = contentheight
  77         end,
  78
  79         ["SetName"] = function(self, name, parent)
  80                 self.frame.name = name
  81                 self.frame.parent = parent
  82         end,
  83
  84         ["SetTitle"] = function(self, title)
  85                 local content = self.content
  86                 content:ClearAllPoints()
  87                 if not title or title == "" then
  88                         content:SetPoint("TOPLEFT", 10, -10)
  89                         self.label:SetText("")
  90                 else
  91                         content:SetPoint("TOPLEFT", 10, -40)
  92                         self.label:SetText(title)
  93                 end
  94                 content:SetPoint("BOTTOMRIGHT", -10, 10)
  95         end
  96 }
  97
  98 --[[-----------------------------------------------------------------------------
  99 Constructor
 100 -------------------------------------------------------------------------------]]
 101 local function Constructor()
 102         local frame = CreateFrame("Frame")
 103         frame:Hide()
 104
 105         -- support functions for the Blizzard Interface Options
 106         frame.okay = okay
 107         frame.cancel = cancel
 108         frame.default = default
 109         frame.refresh = refresh
 110
 111         frame:SetScript("OnHide", OnHide)
 112         frame:SetScript("OnShow", OnShow)
 113
 114         local label = frame:CreateFontString(nil, "OVERLAY", "GameFontNormalLarge")
 115         label:SetPoint("TOPLEFT", 10, -15)
 116         label:SetPoint("BOTTOMRIGHT", frame, "TOPRIGHT", 10, -45)
 117         label:SetJustifyH("LEFT")
 118         label:SetJustifyV("TOP")
 119
 120         --Container Support
 121         local content = CreateFrame("Frame", nil, frame)
 122         content:SetPoint("TOPLEFT", 10, -10)
 123         content:SetPoint("BOTTOMRIGHT", -10, 10)
 124
 125         local widget = {
 126                 label   = label,
 127                 frame   = frame,
 128                 content = content,
 129                 type    = Type
 130         }
 131         for method, func in pairs(methods) do
 132                 widget[method] = func
 133         end
 134
 135         return AceGUI:RegisterAsContainer(widget)
 136 end
 137
 138 AceGUI:RegisterWidgetType(Type, Constructor, Version)