setFactorFrame.lua

local folderName = ...
local cosFix = LibStub("AceAddon-3.0"):GetAddon(folderName)



local math_floor = _G.math.floor

local function Round(num, numDecimalPlaces)
  local mult = 10^(numDecimalPlaces or 0);
  return math_floor(num * mult + 0.5) / mult;
end



-- Build our own vehicleIdToName lookup table,
-- because the vehicle name can only be obtained when actually on the vehicle.
cosFix.vehicleIdToName = {}
local mutex = false
local function StoreVehicleIdToName(unit)
  if unit ~= "vehicle" or mutex then return end

  mutex = true
  local vehicleGUID = UnitGUID("vehicle")
  mutex = false

  if not vehicleGUID then return end

  local _, _, _, _, _, vehicleId = strsplit("-", vehicleGUID)
  if cosFix.vehicleIdToName[tonumber(vehicleId)] then return end

  mutex = true
  cosFix.vehicleIdToName[tonumber(vehicleId)] = UnitName("vehicle")
  mutex = false
end
hooksecurefunc("UnitGUID", StoreVehicleIdToName)
hooksecurefunc("UnitName", StoreVehicleIdToName)
hooksecurefunc("GetUnitName", StoreVehicleIdToName)


local _G = _G
local pairs = _G.pairs
local tonumber = _G.tonumber

local ButtonFrameTemplate_HidePortrait = _G.ButtonFrameTemplate_HidePortrait
local C_DateAndTime_GetCurrentCalendarTime = _G.C_DateAndTime.GetCurrentCalendarTime
local C_BattleNet_GetGameAccountInfoByGUID = _G.C_BattleNet.GetGameAccountInfoByGUID
local C_MountJournal_GetMountInfoByID = _G.C_MountJournal.GetMountInfoByID
local C_MountJournal_GetMountIDs      = _G.C_MountJournal.GetMountIDs
local C_MountJournal_SummonByID       = _G.C_MountJournal.SummonByID

local CanExitVehicle = _G.CanExitVehicle
local CreateFrame    = _G.CreateFrame
local GameTooltip    = _G.GameTooltip
local IsMounted      = _G.IsMounted
local PlaySound      = _G.PlaySound
local UnitInVehicle  = _G.UnitInVehicle
local UnitGUID       = _G.UnitGUID
local UnitOnTaxi     = _G.UnitOnTaxi
local VehicleExit    = _G.VehicleExit





local maxFactor = 10


cosFix.setFactorFrame = CreateFrame("Frame", "cosFix_SetFactorFrame", UIParent, "ButtonFrameTemplate")
local f = cosFix.setFactorFrame
f:SetPoint("TOPLEFT")
ButtonFrameTemplate_HidePortrait(f)
-- SetPortraitToTexture(...)
-- ButtonFrameTemplate_HideAttic(f)
-- ButtonFrameTemplate_HideButtonBar(f)
f:SetFrameStrata("HIGH")
f:SetWidth(460)
f:SetHeight(220)
f:SetMovable(true)
f:EnableMouse(true)
f:RegisterForDrag("LeftButton")
f:SetScript("OnDragStart", f.StartMoving)
f:SetScript("OnDragStop", f.StopMovingOrSizing)
f:SetClampedToScreen(true)
tinsert(UISpecialFrames, "cosFix_SetFactorFrame")
f:Hide()
_G[f:GetName().."TitleText"]:SetText("CameraOverShoulderFix - Set Offset Factor")
_G[f:GetName().."TitleText"]:ClearAllPoints()
_G[f:GetName().."TitleText"]:SetPoint("TOPLEFT", 10, -6)


-- Thanks to Vrul: https://www.wowinterface.com/forums/showthread.php?p=335437#post335437
local newSize = 60

local corner = f.NineSlice.BottomLeftCorner
local oldX, oldY = corner:GetSize()
local L, R, T, B = 0, newSize/oldX, 1-newSize/oldY, 1
corner:SetSize(newSize, newSize)
corner:SetTexCoord(L, R, T, B)

local corner = f.NineSlice.BottomRightCorner
local oldX, oldY = corner:GetSize()
local L, R, T, B = 1-newSize/oldX, 1, 1-newSize/oldY, 1
corner:SetSize(newSize, newSize)
corner:SetTexCoord(L, R, T, B)


f.deleteButton = CreateFrame("Button", nil, f, "UIPanelButtonTemplate")
f.deleteButton:SetPoint("BOTTOMLEFT", 1, 4)
f.deleteButton:SetText("Delete")
f.deleteButton:SetWidth(90)
f.deleteButton:SetScript("OnClick", function()
    if customOffsetFactors[f.idType][f.id] then
      customOffsetFactors[f.idType][f.id] = nil
    end
    f:SetId(f.idType, f.id, true)
  end)
