--[[-----------------------------------------------------------------------------
Slider Widget
Graphical Slider, like, for Range values.
-------------------------------------------------------------------------------]]
local Type, Version = 'Slider', 20
local AceGUI = LibStub and LibStub('AceGUI-3.0', true)
if not AceGUI or (AceGUI:GetWidgetVersion(Type) or 0) >= Version then
  return
end

-- Lua APIs
local min, max, floor = math.min, math.max, math.floor
local tonumber, pairs = tonumber, pairs

-- WoW APIs
local PlaySound = PlaySound
local CreateFrame, UIParent = CreateFrame, UIParent

-- Global vars/functions that we don't upvalue since they might get hooked, or upgraded
-- List them here for Mikk's FindGlobals script
-- GLOBALS: GameFontHighlightSmall

--[[-----------------------------------------------------------------------------
Support functions
-------------------------------------------------------------------------------]]
local function UpdateText(self)
  local value = self.value or 0
  if self.ispercent then
    self.editbox:SetText(('%s%%'):format(floor(value * 1000 + 0.5) / 10))
  else
    self.editbox:SetText(floor(value * 100 + 0.5) / 100)
  end
end

local function UpdateLabels(self)
  local min, max = (self.min or 0), (self.max or 100)
  if self.ispercent then
    self.lowtext:SetFormattedText('%s%%', (min * 100))
    self.hightext:SetFormattedText('%s%%', (max * 100))
  else
    self.lowtext:SetText(min)
    self.hightext:SetText(max)
  end
end

--[[-----------------------------------------------------------------------------
Scripts
-------------------------------------------------------------------------------]]
local function Control_OnEnter(frame)
  frame.obj:Fire('OnEnter')
end

local function Control_OnLeave(frame)
  frame.obj:Fire('OnLeave')
end

local function Frame_OnMouseDown(frame)
  frame.obj.slider:EnableMouseWheel(true)
  AceGUI:ClearFocus()
end

local function Slider_OnValueChanged(frame)
  local self = frame.obj
  if not frame.setup then
    local newvalue = frame:GetValue()
    if newvalue ~= self.value and not self.disabled then
      self.value = newvalue
      self:Fire('OnValueChanged', newvalue)
    end
    if self.value then
      UpdateText(self)
    end
  end
end

local function Slider_OnMouseUp(frame)
  local self = frame.obj
  self:Fire('OnMouseUp', self.value)
end

local function Slider_OnMouseWheel(frame, v)
  local self = frame.obj
  if not self.disabled then
    local value = self.value
    if v > 0 then
      value = min(value + (self.step or 1), self.max)
    else
      value = max(value - (self.step or 1), self.min)
    end
    self.slider:SetValue(value)
  end
end

local function EditBox_OnEscapePressed(frame)
  frame:ClearFocus()
end

local function EditBox_OnEnterPressed(frame)
  local self = frame.obj
  local value = frame:GetText()
  if self.ispercent then
    value = value:gsub('%%', '')
    value = tonumber(value) / 100
  else
    value = tonumber(value)
  end

  if value then
    PlaySound('igMainMenuOptionCheckBoxOn')
    self.slider:SetValue(value)
    self:Fire('OnMouseUp', value)
  end
end

local function EditBox_OnEnter(frame)
  frame:SetBackdropBorderColor(0.5, 0.5, 0.5, 1)
end

local function EditBox_OnLeave(frame)
  frame:SetBackdropBorderColor(0.3, 0.3, 0.3, 0.8)
end

--[[-----------------------------------------------------------------------------
Methods
-------------------------------------------------------------------------------]]
local methods = {
  ['OnAcquire'] = function(self)
    self:SetWidth(200)
    self:SetHeight(44)
    self:SetDisabled(false)
    self:SetIsPercent(nil)
    self:SetSliderValues(0, 100, 1)
    self:SetValue(0)
    self.slider:EnableMouseWheel(false)
  end,

  -- ["OnRelease"] = nil,

  ['SetDisabled'] = function(self, disabled)
    self.disabled = disabled
    if disabled then
      self.slider:EnableMouse(false)
      self.label:SetTextColor(0.5, 0.5, 0.5)
      self.hightext:SetTextColor(0.5, 0.5, 0.5)
      self.lowtext:SetTextColor(0.5, 0.5, 0.5)
      --self.valuetext:SetTextColor(.5, .5, .5)
      self.editbox:SetTextColor(0.5, 0.5, 0.5)
      self.editbox:EnableMouse(false)
      self.editbox:ClearFocus()
    else
      self.slider:EnableMouse(true)
      self.label:SetTextColor(1, 0.82, 0)
      self.hightext:SetTextColor(1, 1, 1)
      self.lowtext:SetTextColor(1, 1, 1)
      --self.valuetext:SetTextColor(1, 1, 1)
      self.editbox:SetTextColor(1, 1, 1)
      self.editbox:EnableMouse(true)
    end
  end,

  ['SetValue'] = function(self, value)
    self.slider.setup = true
    self.slider:SetValue(value)
    self.value = value
    UpdateText(self)
    self.slider.setup = nil
  end,

  ['GetValue'] = function(self)
    return self.value
  end,

  ['SetLabel'] = function(self, text)
    self.label:SetText(text)
  end,

  ['SetSliderValues'] = function(self, min, max, step)
    local frame = self.slider
    frame.setup = true
    self.min = min
    self.max = max
    self.step = step
    frame:SetMinMaxValues(min or 0, max or 100)
    UpdateLabels(self)
    frame:SetValueStep(step or 1)
    if self.value then
      frame:SetValue(self.value)
    end
    frame.setup = nil
  end,

  ['SetIsPercent'] = function(self, value)
    self.ispercent = value
    UpdateLabels(self)
    UpdateText(self)
  end,
}

