Frame_SettingsFrame.lua

--[[--------------------------------------------------
----- VanillaGuide -----
------------------
Frame_SettingsFrame.lua
Authors: mrmr
Version: 1.04.3
------------------------------------------------------
Description: 
    	Settings Frame Object
    1.00
		-- Initial Ace2 release
	1.99a
		-- Ally addition starter version
    1.03
		-- No Changes. Just adjusting "version".
    		1.99x for a beta release was a weird choise.
	1.04.1
		-- Settings Frame object
	1.04.2
		-- One more setting for MetaMapNotes
		(like the one for MetaMapBWP)
	1.04.3
		-- no changes in here for this revision
------------------------------------------------------
Connection:
--]]--------------------------------------------------


--local VGuide = VGuide
Dv(" VGuide Frame_SettingsFrame.lua Start")

objSettingsFrame = {}
objSettingsFrame.__index = objSettingsFrame

function objSettingsFrame:new(fParent, tTexture, oSettings)	
	fParent = fParent or nil
	local obj = {}
    setmetatable(obj, self)

    local tCharInfo = oSettings:GetSettingsCharInfo()
    local tUI = oSettings:GetSettingsUI()
    --local tMetaMapBWP = oSettings:GetSettingsMetaMapBWP()
    local tMetaMap = oSettings:GetSettingsMetaMap()

   	local bMinimapToggle = tUI.MinimapToggle
	local nMinimapPos = tUI.MinimapPos
	local nStepScroll = tUI.StepScroll
	local nOpacity = tUI.Opacity
	local nScale = tUI.Scale
	local sLayer = tUI.Layer

	local Layers = {
		["DIALOG"] = 5,
		["HIGH"] = 4,
		["MEDIUM"] = 3,
		["LOW"] = 2,
		["BACKGROUND"] = 1,
		[5] = "DIALOG",
		[4] = "HIGH",
		[3] = "MEDIUM",
		[2] = "LOW",
		[1] = "BACKGROUND",
	}

	local function Render_SF(fParent, sName)
		local frame = CreateFrame("Frame", sName)
		frame:SetScale(1)
		frame:SetFrameStrata("TOOLTIP")
		frame:SetWidth(220)
		frame:SetHeight(315)
		-- detach Setting frame from Main Frame, avoiding "scale" bug
		--frame:SetPoint("TOPRIGHT", fParent, "TOPLEFT", -10, 0)
		frame:SetPoint("CENTER", nil, "CENTER", 0, 0)
		frame:SetBackdrop(tTexture.BACKDROP)
		frame:SetBackdropColor(.01, .01, .01, .91)
		frame:SetMovable(true)
		frame:EnableMouse(true)
		frame:SetClampedToScreen(true)
		frame:RegisterForDrag("LeftButton")
		frame.showthis = false
		return frame
	end
	local function Render_SFCloseButton(fParent, tTexture, sName)
		local btn = CreateFrame("Button", sName, fParent)
		btn:SetWidth(16)
		btn:SetHeight(16)
		btn:SetNormalTexture(tTexture.B_CLOSE.NORMAL)
		btn:SetPushedTexture(tTexture.B_CLOSE.PUSHED)
		btn:SetHighlightTexture(tTexture.B_CLOSE.HIGHLIGHT)
		btn:SetPoint("TOPRIGHT", fParent, "TOPRIGHT", -5, -5)
		return btn
	end
	local function Render_SFMetamapNotesSupportCheckBox(fParent, sName, tMetaMap)
		local chkbtn = CreateFrame("CheckButton", sName, fParent, "UICheckButtonTemplate")
		chkbtn:SetWidth(20)
		chkbtn:SetHeight(20)
		chkbtn.tooltip = "Enable the creation of MetaMap Notes on the WorldMap.";
		getglobal(chkbtn:GetName() .. 'Text'):SetText("   MetaMapNotes Support")

		if tMetaMap.NotesPresence then
			chkbtn:Enable()
		else
			chkbtn:Disable()
		end
		if chkbtn:IsEnabled() then
			if tMetaMap.NotesEnable then
				chkbtn:SetChecked(true)
			else
				chkbtn:SetChecked(false)
			end
		else
			chkbtn:SetChecked(false)
		end
		return chkbtn
	end
	local function Render_SFMetamapBWPSupportCheckBox(fParent, sName, tMetaMap)
		local chkbtn = CreateFrame("CheckButton", sName, fParent, "UICheckButtonTemplate")
		chkbtn:SetWidth(20)
		chkbtn:SetHeight(20)
		chkbtn.tooltip = "Enable the appearance of MetaMapBWP arrow. Just an Arrow pointing where you need to go.";
		getglobal(chkbtn:GetName() .. 'Text'):SetText("   MetaMapBWP Support")

		if tMetaMap.BWPPresence then
			chkbtn:Enable()
		else
			chkbtn:Disable()
		end
		if chkbtn:IsEnabled() then
			if tMetaMap.BWPEnable then
				chkbtn:SetChecked(true)
			else
				chkbtn:SetChecked(false)
			end
		else
			chkbtn:SetChecked(false)
		end
		return chkbtn
	end
	local function Render_SFMinimapCheckBox(fParent, sName)
		local checkbutton = CreateFrame("CheckButton", sName, fParent, "UICheckButtonTemplate")
		checkbutton:SetWidth(20)
		checkbutton:SetHeight(20)
		checkbutton:SetPoint("TOPLEFT", fParent, "TOPLEFT", 10, -10)
		getglobal(checkbutton:GetName() .. 'Text'):SetText("Minimap Button")
		if bMinimapToggle then
		  checkbutton:SetChecked(true)
		else
		  checkbutton:SetChecked(false)
		end
		return checkbutton
	end
	local function Render_SFColorSwatch(fParent, sText, tUI)
		local tCol = nil
		if sText == "VG_MainFrame" then
			tCol = tUI.MainFrameColor
		elseif sText == "VG_MainFrame_StepFrame" then
			tCol = tUI.StepFrameColor
		elseif sText == "VG_MainFrame_ScrollFrame" then
			tCol = tUI.ScrollFrameColor
		elseif sText == "VG_MainFrame_StepFrameLabel" then
			tCol = tUI.StepFrameTextColor
		elseif sText == "VG_MainFrame_ScrollFrameLabels" then
			tCol = tUI.ScrollFrameTextColor
		end
		local sSwatchName = "VG_ColorSwatch" .. "_" .. sText
		local btn = CreateFrame("Button", sSwatchName, fParent)--, "OptionsCheckButtonTemplate")
		local background = btn:CreateTexture(nil, "BACKGROUND")
		background:SetWidth(16)
		background:SetHeight(16)
		background:SetPoint("CENTER", 0, 0)
		background:SetTexture(.3, .3, .3, 1)
		local artwork = btn:CreateTexture(nil, "ARTWORK")
		artwork:SetWidth(13)
		artwork:SetHeight(13)
		artwork:SetPoint("CENTER", 0, 0)
		artwork:SetTexture(tCol.nR, tCol.nG, tCol.nB, tCol.nA)
		btn.background = background
		btn.artwork = artwork
		btn:SetWidth(16)
		btn:SetHeight(16)
		btn:SetNormalTexture(artwork)
		btn:SetScript( "OnClick", function()
			local frame = getglobal(sText)
			local tCol = nil
			local opacitySlider = nil 
			if sText == "VG_MainFrame" then
				tCol = tUI.MainFrameColor
				opacitySlider = true
			elseif sText == "VG_MainFrame_StepFrame" then
				tCol = tUI.StepFrameColor
				opacitySlider = true
			elseif sText == "VG_MainFrame_ScrollFrame" then
				tCol = tUI.ScrollFrameColor
				opacitySlider = true
			elseif sText == "VG_MainFrame_StepFrameLabel" then
				tCol = tUI.StepFrameTextColor
				opacitySlider = false
			elseif sText == "VG_MainFrame_ScrollFrameLabels" then
				tCol = tUI.ScrollFrameTextColor
				opacitySlider = false
			end
			
			local r1, g1, b1, a1 = tCol.nR, tCol.nG, tCol.nB, tCol.nA
			if ColorPickerFrame:IsShown() then
				ColorPickerFrame:Hide()
			else
				ColorPickerFrame.func = function(pV)
					local nr, ng, nb, na
					if pV then
						-- The user bailed, we extract the old color from the table created by ShowColorPicker.
						nr, ng, nb, na = pV.r, pV.g, pV.b, pV.a
						ColorPickerFrame.previousValues = {}
					else
						-- Something changed
						nr, ng, nb = ColorPickerFrame:GetColorRGB();
						na = 1 - OpacitySliderFrame:GetValue()
					end
					r1, g1, b1, a1 = nr, ng, nb, na
					btn.artwork:SetVertexColor(r1, g1, b1, a1)
					--btn.background:SetVertexColor(r1, g1, b1, a1)
					if sText == "VG_MainFrame" then 
						frame:SetBackdropColor(r1, g1, b1, a1)
						--VGuide.db.char.UIoptions.MainFrameColor = {
						tUI.MainFrameColor = {
							nR = r1, nG = g1, nB = b1, nA = a1,
						}
						oSettings:SetSettingsUI(tUI)
					elseif sText == "VG_MainFrame_StepFrame" then
						frame:SetBackdropColor(r1, g1, b1, a1)
						--VGuide.db.char.UIoptions.StepFrameColor = {						
						tUI.StepFrameColor = {
							nR = r1, nG = g1, nB = b1, nA = a1,
						}
						oSettings:SetSettingsUI(tUI)
					elseif sText == "VG_MainFrame_ScrollFrame" then
						frame:SetBackdropColor(r1, g1, b1, a1)
						--VGuide.db.char.UIoptions.ScrollFrameColor = {
						tUI.ScrollFrameColor = {
							nR = r1, nG = g1, nB = b1, nA = a1,
						}
						oSettings:SetSettingsUI(tUI)
					elseif sText == "VG_MainFrame_StepFrameLabel" then
						a1 = .99
						frame:SetTextColor(r1, g1, b1, a1)
						--VGuide.db.char.UIoptions.StepFrameTextColor = {
						tUI.ScrollFrameColor = {
							nR = r1, nG = g1, nB = b1, nA = a1,
						}
						oSettings:SetSettingsUI(tUI)
					elseif sText == "VG_MainFrame_ScrollFrameLabels" then
						local frame = getglobal("VG_MainFrame_ScrollFrameChild")
						local shEH = frame.Entries
						a1 = .71
						for _,v in pairs(shEH) do
							v:SetTextColor(r1, g1, b1, a1)
						end
						--VGuide.db.char.UIoptions.ScrollFrameTextColor = {
						tUI.ScrollFrameColor = {
							nR = r1, nG = g1, nB = b1, nA = a1,
						}
						oSettings:SetSettingsUI(tUI)
					end
				end
				ColorPickerFrame.cancelFunc = ColorPickerFrame.func
				ColorPickerFrame.opacityFunc = ColorPickerFrame.func
				
				ColorPickerFrame.hasOpacity = opacitySlider
				ColorPickerFrame.opacity = 1 - a1
				
				ColorPickerFrame.previousValues = { r = r1, g = g1, b = b1, a = a1}

				Dv(" -- r1: "..r1)
				Dv(" -- g1: "..g1)
				Dv(" -- b1: "..b1)
				Dv(" -- a1: " .. a1)
				ColorPickerFrame:SetColorRGB(r1, g1, b1, a1);
				ColorPickerFrame:Hide(); -- Need to run the OnShow handler.
				ColorPickerFrame:Show();
			end
		end)
		return btn
	end
	local function Render_SFColorSwatchLabel(fParent, sText)
		local fs = fParent:CreateFontString(nil, "ARTWORK", "GameFontNormalSmall")
		fs:SetPoint("LEFT", fParent, "RIGHT", 10, 0)
		fs:SetText(sText)
		return fs
	end
	local function Render_Button(fParent, sName, nWidth, nHeight, tTexture)
		local btn = CreateFrame("Button", sName, fParent)
		btn:SetWidth(nWidth)
		btn:SetHeight(nHeight)
		btn:SetNormalTexture(tTexture.NORMAL)
		btn:SetPushedTexture(tTexture.PUSHED)
		btn:SetHighlightTexture(tTexture.HIGHLIGHT)
		btn:RegisterForClicks("LeftButtonUp")
		return btn
	end
	local function Render_SFSlider(fParent, sName, sText, sLow, sHigh, nMin, nMax, nValue, sAppend)
		local sldr = CreateFrame("Slider", sName, fParent, "OptionsSliderTemplate")
		sldr:SetOrientation("HORIZONTAL");
		sldr:SetWidth(195)
		sldr:SetHeight(14)
		sldr:SetPoint("TOP", fParent, "TOP", 0, -200)
		getglobal(sldr:GetName() .. 'Text'):SetText(sText); --Sets the "title" text (top-centre of slider).
		getglobal(sldr:GetName() .. 'Low'):SetText(sLow); --Sets the left-side slider text (default is "Low").
		getglobal(sldr:GetName() .. 'High'):SetText(sHigh); --Sets the right-side slider text (default is "High").
		sldr:SetValueStep(1)
		sldr:SetMinMaxValues(nMin, nMax)
		sldr:SetValue(nValue)
		local fs = sldr:CreateFontString(nil, "ARTWORK", "GameFontNormalSmall")
		fs:SetTextColor(.59, .59, .59, 1)
		fs:SetJustifyH("CENTER")
		fs:SetJustifyV("BOTTOM")
		fs:SetPoint("CENTER", sldr, "BOTTOM", 0, -2)
		if sAppend then
			fs:SetText(tostring(nValue) .. sAppend)
		else
			fs:SetText(tostring(nValue))
		end
		sldr.fs = fs
		return sldr
	end

	obj.tWidgets = {}
	-------------------------------
	--- Rendering
	-------------------------------
	do
	-- Settings Frame
		obj.tWidgets.frame_SettingFrame = Render_SF(fParent, "VG_SettingsFrame")
		obj.tWidgets.button_CloseButton = Render_Button(obj.tWidgets.frame_SettingFrame, nil, 16, 16, tTexture.B_CLOSE)
		obj.tWidgets.button_CloseButton:SetPoint("TOPRIGHT", obj.tWidgets.frame_SettingFrame, "TOPRIGHT", -5, -5)
		obj.tWidgets.checkbutton_MetaMapNotesSupport = Render_SFMetamapNotesSupportCheckBox(obj.tWidgets.frame_SettingFrame, "VG_SettingsFrame_MetaMapNotesCheckButton", tMetaMap)
		obj.tWidgets.checkbutton_MetaMapNotesSupport:SetPoint("TOPLEFT", obj.tWidgets.frame_SettingFrame, "TOPLEFT", 8, -5)
		obj.tWidgets.checkbutton_MetaMapBWPSupport = Render_SFMetamapBWPSupportCheckBox(obj.tWidgets.frame_SettingFrame, "VG_SettingsFrame_MetaMapBWPCheckButton", tMetaMap)
		obj.tWidgets.checkbutton_MetaMapBWPSupport:SetPoint("TOPLEFT", obj.tWidgets.frame_SettingFrame, "TOPLEFT", 8, -20)
		--tWidgets.checkbutton_Minimap = Render_SFMinimapCheckBox(tWidgets.frame_SettingFrame, "VG_SettingsFrame_MinimapCheckButton")
		--tWidgets.slider_Minimap = Render_SFSlider(tWidgets.frame_SettingFrame, "VG_SettingFrame_MinimapSlider", "Minimap Button Placement", "-180", "+180", -180, 180, math.floor(nMinimapPos), nil)
		--tWidgets.slider_Minimap:SetPoint("TOP", tWidgets.frame_SettingFrame, "TOP", 0, -40)

		obj.tWidgets.colorpicker_StepFrameTextColor = Render_SFColorSwatch(obj.tWidgets.frame_SettingFrame, "VG_MainFrame_StepFrameLabel", tUI)
		obj.tWidgets.colorpicker_StepFrameTextColor:SetPoint("TOPLEFT", obj.tWidgets.frame_SettingFrame, "TOPLEFT", 10, -45)
		obj.tWidgets.fs_ColorPickerStepFrameTextColor = Render_SFColorSwatchLabel(obj.tWidgets.colorpicker_StepFrameTextColor, "StepFrame TextColor")
		
		obj.tWidgets.colorpicker_ScrollFrameTextColor = Render_SFColorSwatch(obj.tWidgets.frame_SettingFrame, "VG_MainFrame_ScrollFrameLabels", tUI)
		obj.tWidgets.colorpicker_ScrollFrameTextColor:SetPoint("TOPLEFT", obj.tWidgets.frame_SettingFrame, "TOPLEFT", 10, -63)
		obj.tWidgets.fs_ColorPickerScrollFrameTextColor = Render_SFColorSwatchLabel(obj.tWidgets.colorpicker_ScrollFrameTextColor, "ScrollFrame TextColor")
		
		obj.tWidgets.colorpicker_MainFrame = Render_SFColorSwatch(obj.tWidgets.frame_SettingFrame, "VG_MainFrame", tUI)
		obj.tWidgets.colorpicker_MainFrame:SetPoint("TOPLEFT", obj.tWidgets.frame_SettingFrame, "TOPLEFT", 10, -93)
		obj.tWidgets.fs_ColorPickerMainFrame = Render_SFColorSwatchLabel(obj.tWidgets.colorpicker_MainFrame, "MainFrame Background")

		obj.tWidgets.colorpicker_StepFrame = Render_SFColorSwatch(obj.tWidgets.frame_SettingFrame, "VG_MainFrame_StepFrame", tUI)
		obj.tWidgets.colorpicker_StepFrame:SetPoint("TOPLEFT", obj.tWidgets.frame_SettingFrame, "TOPLEFT", 10, -110)
		obj.tWidgets.fs_ColorPickerStepFrame = Render_SFColorSwatchLabel(obj.tWidgets.colorpicker_StepFrame , "StepFrame Tint")

		obj.tWidgets.colorpicker_ScrollFrame = Render_SFColorSwatch(obj.tWidgets.frame_SettingFrame, "VG_MainFrame_ScrollFrame", tUI)
		obj.tWidgets.colorpicker_ScrollFrame:SetPoint("TOPLEFT", obj.tWidgets.frame_SettingFrame, "TOPLEFT", 10, -127)
		obj.tWidgets.fs_ColorPickerScrollFrame = Render_SFColorSwatchLabel(obj.tWidgets.colorpicker_ScrollFrame, "ScrollFrame Tint")

		obj.tWidgets.slider_StepScroll = Render_SFSlider(obj.tWidgets.frame_SettingFrame, "VG_SettingsFrame_StepScrollSlider", "Value", "15%", "55%", 15, 55, math.floor(nStepScroll*100), "%")
		obj.tWidgets.slider_StepScroll:SetPoint("TOP", obj.tWidgets.frame_SettingFrame, "TOP", 0, -160)
		obj.tWidgets.slider_Opacity = Render_SFSlider(obj.tWidgets.frame_SettingFrame, "VG_SettingsFrame_OpacitySlider", "Opacity", "15%", "100%", 15, 100, math.floor(nOpacity*100), "%")
		obj.tWidgets.slider_Opacity:SetPoint("TOP", obj.tWidgets.frame_SettingFrame, "TOP", 0, -200)
		obj.tWidgets.slider_Scale = Render_SFSlider(obj.tWidgets.frame_SettingFrame, "VG_SettingsFrame_ScaleSlider", "Scale", "25%", "175%", 25, 175, math.floor(nScale*100), "%")
		obj.tWidgets.slider_Scale:SetPoint("TOP", obj.tWidgets.frame_SettingFrame, "TOP", 0, -240)
		obj.tWidgets.slider_Layer = Render_SFSlider(obj.tWidgets.frame_SettingFrame, "VG_SettingsFrame_LayerSlider", "Layer", "BG", "DIALOG", 1, 5, Layers[sLayer], sLayer)
		obj.tWidgets.slider_Layer:SetPoint("TOP", obj.tWidgets.frame_SettingFrame, "TOP", 0, -280)
		obj.tWidgets.slider_Layer.fs:SetText(sLayer)
	end

	-------------------------------
	--- UI Events Handling
	-------------------------------
	obj.tWidgets.frame_SettingFrame:SetScript("OnMouseDown", function()
		if arg1 == "LeftButton" and not this.isMoving then
			this:StartMoving();
			this.isMoving = true;
		end
	end)
	obj.tWidgets.frame_SettingFrame:SetScript("OnMouseUp", function()
		if arg1 == "LeftButton" and this.isMoving then
			this:StopMovingOrSizing();
			this.isMoving = false;
		end
	end)
	obj.tWidgets.frame_SettingFrame:SetScript("OnHide", function()
		if this.isMoving then
			this:StopMovingOrSizing();
			this.isMoving = false;
		end
	end)
	obj.tWidgets.button_CloseButton:SetScript("OnClick", function()
		local frame = this:GetParent()
		frame:Hide()
		frame.showthis = false
	end)
	obj.tWidgets.checkbutton_MetaMapNotesSupport:SetScript("OnClick", function()
		if arg1 == "LeftButton" then
			local bVal = this:GetChecked()
			local tMetaMap = oSettings:GetSettingsMetaMap()
			if not bVal then
				tMetaMap.NotesEnable = false
			else
				tMetaMap.NotesEnable = true
			end
			oSettings:SetSettingsMetaMap(tMetaMap)
		end
	end)
	obj.tWidgets.checkbutton_MetaMapBWPSupport:SetScript("OnClick", function()
		if arg1 == "LeftButton" then
			local bVal = this:GetChecked()
			local tMetaMap = oSettings:GetSettingsMetaMap()
			if not bVal then
				tMetaMap.BWPEnable = false
			else
				tMetaMap.BWPEnable = true
			end
			oSettings:SetSettingsMetaMap(tMetaMap)
		end
	end)
	--[[obj.tWidgets.checkbutton_Minimap:SetScript("OnClick", function()
		if arg1 == "LeftButton" then
			local button = getglobal("VG_MinimapButton")
			local bVal = this:GetChecked()
			if bVal == 1 then
				button:Show()
				button.closethis = false
				--VGuide.db.profile.UIoptions.MinimapToggle = true
				tUInew.UI.MinimapToggle = true
			else
				button:Hide()
				button.closethis = true
				--VGuide.db.profile.UIoptions.MinimapToggle = false
				tUInew.UI.MinimapToggle = false
			end
		end
	end)
	]]
	--[[obj.tWidgets.slider_Minimap:SetScript("OnValueChanged", function()
		local nVal = this:GetValue()
		local button = getglobal("VG_bMinimap")
		UI.PositionMinimapButton(button, nVal)
		--VGuide.db.profile.UIoptions.MinimapPos = nVal
		tUInew.UI.MinimapPos = nVal
		this.fs:SetText(nVal)
	end)
	]]
	obj.tWidgets.slider_StepScroll:SetScript("OnValueChanged", function()
		local nVal = arg1
		local fMain = getglobal("VG_MainFrame")
		local fStep = getglobal("VG_MainFrame_StepFrame")
		local fScroll = getglobal("VG_MainFrame_ScrollFrame")
		local fChild = getglobal("VG_MainFrame_ScrollFrameChild")
		local bStepFrame = tUI.StepFrameVisible
		local bScrollFrame = tUI.ScrollFrameVisible

		if bStepFrame and bScrollFrame then
			local nfMHeight = fMain:GetHeight()
			local nPer = nfMHeight * (1 - nVal/100)
			local nGap = nPer - (nfMHeight/2)
			fStep:SetPoint("TOPLEFT", fMain, "TOPLEFT", 5, -23)
			fStep:SetPoint("BOTTOMRIGHT", fMain, "RIGHT", -5, nGap)
			fScroll:SetPoint("TOPLEFT", fStep, "BOTTOMLEFT", 0, -2)
			--UI.SetSliderMinMax(fChild.nFSTotalHeight)
		end
		--VGuide.db.profile.UIoptions.StepScroll = nVal/100
		--VGuide.db.char.UIoptions.StepScroll = nVal/100
		tUI.StepScroll = nVal/100
		oSettings:SetSettingsUI(tUI)
		this.fs:SetText(nVal.."%")
	end)
	obj.tWidgets.slider_Opacity:SetScript("OnValueChanged", function()
		local nVal = arg1
		local frame = getglobal("VG_MainFrame")
		frame:SetAlpha(nVal/100)
		--VGuide.db.profile.UIoptions.Opacity = nVal/100
		--VGuide.db.char.UIoptions.Opacity = nVal/100
		tUI.Opacity = nVal/100
		oSettings:SetSettingsUI(tUI)
		this.fs:SetText(nVal.."%")
	end)
	obj.tWidgets.slider_Scale:SetScript("OnValueChanged", function()
		local nVal = arg1
		local frame = getglobal("VG_MainFrame")
		frame:SetScale(nVal/100)
		--VGuide.db.profile.UIoptions.Scale = nVal/100
		--VGuide.db.char.UIoptions.Scale = nVal/100
		tUI.Scale = nVal/100
		oSettings:SetSettingsUI(tUI)
		this.fs:SetText(nVal.."%")
	end)
	obj.tWidgets.slider_Layer:SetScript("OnValueChanged", function()
		local nVal = arg1
		local frame = getglobal("VG_MainFrame")
		--VGuide.db.profile.UIoptions.Layer = Layers[nVal]
		--VGuide.db.char.UIoptions.Layer = Layers[nVal]
		tUI.Layer = Layers[nVal]
		oSettings:SetSettingsUI(tUI)
		--frame:SetFrameStrata(VGuide.db.char.UIoptions.Layer)
		--this.fs:SetText(VGuide.db.char.UIoptions.Layer)
		frame:SetFrameStrata(tUI.Layer)
		this.fs:SetText(tUI.Layer)
	end)

	-------------------------------
	--- Initialization
	-------------------------------
	obj.tWidgets.frame_SettingFrame:Hide()
	--obj.tWidgets.frame_SettingFrame:Show()
	
	obj.ShowFrame = function(self)
		local f = obj.tWidgets.frame_SettingsFrame
		if not f:IsVisible() then
			f:Show()
		end
	end

	obj.HideFrame = function(self)
		local f = obj.tWidgets.frame_SettingsFrame
		if f:IsVisible() then
			f:Hide()
		end
	end

    return obj
end

Dv(" VGuide Frame_SettingsFrame.lua End")