f.deleteButton:SetScript("OnEnter", function(self)
    GameTooltip:SetOwner(self, "ANCHOR_BOTTOM")
    GameTooltip:SetText("Delete custom offset factor.")
  end)
f.deleteButton:SetScript("OnLeave", function(self)
    GameTooltip:Hide()
  end)



f.resetButton = CreateFrame("Button", nil, f, "UIPanelButtonTemplate")
f.resetButton:SetPoint("BOTTOM", 0, 4)
f.resetButton:SetText("Reset")
f.resetButton:SetWidth(90)
f.resetButton:SetScript("OnClick", function()
    f:SetId(f.idType, f.id, true)
  end)
f.deleteButton:SetScript("OnEnter", function(self)
    GameTooltip:SetOwner(self, "ANCHOR_BOTTOM")
    GameTooltip:SetText("Reset to custom//hardcoded factor.")
  end)
f.deleteButton:SetScript("OnLeave", function(self)
    GameTooltip:Hide()
  end)




f.saveButton = CreateFrame("Button", nil, f, "UIPanelButtonTemplate")
f.saveButton:SetPoint("BOTTOMRIGHT", -1, 4)
f.saveButton:SetText("Save")
f.saveButton:SetWidth(90)
f.saveButton:SetScript("OnClick", function()
    -- Do not allow the same custom value as hardcoded value.
    if cosFix.hardcodedOffsetFactors[f.idType][f.id] and cosFix.hardcodedOffsetFactors[f.idType][f.id] == f.offsetFactor then
      customOffsetFactors[f.idType][f.id] = nil
      f:SetId(f.idType, f.id, true)
      return
    end

    -- Save the custom value.
    local gameAccountInfo = C_BattleNet_GetGameAccountInfoByGUID(UnitGUID("player"))
    local playerName = gameAccountInfo.characterName.."-"..gameAccountInfo.realmName
    local calendarTime = C_DateAndTime_GetCurrentCalendarTime()
    local today = format("%02d-%02d-%02d", calendarTime.year, calendarTime.month, calendarTime.monthDay)
    
    local _, raceFile = UnitRace("player")
    local character = raceFile .. " " .. ((UnitSex("player") == 2) and "Male" or "Female")
    customOffsetFactors[f.idType][f.id] = {
      factor     = f.offsetFactor,
      metaData   = f.mountName .. ";" .. today .. ";" .. playerName .. ";" .. character
    }

    f:SetId(f.idType, f.id, true)
  end)
f.saveButton:SetScript("OnEnter", function(self)
    GameTooltip:SetOwner(self, "ANCHOR_BOTTOM")
    GameTooltip:SetText("Save custom offset factor.")
  end)
f.saveButton:SetScript("OnLeave", function(self)
    GameTooltip:Hide()
  end)



f.exportButton = CreateFrame("Button", nil, f, "UIPanelButtonTemplate")
f.exportButton:SetPoint("TOPRIGHT", -25, 0)
f.exportButton:SetText("Export")
f.exportButton:SetWidth(70)
f.exportButton:SetScript("OnClick", function()
    print("TODO: Export")
    --https://stackoverflow.com/questions/36031078/lua-number-to-string-behaviour
  end)
f.exportButton:SetScript("OnEnter", function(self)
    GameTooltip:SetOwner(self, "ANCHOR_TOP")
    GameTooltip:SetText("Export your custom factors to send\nthem to the addon developer!")
  end)
f.exportButton:SetScript("OnLeave", function(self)
    GameTooltip:Hide()
  end)

-- Place the nice button divider!
local layer, subLevel = f.NineSlice.TopRightCorner:GetDrawLayer()
f.exportButton.btnDivLeft = f.NineSlice:CreateTexture("cosFix_btnDivLeft", "BORDER")
f.exportButton.btnDivLeft:SetPoint("RIGHT", f.exportButton, "LEFT", 6, 0)
f.exportButton.btnDivLeft:SetDrawLayer(layer, subLevel+1)
f.exportButton.btnDivLeft:SetAtlas("UI-Frame-BtnDivLeft", true)
local oldX, oldY = f.exportButton.btnDivLeft:GetSize()
local shrinkFactor = 0.83
f.exportButton.btnDivLeft:SetSize(oldX*shrinkFactor, oldY*shrinkFactor)