--[[-----------------------------------------------------------------------------
Constructor
-------------------------------------------------------------------------------]]
local SliderBackdrop = {
  bgFile = 'Interface\\Buttons\\UI-SliderBar-Background',
  edgeFile = 'Interface\\Buttons\\UI-SliderBar-Border',
  tile = true,
  tileSize = 8,
  edgeSize = 8,
  insets = { left = 3, right = 3, top = 6, bottom = 6 },
}

local ManualBackdrop = {
  bgFile = 'Interface\\ChatFrame\\ChatFrameBackground',
  edgeFile = 'Interface\\ChatFrame\\ChatFrameBackground',
  tile = true,
  edgeSize = 1,
  tileSize = 5,
}

local function Constructor()
  local frame = CreateFrame('Frame', nil, UIParent)

  frame:EnableMouse(true)
  frame:SetScript('OnMouseDown', Frame_OnMouseDown)

  local label = frame:CreateFontString(nil, 'OVERLAY', 'GameFontNormal')
  label:SetPoint('TOPLEFT')
  label:SetPoint('TOPRIGHT')
  label:SetJustifyH('CENTER')
  label:SetHeight(15)

  local slider = CreateFrame('Slider', nil, frame)
  slider:SetOrientation('HORIZONTAL')
  slider:SetHeight(15)
  slider:SetHitRectInsets(0, 0, -10, 0)
  slider:SetBackdrop(SliderBackdrop)
  slider:SetThumbTexture('Interface\\Buttons\\UI-SliderBar-Button-Horizontal')
  slider:SetPoint('TOP', label, 'BOTTOM')
  slider:SetPoint('LEFT', 3, 0)
  slider:SetPoint('RIGHT', -3, 0)
  slider:SetValue(0)
  slider:SetScript('OnValueChanged', Slider_OnValueChanged)
  slider:SetScript('OnEnter', Control_OnEnter)
  slider:SetScript('OnLeave', Control_OnLeave)
  slider:SetScript('OnMouseUp', Slider_OnMouseUp)
  slider:SetScript('OnMouseWheel', Slider_OnMouseWheel)

  local lowtext = slider:CreateFontString(nil, 'ARTWORK', 'GameFontHighlightSmall')
  lowtext:SetPoint('TOPLEFT', slider, 'BOTTOMLEFT', 2, 3)

  local hightext = slider:CreateFontString(nil, 'ARTWORK', 'GameFontHighlightSmall')
  hightext:SetPoint('TOPRIGHT', slider, 'BOTTOMRIGHT', -2, 3)

  local editbox = CreateFrame('EditBox', nil, frame)
  editbox:SetAutoFocus(false)
  editbox:SetFontObject(GameFontHighlightSmall)
  editbox:SetPoint('TOP', slider, 'BOTTOM')
  editbox:SetHeight(14)
  editbox:SetWidth(70)
  editbox:SetJustifyH('CENTER')
  editbox:EnableMouse(true)
  editbox:SetBackdrop(ManualBackdrop)
  editbox:SetBackdropColor(0, 0, 0, 0.5)
  editbox:SetBackdropBorderColor(0.3, 0.3, 0.30, 0.80)
  editbox:SetScript('OnEnter', EditBox_OnEnter)
  editbox:SetScript('OnLeave', EditBox_OnLeave)
  editbox:SetScript('OnEnterPressed', EditBox_OnEnterPressed)
  editbox:SetScript('OnEscapePressed', EditBox_OnEscapePressed)

  local widget = {
    label = label,
    slider = slider,
    lowtext = lowtext,
    hightext = hightext,
    editbox = editbox,
    alignoffset = 25,
    frame = frame,
    type = Type,
  }
  for method, func in pairs(methods) do
    widget[method] = func
  end
  slider.obj, editbox.obj = widget, widget

  return AceGUI:RegisterAsWidget(widget)
end

AceGUI:RegisterWidgetType(Type, Constructor, Version)
