------------------------------
--      Are you local?      --
------------------------------
 
local db, moving
 
 
--------------------------
--      Main Frame      --
--------------------------
 
local frame = CreateFrame("Button", "ControlFreakFrame", UIParent, "SecureActionButtonTemplate")
frame:SetHeight(24)
 
frame:EnableMouse(true)
frame:RegisterForClicks("AnyUp")
frame:SetMovable(true)
frame:RegisterForDrag("LeftButton")
frame:SetClampedToScreen(true)
 
frame:SetBackdrop({
  bgFile = "Interface\\Tooltips\\UI-Tooltip-Background",
  edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border",
  edgeSize = 16,
  insets = {left = 5, right = 5, top = 5, bottom = 5},
  tile = true, tileSize = 16,
})
frame:SetBackdropColor(0.09, 0.09, 0.19, 0.5)
frame:SetBackdropBorderColor(0.5, 0.5, 0.5, 0.5)
 
frame:SetScript("OnDragStart", function(frame)
  if InCombatLockdown() or db.locked then return end
  frame:StartMoving()
end)
 
frame:SetScript("OnDragStop", function(frame)
  frame:StopMovingOrSizing()
  db.x, db.y = frame:GetCenter()
end)
 
 
function frame:SetDB(newdb)
  db = newdb
  self:Position()
end
 
 
function frame:Position()
  frame:ClearAllPoints()
  frame:SetScale(db.scale)
  frame:SetPoint("CENTER", UIParent, db.x and "BOTTOMLEFT" or "CENTER", db.x or 0, db.y or -100)
end
 
 
--------------------
--      Text      --
--------------------
 
local text = frame:CreateFontString(nil, nil, "GameFontNormalSmall")
text:SetPoint("CENTER")
 
 
function frame:SetText(...)
  text:SetText(...)
end
 
 
function frame:Resize()
  frame:SetWidth(text:GetStringWidth() + 8)
end
 
 
-----------------------
--      Tooltip      --
-----------------------
 
local tiptext
function frame:SetTooltip(tip)
  tiptext = tip
end
 
 
frame:SetScript("OnLeave", function() GameTooltip:Hide() end)
frame:SetScript("OnEnter", function(self)
  if not ControlFreak.db.char.showtooltip or not tiptext then return end
  local sx, sy, x, y = GetScreenHeight(), GetScreenWidth(), self:GetCenter()
  local x1, y1, y2 = "RIGHT", "TOP", "BOTTOM"
  if x < (sx/2) then x1 = "LEFT" end
  if y < (sy/2) then y1, y2 = y2, y1 end
   GameTooltip:SetOwner(self, "ANCHOR_NONE")
  GameTooltip:SetPoint(y1..x1, self, y2..x1)
  GameTooltip:SetText(tiptext)
end)