f.coarseSlider = CreateFrame("Slider", "cosFix_coarseSlider", f.Inset, "OptionsSliderTemplate")
-- Alternative to using the template...
-- s:SetThumbTexture("Interface\\Buttons\\UI-SliderBar-Button-Horizontal")
-- s:SetBackdrop({
  -- 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 }})
-- s:SetOrientation('HORIZONTAL')
f.coarseSlider:SetPoint("TOP", 3, -60)
f.coarseSlider:SetWidth(240)
f.coarseSlider:SetHeight(17)
f.coarseSlider:SetMinMaxValues(0, maxFactor)
f.coarseSlider:SetValueStep(0.1)
f.coarseSlider:SetObeyStepOnDrag(true)
 _G[f.coarseSlider:GetName() .. 'Low']:SetText("0")
 _G[f.coarseSlider:GetName() .. 'High']:SetText(maxFactor)
 _G[f.coarseSlider:GetName() .. 'Text']:SetText("")
f.coarseSlider:SetScript("OnValueChanged", function(self, value)
    f.offsetFactor = Round(value, 1)
    f:RefreshLabels()
  end)


f.fineSlider = CreateFrame("Slider", "cosFix_fineSlider", f.coarseSlider, "OptionsSliderTemplate")
f.fineSlider:SetPoint("TOP", 0, -35)
f.fineSlider:SetWidth(240)
f.fineSlider:SetHeight(17)
f.fineSlider:SetMinMaxValues(-0.5, 0.5)
f.fineSlider:SetValueStep(0.001)
f.fineSlider:SetObeyStepOnDrag(true)
 _G[f.fineSlider:GetName() .. 'Low']:SetText("-0.5")
 _G[f.fineSlider:GetName() .. 'High']:SetText("+0.5")
 _G[f.fineSlider:GetName() .. 'Text']:SetText("")
f.fineSlider:SetScript("OnValueChanged", function(self, value)
    if f.coarseSlider:GetValue() + value < 0 then
      f.offsetFactor = 0
    elseif f.coarseSlider:GetValue() + value > maxFactor then
      f.offsetFactor = maxFactor
    else
      f.offsetFactor = Round(f.coarseSlider:GetValue() + value, 3)
    end
    f:RefreshLabels()
  end)


f.valueBox = CreateFrame("EditBox", nil, f.Inset, "InputBoxTemplate")
f.valueBox:SetPoint("TOPRIGHT", -14, -60)
f.valueBox:SetFontObject(ChatFontNormal)
f.valueBox:SetSize(50, 20)
f.valueBox:SetMultiLine(false)
f.valueBox:SetAutoFocus(false)
f.valueBox.lastValidValue = nil
f.valueBox:SetScript("OnTextChanged", function(self, ...)
    -- Prevent invalid entries in the text box.
    if self:GetText() ~= "" and (tonumber(self:GetText()) == nil or tonumber(self:GetText()) < 0) then
      local oldCursorPosition = self:GetCursorPosition()
      local oldNumLetters = self:GetNumLetters()
      self:SetText(self.lastValidValue)
      self:SetCursorPosition(oldCursorPosition - oldNumLetters + self:GetNumLetters())
    else
      self.lastValidValue = tonumber(self:GetText())
    end
    f:RefreshButtons()
  end)
f.valueBox:SetScript("OnTextSet", function(self)
    self.lastValidValue = tonumber(self:GetText())
    f:RefreshButtons()
  end)
f.valueBox:SetScript("OnEscapePressed", function(self)
    self:ClearFocus()
    f:RefreshLabels()
  end)
f.valueBox:SetScript("OnEnterPressed", function(self)
    if self.lastValidValue > maxFactor then
      self.lastValidValue = maxFactor
    end
    f.offsetFactor = Round(self.lastValidValue, 3)
    f:RefreshLabels()
  end)


f.minusButton = CreateFrame("Button", nil, f.valueBox, "UIPanelButtonTemplate")
f.minusButton:SetPoint("TOPLEFT", f.valueBox, "BOTTOMLEFT", -7, 0)
f.minusButton:SetText("-")
f.minusButton:SetWidth(25)
f.minusButton:SetScript("OnClick", function()
    if f.offsetFactor - 0.001 < 0 then
      f.offsetFactor = 0
    else
      f.offsetFactor = f.offsetFactor - 0.001
    end
    f:RefreshLabels()
  end)

f.plusButton = CreateFrame("Button", nil, f.valueBox, "UIPanelButtonTemplate")
f.plusButton:SetPoint("TOPRIGHT", f.valueBox, "BOTTOMRIGHT", 2, 0)
f.plusButton:SetText("+")
f.plusButton:SetWidth(25)
f.plusButton:SetScript("OnClick", function()
    if f.offsetFactor + 0.001 > maxFactor then
      f.offsetFactor = maxFactor
    else
      f.offsetFactor = f.offsetFactor + 0.001
    end
    f:RefreshLabels()
  end)

