PerfectRaid_Config.lua

--[[-------------------------------------------------------------------------
  Copyright (c) 2008, Jim Whitehead II <cladhaire@gmail.com>
  All rights reserved.

  Redistribution and use in source and binary forms, with or without
  modification, are permitted provided that the following conditions are
  met:

      * Redistributions of source code must retain the above copyright
        notice, this list of conditions and the following disclaimer.
      * Redistributions in binary form must reproduce the above
        copyright notice, this list of conditions and the following
        disclaimer in the documentation and/or other materials provided
        with the distribution.
      * Neither the name of PerfectRaid nor the names of its contributors
        may be used to endorse or promote products derived from this software
        without specific prior written permission.

  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
  "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
  LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
  A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
  OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
  LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
  OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
---------------------------------------------------------------------------]]

local Config = PerfectRaid:NewModule("PerfectRaid-Config")
local L = PerfectRaidLocals
local utils, frames

function Config:Initialize()
	self:RegisterMessage("DONGLE_PROFILE_CREATED")
	self:RegisterMessage("PERFECTRAID_TAB_CHANGED")
end

function Config:Enable()
	-- Toggle party visibility
	self:PartyVisibility()
end

local options
function Config:CreateOptions(opt)
	options = CreateFrame("Frame", "PROptions_Config", PROptions)

	local tab = opt:AddOptionsTab(L["Config"], options)

	options.widgets = {}

	local check = CreateFrame("CheckButton", "PRConfig_HideParty", options, "PRCheckTemplate")
	check.Label:SetText(L["Hide Blizzard Party Frames"])
	table.insert(options.widgets, check)

	local check = CreateFrame("CheckButton", "PRConfig_ShowManaOnly", options, "PRCheckTemplate")
	check.Label:SetText(L["Only show mana bar for mana users"])
	table.insert(options.widgets, check)

	local check = CreateFrame("CheckButton", "PRConfig_ClickCast", options, "PRCheckTemplate")
	check.Label:SetText(L["Enable click-casting on frames"])
	table.insert(options.widgets, check)

	local check = CreateFrame("CheckButton", "PRConfig_Lock", options, "PRCheckTemplate")
	check.Label:SetText(L["Lock frames"])
	table.insert(options.widgets, check)

	local roles = CreateFrame("CheckButton", "PRConfig_RaidRole", options, "PRCheckTemplate")
	roles.Label:SetText(L["Show raid roles"])
	roles:Show();
	roles:SetPoint( "TOPRIGHT", -160, 0 )	
	
	local role1 = CreateFrame("CheckButton", "PRConfig_RaidRoleTank", options, "PRCheckTemplate")
	role1.Label:SetText(L["Show tanks"])
	role1:Show();
	role1:SetPoint( "TOPLEFT", roles, "BOTTOMLEFT", 25, 0)
	
	local role2 = CreateFrame("CheckButton", "PRConfig_RaidRoleDamager", options, "PRCheckTemplate")
	role2.Label:SetText(L["Show damagers"])
	role2:Show();
	role2:SetPoint( "TOPLEFT", role1, "BOTTOMLEFT", 0, 0)
	
	local role3 = CreateFrame("CheckButton", "PRConfig_RaidRoleHealer", options, "PRCheckTemplate")
	role3.Label:SetText(L["Show healers"])
	role3:Show();
	role3:SetPoint( "TOPLEFT", role2, "BOTTOMLEFT", 0, 0)

	local check = CreateFrame("CheckButton", "PRConfig_RaidIcons", options, "PRCheckTemplate")
	check.Label:SetText(L["Show raid icons"])
	table.insert(options.widgets, check)	
	
	local iconPositionDropDown = CreateFrame("Frame", "PRConfig_IconPositionDropDown", options, "UIDropDownMenuTemplate")
	local clickFunc = function(self) UIDropDownMenu_SetSelectedValue(iconPositionDropDown, self.value) end
	iconPositionDropDown.Initialize = function()
		UIDropDownMenu_AddButton{text = L["Left of the name"], value = "LNAME", func = clickFunc}
		UIDropDownMenu_AddButton{text = L["Healthbar - left"], value = "LHBAR", func = clickFunc}
		UIDropDownMenu_AddButton{text = L["Healthbar - middle"], value = "MHBAR", func = clickFunc}
		UIDropDownMenu_AddButton{text = L["Healthbar - right"], value = "RHBAR", func = clickFunc}
	end
	iconPositionDropDown:SetScript("OnShow", function(f)
		UIDropDownMenu_Initialize(iconPositionDropDown, iconPositionDropDown.Initialize)
		UIDropDownMenu_SetSelectedValue(iconPositionDropDown,"LNAME")
	end)
	iconPositionDropDown:SetWidth(200);
	iconPositionDropDown:SetPoint("LEFT", check, "RIGHT", 100, 0)
	options.iconposition = iconPositionDropDown;
	
	local check = CreateFrame("CheckButton", "PRConfig_IncomingHeals", options, "PRCheckTemplate")
	check.Label:SetText(L["Show incoming heals"])
	table.insert(options.widgets, check)

	local cancel = CreateFrame("Button", "PRConfig_Cancel", options, "PRButtonTemplate")
	cancel:SetText(L["Cancel"])
	cancel:SetPoint("BOTTOMRIGHT", 0, 5)
	cancel:SetScript("OnClick", function() options:CancelOptions() end)
	cancel:Show()

	local save = CreateFrame("Button", "PRConfig_Save", options, "PRButtonTemplate")
	save:SetText(L["Save"])
	save:SetPoint("BOTTOMRIGHT", cancel, "BOTTOMLEFT", -10, 0)
	save:SetScript("OnClick", function() options:SaveOptions() end)
	save:Show()

	function options:SaveOptions()
		local hideParty = PRConfig_HideParty:GetChecked() and true or false
		local showMana = PRConfig_ShowManaOnly:GetChecked() and true or false
		local clickCast = PRConfig_ClickCast:GetChecked() and true or false
		local locked = PRConfig_Lock:GetChecked() and true or false
		local showRaidIcons = PRConfig_RaidIcons:GetChecked() and true or false
		local showIncomingHeals = PRConfig_IncomingHeals:GetChecked() and true or false 
		local showRoles = PRConfig_RaidRole:GetChecked() and true or false
		local showRoleTank = PRConfig_RaidRoleTank:GetChecked() and true or false
		local showRoleDamager = PRConfig_RaidRoleDamager:GetChecked() and true or false
		local showRoleHealer = PRConfig_RaidRoleHealer:GetChecked() and true or false
		local raidIconPosition = UIDropDownMenu_GetSelectedValue(PRConfig_IconPositionDropDown)
		
		PerfectRaid.db.profile.hideparty = hideParty
		PerfectRaid.db.profile.showmanaonly = showMana
		PerfectRaid.db.profile.clickcast = clickCast
		PerfectRaid.db.profile.locked = locked
		PerfectRaid.db.profile.showraidicons = showRaidIcons
		PerfectRaid.db.profile.showroles = showRoles
		PerfectRaid.db.profile.showroletank = showRoleTank
		PerfectRaid.db.profile.showroledamager = showRoleDamager
		PerfectRaid.db.profile.showrolehealer = showRoleHealer
		PerfectRaid.db.profile.raidiconposition = raidIconPosition
		PerfectRaid.db.profile.showincomingheals = showIncomingHeals

		PerfectRaid:TriggerMessage("PERFECTRAID_CONFIG_CHANGED")
		Config:PartyVisibility()
	end

	function options:CancelOptions()
		PRConfig_HideParty:SetChecked(PerfectRaid.db.profile.hideparty)
		PRConfig_ShowManaOnly:SetChecked(PerfectRaid.db.profile.showmanaonly)
		PRConfig_ClickCast:SetChecked(PerfectRaid.db.profile.clickcast)
		PRConfig_Lock:SetChecked(PerfectRaid.db.profile.locked)
		PRConfig_RaidIcons:SetChecked(PerfectRaid.db.profile.showraidicons)
		PRConfig_IncomingHeals:SetChecked(PerfectRaid.db.profile.showincomingheals)
		PRConfig_RaidRole:SetChecked(PerfectRaid.db.profile.showroles)
		PRConfig_RaidRoleTank:SetChecked(PerfectRaid.db.profile.showroletank)
		PRConfig_RaidRoleDamager:SetChecked(PerfectRaid.db.profile.showroledamager)
		PRConfig_RaidRoleHealer:SetChecked(PerfectRaid.db.profile.showrolehealer)
		UIDropDownMenu_SetSelectedValue(PRConfig_IconPositionDropDown,PerfectRaid.db.profile.raidiconposition)
	end

	options:SetScript("OnShow", function() options:CancelOptions() end)
	options:Hide()

	for idx,widget in ipairs(options.widgets) do
		widget:Show()
		if idx == 1 then
			widget:SetPoint("TOPLEFT", 0, 0)
		else
			widget:SetPoint("TOPLEFT", options.widgets[idx - 1], "BOTTOMLEFT", 0, -15)
		end
	end
	options.iconposition:Show();	
	