f.okButton = CreateFrame("Button", nil, f.valueBox, "UIPanelButtonTemplate")
f.okButton:SetPoint("LEFT", f.valueBox, "RIGHT", 0, 0)
f.okButton:SetText("OK")
f.okButton:SetWidth(35)
f.okButton:SetFrameStrata("DIALOG")
f.okButton:SetScript("OnClick", function()
    if f.valueBox.lastValidValue > maxFactor then
      f.valueBox.lastValidValue = maxFactor
    end
    f.offsetFactor = Round(f.valueBox.lastValidValue, 3)
    f:RefreshLabels()
  end)


f.mountButton = CreateFrame("CheckButton", nil, f.Inset)
f.mountButton:SetPoint("TOPLEFT", 14, -60)
f.mountButton:SetSize(55, 55)
-- The normal texture will be set when the mount is set.
-- (SetNormalTexture() does not work here, as it will be replaced by the PushedTexture.)
-- https://www.wowinterface.com/forums/showthread.php?t=57901
f.mountButton.normalTexture = f.mountButton:CreateTexture()
f.mountButton.normalTexture:SetAllPoints()
f.mountButton.normalTexture:SetDrawLayer("BACKGROUND", 0)
f.mountButton:SetHighlightTexture("Interface\\Buttons\\ButtonHilight-Square")
f.mountButton:SetPushedTexture("Interface\\Buttons\\UI-Quickslot-Depress")
f.mountButton:SetCheckedTexture("Interface\\Buttons\\CheckButtonHilight")
f.mountButton:SetScript("OnClick", function(self)
    C_MountJournal_SummonByID(f.id)
    f:RefreshButtons()
  end)



f.vehicleButton = CreateFrame("Button", nil, f.Inset)
f.vehicleButton:SetPoint("TOPLEFT", 14, -60)
f.vehicleButton:SetSize(55, 55)
f.vehicleButton:SetNormalTexture("Interface\\Vehicles\\UI-Vehicles-Button-Exit-Up")
f.vehicleButton:SetDisabledTexture("Interface\\Vehicles\\UI-Vehicles-Button-Exit-Up")
f.vehicleButton:GetDisabledTexture():SetDesaturated(true)
f.vehicleButton:SetPushedTexture("Interface\\Vehicles\\UI-Vehicles-Button-Exit-Down")
f.vehicleButton:SetHighlightTexture("Interface\\Buttons\\ButtonHilight-Square")

local L, R, T, B = 0.15, 0.85, 0.15, 0.85
f.vehicleButton:GetNormalTexture():SetTexCoord(L, R, T, B )
f.vehicleButton:GetDisabledTexture():SetTexCoord(L, R, T, B )
f.vehicleButton:GetPushedTexture():SetTexCoord(L, R, T, B )

f.vehicleButton:SetScript("OnClick", function(self)
    VehicleExit()
    f:RefreshButtons()
  end)



f.prevMountButton = CreateFrame("Button", nil, f.Inset)
f.prevMountButton:SetNormalTexture("Interface\\Buttons\\UI-SpellbookIcon-PrevPage-Up")
f.prevMountButton:SetPushedTexture("Interface\\Buttons\\UI-SpellbookIcon-PrevPage-Down")
f.prevMountButton:SetDisabledTexture("Interface\\Buttons\\UI-SpellbookIcon-PrevPage-Disabled")
f.prevMountButton:SetHighlightTexture("Interface\\Buttons\\UI-Common-MouseHilight", "ADD")
f.prevMountButton:SetSize(25, 25)
f.prevMountButton:SetPoint("TOPRIGHT", -79, -10)
f.prevMountButton:SetScript("OnClick", function()
    f:SetId("mountId", f.prevMountId, true)
  end)
f.prevMountButton:SetScript("OnEnter", function(self)
    GameTooltip:SetOwner(self, "ANCHOR_TOP")
    GameTooltip:SetText("Previous usable mount.")
  end)
f.prevMountButton:SetScript("OnLeave", function(self)
    GameTooltip:Hide()
  end)


f.nextMountButton = CreateFrame("Button", nil, f.Inset)
f.nextMountButton:SetNormalTexture("Interface\\Buttons\\UI-SpellbookIcon-NextPage-Up")
f.nextMountButton:SetPushedTexture("Interface\\Buttons\\UI-SpellbookIcon-NextPage-Down")
f.nextMountButton:SetDisabledTexture("Interface\\Buttons\\UI-SpellbookIcon-NextPage-Disabled")
f.nextMountButton:SetHighlightTexture("Interface\\Buttons\\UI-Common-MouseHilight", "ADD")
f.nextMountButton:SetSize(25, 25)
f.nextMountButton:SetPoint("TOPLEFT", f.prevMountButton, "TOPRIGHT", 0, 0)
f.nextMountButton:SetScript("OnClick", function()
    f:SetId("mountId", f.nextMountId, true)
  end)
f.nextMountButton:SetScript("OnEnter", function(self)
    GameTooltip:SetOwner(self, "ANCHOR_TOP")
    GameTooltip:SetText("Next usable mount.")
  end)
f.nextMountButton:SetScript("OnLeave", function(self)
    GameTooltip:Hide()
  end)


f.returnToCurrentButton = CreateFrame("Button", nil, f.Inset)
f.returnToCurrentButton:SetNormalTexture("Interface\\Buttons\\UI-MICROBUTTON-QUEST-UP")
f.returnToCurrentButton:SetPushedTexture("Interface\\Buttons\\UI-MICROBUTTON-QUEST-DOWN")
f.returnToCurrentButton:SetHighlightTexture("Interface\\Buttons\\UI-MicroButton-Hilight", "ADD")
local shrinkFactor = 0.55
f.returnToCurrentButton:SetSize(32*shrinkFactor, 64*shrinkFactor)
f.returnToCurrentButton:SetPoint("RIGHT", f.prevMountButton, "LEFT", -2, 6)
f.returnToCurrentButton:SetScript("OnClick", function()
    local idType, id = f:GetCurrentTypeAndId()
    f:SetId(idType, id, true)
  end)
f.returnToCurrentButton:SetScript("OnEnter", function(self)
    GameTooltip:SetOwner(self, "ANCHOR_TOP", 0, -11.5)
    GameTooltip:SetText("Current mount/vehicle/model.")
  end)
f.returnToCurrentButton:SetScript("OnLeave", function(self)
    GameTooltip:Hide()
  end)



f.nextUnknownMountButton = CreateFrame("Button", nil, f.Inset)
f.nextUnknownMountButton:SetNormalAtlas("QuestCollapse-Show-Up")
f.nextUnknownMountButton:SetPushedAtlas("QuestCollapse-Show-Down")
f.nextUnknownMountButton:SetDisabledAtlas("QuestCollapse-Show-Up")
f.nextUnknownMountButton:GetDisabledTexture():SetDesaturated(true)
f.nextUnknownMountButton:SetHighlightTexture("Interface\\Buttons\\UI-Common-MouseHilight", "ADD")
f.nextUnknownMountButton:GetHighlightTexture():SetTexCoord(0.15, 0.85, 0.15, 0.85)
f.nextUnknownMountButton:SetSize(21, 21)
f.nextUnknownMountButton:SetPoint("LEFT", f.nextMountButton, "RIGHT", 20, 0)
f.nextUnknownMountButton:SetScript("OnClick", function()
    f:SetId("mountId", f.nextUnknownMountId, true)
  end)
f.nextUnknownMountButton:SetScript("OnEnter", function(self)
    GameTooltip:SetOwner(self, "ANCHOR_TOP", 0, 2)
    GameTooltip:SetText("Next mount without factor.")
  end)
f.nextUnknownMountButton:SetScript("OnLeave", function(self)
    GameTooltip:Hide()
  end)



f.onlyCustomCheckBox = CreateFrame("CheckButton", "cosFix_onlyCustomCheckBox", f, "UICheckButtonTemplate")
f.onlyCustomCheckBox:SetSize(22, 22)
f.onlyCustomCheckBox:SetPoint("TOPLEFT", f.prevMountButton, "BOTTOMLEFT", 0, 3)
_G[f.onlyCustomCheckBox:GetName() .. "Text"]:SetText(" Custom only")
f.onlyCustomCheckBox:SetScript("OnClick", function(self)
    f:PrepareMountSelectButtons()
  end
);
f.onlyCustomCheckBox:SetScript("OnEnter", function(self)
    GameTooltip:SetOwner(self, "ANCHOR_LEFT", 0, -20)
    GameTooltip:SetText("Only skip through mounts for which\nyou have set a custom factor.")
  end)
f.onlyCustomCheckBox:SetScript("OnLeave", function(self)
    GameTooltip:Hide()
  end)







f.nextMountId = nil
f.prevMountId = nil
f.nextUnknownMountId = nil