end

local old_ShowPartyFrame = ShowPartyFrame
function Config:PartyVisibility()
	local hideparty = PerfectRaid.db.profile.hideparty
	if hideparty then
		-- Disable the party frames
		self.hidingparty = true
		for i=1,4 do
                  -- The new frames don't have this...
			-- local f = getglobal("PartyMemberFrame"..i)
			-- f:UnregisterAllEvents()
		end
		if PartyMemberBackground and SHOW_PARTY_BACKGROUND == "1" then
			PartyMemberBackground:Hide()
		end

		ShowPartyFrame = function() end
		-- HidePartyFrame()
	elseif self.hidingparty then
		self.hidingparty = false
		for i=1,4 do
			local f = getglobal("PartyMemberFrame"..i)
			f:RegisterEvent("PLAYER_ENTERING_WORLD");
			f:RegisterEvent("GROUP_ROSTER_UPDATE");
			f:RegisterEvent("PARTY_LEADER_CHANGED");
			f:RegisterEvent("PARTY_MEMBER_ENABLE");
			f:RegisterEvent("PARTY_MEMBER_DISABLE");
			f:RegisterEvent("PARTY_LOOT_METHOD_CHANGED");
			f:RegisterEvent("MUTELIST_UPDATE");
			f:RegisterEvent("IGNORELIST_UPDATE");
			f:RegisterEvent("UNIT_FACTION");
			f:RegisterEvent("UNIT_AURA");
			f:RegisterEvent("UNIT_PET");
			f:RegisterEvent("VOICE_START");
			f:RegisterEvent("VOICE_STOP");
			f:RegisterEvent("VARIABLES_LOADED");
			f:RegisterEvent("VOICE_STATUS_UPDATE");
			f:RegisterEvent("READY_CHECK");
			f:RegisterEvent("READY_CHECK_CONFIRM");
			f:RegisterEvent("READY_CHECK_FINISHED");
		end
		if PartyMemberBackground and SHOW_PARTY_BACKGROUND == "1" then
			PartyMemberBackground:Show()
		end
		ShowPartyFrame = old_ShowPartyFrame
		ShowPartyFrame()
	end
end