function f:PrepareMountSelectButtons()

  f.nextMountId = nil
  f.prevMountId = nil
  f.nextUnknownMountId = nil

  local takeNext = false
  local firstMountId = nil
  local lastMountId = nil
  local firstUnknownMountId = nil

  for k, v in pairs (C_MountJournal_GetMountIDs()) do
    local _, _, _, _, isUsable = C_MountJournal_GetMountInfoByID(v)
    if isUsable and (not f.onlyCustomCheckBox:GetChecked() or customOffsetFactors["mountId"][v]) then

      if not firstMountId then firstMountId = v end

      if takeNext and not f.nextMountId then f.nextMountId = v end

      if not customOffsetFactors["mountId"][v] and not cosFix.hardcodedOffsetFactors["mountId"][v] then
        if not firstUnknownMountId then firstUnknownMountId = v end
        if takeNext and not f.nextUnknownMountId then f.nextUnknownMountId = v end
      end

      if f.id == v then
        takeNext = true
        if lastMountId then f.prevMountId = lastMountId end
      end

      lastMountId = v
    end

    -- If we have all, we are done!
    if f.nextMountId and f.prevMountId and f.nextUnknownMountId then break end
  end


  if not f.prevMountId and lastMountId then f.prevMountId = lastMountId end
  if not f.nextMountId and firstMountId then f.nextMountId = firstMountId end
  if not f.nextUnknownMountId and firstUnknownMountId then f.nextUnknownMountId = firstUnknownMountId end


  -- If the player has no usable mounts at all.
  if not f.nextMountId then
    f.prevMountButton:Disable()
    f.nextMountButton:Disable()
    f.nextUnknownMountButton:Disable()
  else
    f.prevMountButton:Enable()
    f.nextMountButton:Enable()
    if not f.nextUnknownMountId then
      f.nextUnknownMountButton:Disable()
    else
      f.nextUnknownMountButton:Enable()
    end
  end

end


function f:RefreshButtons()

  if not self:IsShown() then return end
  -- print("RefreshButtons")

  if not self.id then
    self.deleteButton:Disable()
    self.resetButton:Disable()
    self.saveButton:Disable()

    self.mountButton:Hide()
    self.vehicleButton:Hide()
    self.returnToCurrentButton:Hide()
    self.okButton:Hide()

    self.coarseSlider:Hide()
    self.fineSlider:Hide()
    self.valueBox:Hide()
    self.minusButton:Hide()
    self.plusButton:Hide()

    return
  else
    self.coarseSlider:Show()
    self.fineSlider:Show()
    self.valueBox:Show()
    self.minusButton:Show()
    self.plusButton:Show()
  end


  -- Value box.
  if self.valueBox.lastValidValue ~= self.offsetFactor then
    self.okButton:Show()
    self.minusButton:Disable()
    self.plusButton:Disable()
  else
    self.okButton:Hide()

    if self.offsetFactor <= 0 then
      self.minusButton:Disable()
    else
      self.minusButton:Enable()
    end

    if self.offsetFactor >= maxFactor then
      self.plusButton:Disable()
    else
      self.plusButton:Enable()
    end
  end


  -- Mount/Vehicle button.
  self.mountButton:Hide()
  self.vehicleButton:Hide()
  if self.idType == "mountId" then
    self.mountButton:Show()
    self.mountButton.normalTexture:SetTexture(self.mountIcon)

    -- Set the checked status!
    _, _, _, _, _, _, _, _, spellId = UnitCastingInfo("player")
    if (IsMounted() and f.id == cosFix:GetCurrentMount()) or (spellId and spellId == f.mountSpellId) then
      self.mountButton:SetChecked(true)
    else
      self.mountButton:SetChecked(false)
    end

  elseif self.idType == "vehicleId" then
    self.vehicleButton:Show()

    -- Set the enabled status!
    if CanExitVehicle() then
      self.vehicleButton:Enable()
    else
      self.vehicleButton:Disable()
    end
  end


  -- Return to current mount button.
  local idType, id = self:GetCurrentTypeAndId()
  if not idType or (idType == self.idType and id == self.id) then
    self.returnToCurrentButton:Hide()
  else
    self.returnToCurrentButton:Show()
  end


  -- Delete, Reset, Save buttons.
  if customOffsetFactors[self.idType][self.id] then
    self.deleteButton:Enable()
  else
    self.deleteButton:Disable()
  end

  if customOffsetFactors[self.idType][self.id] then
    if customOffsetFactors[self.idType][self.id]["factor"] ~= self.offsetFactor then
      self.saveButton:Enable()
      self.resetButton:Enable()
    else
      self.saveButton:Disable()
      self.resetButton:Disable()
    end
  elseif (not cosFix.hardcodedOffsetFactors[self.idType][self.id] and self.offsetFactor ~= 0) or
         (    cosFix.hardcodedOffsetFactors[self.idType][self.id] and self.offsetFactor ~= cosFix.hardcodedOffsetFactors[self.idType][self.id]) then
    self.saveButton:Enable()
    self.resetButton:Enable()
  else
    self.saveButton:Disable()
    self.resetButton:Disable()
  end

end





f.instructionTextLabel = f:CreateFontString(nil, "HIGH")
f.instructionTextLabel:SetFont("Fonts\\FRIZQT__.TTF", 12)
f.instructionTextLabel:SetTextColor(0.8, 0.8, 0.8)
f.instructionTextLabel:SetPoint("TOPLEFT", f.TopTileStreaks, "TOPLEFT", 10, -10)
f.instructionTextLabel:SetPoint("TOPRIGHT", f.TopTileStreaks, "TOPRIGHT", -10, -10)
f.instructionTextLabel:SetJustifyH("LEFT")
f.instructionTextLabel:SetText("Mount and dismount repeatedly to find the ideal factor for a mount or vehicle. See the addon web page for a video tutorial.")

f.mountNameLabel = f:CreateFontString(nil, "HIGH")
f.mountNameLabel:SetFont("Fonts\\FRIZQT__.TTF", 14)
f.mountNameLabel:SetTextColor(1.0, 0.6, 0.0)
f.mountNameLabel:SetPoint("TOPLEFT", f.Inset, "TOPLEFT", 13, -14)
f.mountNameLabel:SetPoint("TOPRIGHT", f.Inset, "TOPRIGHT", -6, -14)
f.mountNameLabel:SetJustifyH("LEFT")

f.storeStatusLabel = f:CreateFontString(nil, "HIGH")
f.storeStatusLabel:SetFont("Fonts\\FRIZQT__.TTF", 10)
f.storeStatusLabel:SetTextColor(0.2, 0.7, 1.0)
f.storeStatusLabel:SetPoint("TOPLEFT", f.mountNameLabel, "BOTTOMLEFT", 0, -4)
f.storeStatusLabel:SetJustifyH("LEFT")


function f:RefreshLabels()

  if not self:IsShown() then return end
  -- print("RefreshLabels", self.mountName, self.offsetFactor)
  -- print(self.coarseSlider:GetValue(), self.fineSlider:GetValue(), self.valueBox:GetText())

  if not self.id then
    self.mountNameLabel:SetText("No mount or vehicle selected.")
    self.storeStatusLabel:SetText("")
    self:RefreshButtons()
    return
  end

  self.mountNameLabel:SetText(self.mountName .. " (ID: " .. self.id .. ")")
  -- Longest possible string...
  -- self.mountNameLabel:SetText("Heavenly Crimson Cloud Serpent (ID: 9999)")

  if self.offsetFactor ~= self.valueBox:GetText() then
    self.valueBox:SetText(self.offsetFactor)
  end

  local storeStatus = ""
  if customOffsetFactors[self.idType][self.id] then
    storeStatus = "Custom factor ("..customOffsetFactors[self.idType][self.id]["factor"]..")"
    if cosFix.hardcodedOffsetFactors[self.idType][self.id] then
      storeStatus = storeStatus .. " overriding hardcoded factor ("..cosFix.hardcodedOffsetFactors[self.idType][self.id]..")"
    end
  elseif cosFix.hardcodedOffsetFactors[self.idType][self.id] then
    storeStatus = "Hardcoded factor ("..cosFix.hardcodedOffsetFactors[self.idType][self.id]..")"
  else
    storeStatus = "No factor available"
  end
  self.storeStatusLabel:SetText(storeStatus..".")


  -- Got to remember the original offsetFactor, because when we do coarseSlider:SetValue() it
  -- will change self.offsetFactor.
  local originalOffsetFactor = f.offsetFactor
  local roundedCoarseSlider = Round(self.coarseSlider:GetValue(), 1)
  if originalOffsetFactor < roundedCoarseSlider - 0.5 or originalOffsetFactor > roundedCoarseSlider + 0.5 then
    local roundedOffsetFactor = Round(originalOffsetFactor, 1)
    self.coarseSlider:SetValue(roundedOffsetFactor)
    self.fineSlider:SetValue(originalOffsetFactor - roundedOffsetFactor)
  else
    -- Only needed for the initial call!
    self.coarseSlider:SetValue(roundedCoarseSlider)
    self.fineSlider:SetValue(originalOffsetFactor - roundedCoarseSlider)
  end

  self:RefreshButtons()

  cosFix:SetDelayedShoulderOffset()
end






f.idType = nil
f.id = nil
f.mountName = nil
f.mountIcon = nil
f.mountSpellId = nil

f.offsetFactor = nil



f:SetScript("OnHide", function(self)
    PlaySound(SOUNDKIT.IG_CHARACTER_INFO_CLOSE)

    -- To make this conditional we would have to call CorrectShoulderOffset() anyway.
    -- So we can just as well always call it.
    cosFix:SetDelayedShoulderOffset()
  end)




function f:GetCurrentTypeAndId()
  if IsMounted() and not UnitOnTaxi("player") then
    return "mountId", cosFix:GetCurrentMount()
  elseif UnitInVehicle("player") then
    local _, _, _, _, _, vehicleId = strsplit("-", UnitGUID("vehicle"))
    return "vehicleId", tonumber(vehicleId)
  elseif not cosFix.playerModelOffsetFactors[cosFix:GetCurrentModelId()] then
    return "modelId", cosFix:GetCurrentModelId()
  else
    return nil, nil
  end
end


f:SetScript("OnShow", function(self)
    PlaySound(SOUNDKIT.IG_CHARACTER_INFO_OPEN)
    local idType, id = self:GetCurrentTypeAndId()
    self:SetId(idType, id, true)

    self:PrepareMountSelectButtons()
    self:RefreshLabels()
  end)


function f:SetId(idType, id, reset)
  -- print("SetId", self.idType, idType, self.id, id, reset)

  if not idType or not id or (not reset and self.idType == idType and self.id == id and self.mountName ~= "") then
    -- print("doing nothing")
    return
  end

  if idType == "mountId" then
    self.mountName, self.mountSpellId, self.mountIcon = C_MountJournal_GetMountInfoByID(id)

  elseif idType == "vehicleId" then
    -- If we are currently in a vehicle, call UnitGUID()
    -- which will store the vehicle name in vehicleIdToName.
    if UnitInVehicle("player") then UnitGUID("vehicle") end
    if cosFix.vehicleIdToName[id] then
      self.mountName = cosFix.vehicleIdToName[id]
    else
      self.mountName = ""
    end

  elseif idType == "modelId" then
    self.mountName = "Unknown Model"
    self.mountIcon = nil
    self.mountSpellId = nil

  else
    return
  end


  if customOffsetFactors[idType][id] then
    self.offsetFactor = customOffsetFactors[idType][id]["factor"]
  elseif cosFix.hardcodedOffsetFactors[idType][id] then
    self.offsetFactor = cosFix.hardcodedOffsetFactors[idType][id]
  else
    self.offsetFactor = 0
  end

  self.idType = idType
  self.id = id

  self:PrepareMountSelectButtons()
  self:RefreshLabels()
end



local mountChangedFrame = CreateFrame("Frame")
mountChangedFrame:RegisterEvent("PLAYER_MOUNT_DISPLAY_CHANGED")
mountChangedFrame:RegisterEvent("UNIT_SPELLCAST_START")
mountChangedFrame:RegisterEvent("UNIT_SPELLCAST_FAILED")
mountChangedFrame:RegisterEvent("UNIT_SPELLCAST_INTERRUPTED")
mountChangedFrame:RegisterEvent("UNIT_ENTERED_VEHICLE")
mountChangedFrame:RegisterEvent("UNIT_EXITING_VEHICLE")
mountChangedFrame:RegisterEvent("UNIT_MODEL_CHANGED")
mountChangedFrame:SetScript("OnEvent", function(self, event, ...)
  if not f:IsShown() then return end

  if event == "PLAYER_MOUNT_DISPLAY_CHANGED" then
    if IsMounted() and not UnitOnTaxi("player") then
      f:SetId("mountId", cosFix:GetCurrentMount())
      return
    end
  else
    local unit = ...
    if unit ~= "player" then
      return
    end
  end

  if event == "UNIT_ENTERED_VEHICLE" then
    local _, _, _, _, _, vehicleId = strsplit("-", UnitGUID("vehicle"))
    f:SetId("vehicleId", tonumber(vehicleId))
  elseif event == "UNIT_MODEL_CHANGED" then
    local idType, id = f:GetCurrentTypeAndId()
    f:SetId(idType, id)
  end


  f:RefreshButtons()
end)


-- -- For debugging.
-- local startup = CreateFrame("Frame")
-- startup:RegisterEvent("PLAYER_ENTERING_WORLD")
-- startup:SetScript("OnEvent", function(self, event, ...)
  -- f:Hide()
  -- f:Show()
-- end)