
-----------------------------------------------------------------
--   LibDataBrokerToTitan, a "bridge" module to ensure proper  -- 
--   registration and communication of LDB plugins with        --
--   Titan Panel (work in progress);                           --
--                                                             --
--   By Tristanian aka "TristTitan" (tristanian@live.com)      --
--   Created and initially commited on : July 29th, 2008       --
--   Latest version: 2.8 Beta June 16th, 2009                  --
-----------------------------------------------------------------

-- Refined Ace2 table for matching addon metadata stuff

local xcategories = {
	["Action Bars"] = "Interface",
	["Auction"] = "Information",
	["Audio"] = "Interface",
	["Battlegrounds/PvP"] = "Information",
	["Buffs"] = "Information",
	["Chat/Communication"] = "Interface",
	["Druid"] = "Information",
	["Hunter"] = "Information",
	["Mage"] = "Information",
	["Paladin"] = "Information",
	["Priest"] = "Information",
	["Rogue"] = "Information",
	["Shaman"] = "Information",
	["Warlock"] = "Information",
	["Warrior"] = "Information",
	["Healer"] = "Information",
	["Tank"] = "Information",
	["Caster"] = "Information",
	["Combat"] = "Combat",
	["Compilations"] = "General",
	["Data Export"] = "General",
	["Development Tools "] = "General",
	["Guild"] = "Information",
	["Frame Modification"] = "Interface",
	["Interface Enhancements"] = "Interface",
	["Inventory"] = "Information",
	["Library"] = "General",
	["Map"] = "Interface",
	["Mail"] = "Information",
	["Miscellaneous"] = "General",
	["Misc"] = "General",
	["Quest"] = "Information",
	["Raid"] = "Information",
	["Tradeskill"] = "Profession",
	["UnitFrame"] = "Interface",
}

-- Unsupported Data Object types table
local UnsupportedDOTypes = { "cork" }

local _G = getfenv(0);
local InCombatLockdown	= _G.InCombatLockdown;
local LDBToTitan = CreateFrame("Frame", "LDBTitan")
local ldb = LibStub:GetLibrary("LibDataBroker-1.1")
local Tablet = nil
local LibQTip = nil
local media = LibStub("LibSharedMedia-3.0")
local LDBAttrs = {};

LDBToTitan:RegisterEvent("PLAYER_LOGIN")

-- Couple of functions to properly anchor tooltips for Titan (LDB) objects with a generic frame and function as args

function TitanLDBSetOwnerPosition(parent, anchorPoint, relativeToFrame, relativePoint, xOffset, yOffset, frame)

 if frame:GetName() == "GameTooltip" then
 	frame:SetOwner(parent, "ANCHOR_NONE");
  -- set alpha (transparency) for the Game Tooltip
	local red, green, blue, _ = GameTooltip:GetBackdropColor();
	local red2, green2, blue2, _ = GameTooltip:GetBackdropBorderColor();
	frame:SetBackdropColor(red,green,blue,TitanPanelGetVar("TooltipTrans"));
	frame:SetBackdropBorderColor(red2,green2,blue2,TitanPanelGetVar("TooltipTrans"));
	
	-- set font size for the Game Tooltip
	if not TitanPanelGetVar("DisableTooltipFont") then
		if TitanTooltipScaleSet < 1 then
		TitanTooltipOrigScale = GameTooltip:GetScale();
		TitanTooltipScaleSet = TitanTooltipScaleSet + 1;
		end
		frame:SetScale(TitanPanelGetVar("TooltipFont"));
	end
  
 end
  frame:ClearAllPoints();
  frame:SetPoint(anchorPoint, relativeToFrame, relativePoint, xOffset, yOffset);
end



function LDBToTitan:TitanLDBSetTooltip(name, frame, func)
-- Check to see if we allow tooltips to be shown
  if not TitanPanelGetVar("ToolTipsShown") or (TitanPanelGetVar("HideTipsInCombat") and InCombatLockdown()) then
		return;
	end
	-- Set custom DO tooltip
	local button = TitanUtils_GetButton(name);
	local position = TitanPanelGetVar("Position");
	local scale = TitanPanelGetVar("Scale");	
	local offscreenX, offscreenY;
	local i = TitanPanel_GetButtonNumber(name);

	if (TitanPanelSettings.Location[i] == "Bar") then 
		if position == TITAN_PANEL_PLACE_TOP then
			TitanLDBSetOwnerPosition(button, "TOPLEFT", button:GetName(), "BOTTOMLEFT", -10, -4 * scale, frame);
			
			-- Adjust frame position if it's off the screen
			offscreenX, offscreenY = TitanUtils_GetOffscreen(frame);
			if ( offscreenX == -1 ) then
				TitanLDBSetOwnerPosition(button, "TOPLEFT", "TitanPanelBarButton", "BOTTOMLEFT", 0, 0, frame);
			elseif ( offscreenX == 1 ) then
				TitanLDBSetOwnerPosition(button, "TOPRIGHT", "TitanPanelBarButton", "BOTTOMRIGHT", 0, 0, frame);
			end
				
		else
			TitanLDBSetOwnerPosition(button, "BOTTOMLEFT", button:GetName(), "TOPLEFT", -10, 4 * scale, frame);	
			-- Adjust frame position if it's off the screen
			offscreenX, offscreenY = TitanUtils_GetOffscreen(frame);
			if ( offscreenX == -1 ) then
				TitanLDBSetOwnerPosition(button, "BOTTOMLEFT", "TitanPanel" .. TitanPanelSettings.Location[i] .."Button", "TOPLEFT", 0, 0, frame);
			elseif ( offscreenX == 1 ) then
				TitanLDBSetOwnerPosition(button, "BOTTOMRIGHT", "TitanPanel" .. TitanPanelSettings.Location[i] .."Button", "TOPRIGHT", 0, 0, frame);
			end
		end
	else
		TitanLDBSetOwnerPosition(button, "BOTTOMLEFT", button:GetName(), "TOPLEFT", -10, 4 * scale, frame);
		-- Adjust frame position if it's off the screen
		offscreenX, offscreenY = TitanUtils_GetOffscreen(frame);
		if ( offscreenX == -1 ) then
			TitanLDBSetOwnerPosition(button, "BOTTOMLEFT", "TitanPanelAuxBarButton", "TOPLEFT", 0, 0, frame);
		elseif ( offscreenX == 1 ) then
			TitanLDBSetOwnerPosition(button, "BOTTOMRIGHT", "TitanPanelAuxBarButton", "TOPRIGHT", 0, 0, frame);
		end
	end
	
	if func then func(frame) end;
	frame:Show();
end


-- Script Handler goes here

function LDBToTitan:TitanLDBHandleScripts(event, name, _, func, obj)
--DEFAULT_CHAT_FRAME:AddMessage("LDB:"..name..".".. event.. " is fired.")
local TitanPluginframe = _G["TitanPanel".."LDBT_"..name.."Button"];
	
	-- This implementation will work fine for a static tooltip
	-- but may have implications for dynamic ones
	-- so for now, we'll only set it once (no callback) and see what happens
	
	if event:find("tooltip") and not event:find("OnTooltipShow") then		
       local pluginframe = _G[obj.tooltip] or obj.tooltip
			  if pluginframe then
			 		TitanPluginframe:SetScript("OnEnter", function(self)
			 		  TitanPanelButton_OnEnter(self);
			 		  --if obj.OnEnter then
			    	--obj.OnEnter(self)
			 			--end
			 		  LDBToTitan:TitanLDBSetTooltip("LDBT_"..name, pluginframe, nil)
			 		end)
			 					 		
			 		TitanPluginframe:SetScript("OnMouseDown", function(self)
			 		  pluginframe:Hide();			 		
			 		end)	
			
			 		if pluginframe:GetScript("OnLeave") then
			 		-- do nothing
			 		else
			 			TitanPluginframe:SetScript("OnLeave", function(self)
			 				if obj.OnLeave then
			    			obj.OnLeave(self)
			 				end
			 				pluginframe:Hide();
			 				TitanPanelButton_OnLeave(self);
			 			end)
			 		end
										
			 		if pluginframe:GetName()~="GameTooltip" then
			 			if pluginframe:GetScript("OnShow") then
							-- do nothing
						else
							pluginframe:SetScript("OnShow", function(self)
							LDBToTitan:TitanLDBSetTooltip("LDBT_"..name, pluginframe, nil)
							end)
						end
			 	  end			 		       			        			 	
        end

	elseif event:find("OnTooltipShow") then
	
	TitanPluginframe:SetScript("OnEnter", function(self)
		if TITAN_PANEL_MOVING == 0 and func then				
			LDBToTitan:TitanLDBSetTooltip("LDBT_"..name, GameTooltip, func);
		end
			TitanPanelButton_OnEnter(self);
		end)
	TitanPluginframe:SetScript("OnLeave", function(self) 
		GameTooltip:Hide();
		TitanPanelButton_OnLeave(self);
		end)
		
	elseif event:find("OnDoubleClick") and not event:find("OnClick") then
	TitanPluginframe:SetScript("OnDoubleClick", function(self, button)
	  	if TITAN_PANEL_MOVING == 0 then
	  	func(self, button) 
	  	end	  	
	  	end)	
		
	elseif event:find("OnClick") then
	TitanPluginframe:SetScript("OnClick", function(self, button)
	  	if TITAN_PANEL_MOVING == 0 then
	  	func(self, button) 
	  	end
	  	-- implement a safeguard, since the DO may actually use Blizzy dropdowns !
	  	if not TitanPanelRightClickMenu_IsVisible() then
	  		TitanPanelButton_OnClick(self, button);
	  	else
	  		TitanUtils_CloseAllControlFrames();
	  	end
	  	end)	  
	else
	
	TitanPluginframe:SetScript("OnEnter", function(self)
	-- Check for tooltip libs without embedding them 
	if AceLibrary:HasInstance("Tablet-2.0") then Tablet = AceLibrary("Tablet-2.0") end
	LibQTip = LibStub("LibQTip-1.0", true)
	-- Check to see if we allow tooltips to be shown
		if not TitanPanelGetVar("ToolTipsShown") or (TitanPanelGetVar("HideTipsInCombat") and InCombatLockdown()) then
		-- if a plugin is using tablet, then detach and close the tooltip
			if Tablet and Tablet:IsRegistered(TitanPluginframe) and Tablet:IsAttached(TitanPluginframe) then
				Tablet:Detach(TitanPluginframe);
				Tablet:Close(TitanPluginframe);
			end
			return;
		else			
		-- if a plugin is using tablet, then re-attach the tooltip (it will auto-open on mouseover)
		  if Tablet and Tablet:IsRegistered(TitanPluginframe) and not Tablet:IsAttached(TitanPluginframe) then
		  	Tablet:Attach(TitanPluginframe);
		  end
		end
		-- if a plugin is using tablet then set its transparency and font size accordingly
			if Tablet and Tablet:IsRegistered(TitanPluginframe) then
				Tablet:SetTransparency(TitanPluginframe, TitanPanelGetVar("TooltipTrans"))
				if not TitanPanelGetVar("DisableTooltipFont") then
					Tablet:SetFontSizePercent(TitanPluginframe, TitanPanelGetVar("TooltipFont"))
				elseif TitanPanelGetVar("DisableTooltipFont") and Tablet:GetFontSizePercent(TitanPluginframe)~=1 then
					Tablet:SetFontSizePercent(TitanPluginframe, 1)
				end				
			end
		-- set original tooltip scale for GameTooltip
			if not TitanPanelGetVar("DisableTooltipFont") then
				TitanTooltipOrigScale = GameTooltip:GetScale();
			end
			-- call OnEnter on LDB Object
			if TITAN_PANEL_MOVING == 0 and func then
				func(self)
			end
			TitanPanelButton_OnEnter(self);			
			-- LibQTip-1.0 support code
			if LibQTip then
				local tt = nil
				local key, tip
				for key, tip in LibQTip:IterateTooltips() do
					if tip then
						local _, relativeTo = tip:GetPoint()
							if relativeTo and relativeTo:GetName() == TitanPluginframe:GetName() then
								tt = tip
								break
							end
					end
				end
				if tt then
					-- set transparency
					local red, green, blue, _ = tt:GetBackdropColor()
					local red2, green2, blue2, _ = tt:GetBackdropBorderColor()
					tt:SetBackdropColor(red,green,blue,TitanPanelGetVar("TooltipTrans"))
					tt:SetBackdropBorderColor(red2,green2,blue2,TitanPanelGetVar("TooltipTrans"))				
				end
		-- /LibQTip-1.0 support code
			end
		end)
		
		TitanPluginframe:SetScript("OnLeave", function(self)
			if obj.OnLeave then 
			obj.OnLeave(self) 
			end
			TitanPanelButton_OnLeave(self);
		end)
		
	end
end


-- Text Update Handlers go here

function LDBToTitan:TitanLDBTextUpdate(_, name,  attr, value, dataobj)
  --if attr and value then
  --DEFAULT_CHAT_FRAME:AddMessage("LDB:"..name..".".. attr.. " was changed to ".. tostring(value))
  --end
  if attr == "value" then
  	LDBAttrs[name].value = value;
  end
  if attr == "suffix" then
  	LDBAttrs[name].suffix = value;
  end
  if attr == "text" then
  	LDBAttrs[name].text = value;
  end
  if attr == "label" then
  	LDBAttrs[name].label = value;
  end
  TitanPanelButton_UpdateButton("LDBT_"..name)
end


function TitanLDBShowText(name)
  local nametrim = string.gsub (name, "LDBT_", "");
  local fontstring = _G["TitanPanelLDBT_"..nametrim.."ButtonText"];
  local displayValue, displaySuffix, displayText = "", "", ""
  local separator = ": "
  
  -- Check for display text
  if TitanGetVar(name, "ShowRegularText") then
  	if LDBAttrs[nametrim].value then displayValue = LDBAttrs[nametrim].value end
  	if LDBAttrs[nametrim].suffix then displaySuffix = LDBAttrs[nametrim].suffix end
  	if LDBAttrs[nametrim].text then displayText = LDBAttrs[nametrim].text end
  else
  	separator = ""
  end
  
  -- Fix color text issues
  if TitanGetVar(name, "ShowColoredText") then
	 	fontstring:SetTextColor(0,255,0); -- Green
	 else
	  fontstring:SetTextColor(255,255,255); -- Highlight
	 end
  
   if LDBAttrs[nametrim].suffix and LDBAttrs[nametrim].suffix ~="" then   	
   	if LDBAttrs[nametrim].label and LDBAttrs[nametrim].label~="" then
   			if TitanGetVar(name, "ShowColoredText") then   			
   			return TitanUtils_GetNormalText(LDBAttrs[nametrim].label)..separator, TitanUtils_GetGreenText(displayValue.." "..displaySuffix);
   			else   			
   			return TitanUtils_GetNormalText(LDBAttrs[nametrim].label)..separator, TitanUtils_GetHighlightText(displayValue.." "..displaySuffix);
   			end
   	else
   			if TitanGetVar(name, "ShowColoredText") then   			
   			return "", TitanUtils_GetGreenText(displayValue.." "..displaySuffix);
   			else   			
   			return "", TitanUtils_GetHighlightText(displayValue.." "..displaySuffix);
   			end
   	end
   elseif LDBAttrs[nametrim].label == LDBAttrs[nametrim].text then
   			if TitanGetVar(name, "ShowColoredText") then   			
   			return TitanUtils_GetGreenText(displayText), "";
   			else   			
   			return TitanUtils_GetNormalText(displayText), "";
   			end
   else    
    if LDBAttrs[nametrim].label and LDBAttrs[nametrim].label~="" then
        if TitanGetVar(name, "ShowColoredText") then        	
        	return TitanUtils_GetNormalText(LDBAttrs[nametrim].label)..separator, TitanUtils_GetGreenText(displayText);
        else   				
   				return TitanUtils_GetNormalText(LDBAttrs[nametrim].label)..separator, TitanUtils_GetHighlightText(displayText);
   			end
    else
   			if TitanGetVar(name, "ShowColoredText") then   				
   				return "", TitanUtils_GetGreenText(displayText);
   			else   				
   				return "", TitanUtils_GetHighlightText(displayText);
      	end
    end
   end
 
end

-- Icon Handler goes here

function LDBToTitan:TitanLDBIconUpdate(_, name,  attr, value, dataobj)
 if attr == "icon" then
 TitanPlugins["LDBT_"..name].icon = value;
 TitanPanelButton_SetButtonIcon("LDBT_"..name);
 end
 
 -- support for iconCoords, iconR, iconG, iconB attributes
 if attr == "iconCoords" then
 	TitanPanelButton_SetButtonIcon("LDBT_"..name, value);
 end
 
 if attr == "iconR" or attr == "iconB" or attr == "iconG" then 
 	TitanPanelButton_SetButtonIcon("LDBT_"..name, nil, dataobj.iconR, dataobj.iconG, dataobj.iconB);
 end
  
end


-- New DO gets created here

function LDBToTitan:TitanLDBCreateObject(_, name, obj)
   -- phear the custom obj.type !
   -- Regular DO's should be fine 
   -- Launchers are being treated as a DO but may change behavior from within Titan core (right-side plugins with only an icon and a tooltip/Click)
		
   --DEFAULT_CHAT_FRAME:AddMessage("Attempting to register "..name..".");
   
   -- Unsupported Data Object types
   local idx
   for idx in ipairs(UnsupportedDOTypes) do
   	if obj.type and obj.type == UnsupportedDOTypes[idx] then return end
   end
   -- End Unsupported Data Object types
		
    local idTitan, menuTextTitan, iconTitan, categoryTitan;
   
   -- Create the Titan Frame as a Combo (for now)
   
    local newTitanFrame = CreateFrame("Button","TitanPanel".."LDBT_"..name.."Button", UIParent, "TitanPanelComboTemplate")  
    newTitanFrame:SetFrameStrata("FULLSCREEN");
    newTitanFrame:SetToplevel(true);
    newTitanFrame:RegisterForClicks("LeftButtonUp", "RightButtonUp");
    LDBAttrs[name] = {};
    
    -- Handle the attributes of the DO and register the appropriate callbacks (where applicable)
    
       if obj.type then
       LDBAttrs[name].type = obj.type;
       end
    
       idTitan = "LDBT_"..name;
       menuTextTitan = obj.label or name; -- this may change
       
       if obj.label and obj.label~="" then
       	LDBAttrs[name].label = obj.label;
       else
       	LDBAttrs[name].label = "";
       end
       ldb.RegisterCallback(self, "LibDataBroker_AttributeChanged_"..name.."_label", "TitanLDBTextUpdate") -- register the label callback anyway in case a plugin changes label 
       
       if obj.suffix then
       	LDBAttrs[name].suffix = obj.suffix;
       	LDBAttrs[name].value = obj.value or "?";
       	ldb.RegisterCallback(self, "LibDataBroker_AttributeChanged_"..name.."_value", "TitanLDBTextUpdate")
       	ldb.RegisterCallback(self, "LibDataBroker_AttributeChanged_"..name.."_suffix", "TitanLDBTextUpdate")
       elseif obj.text then
       	LDBAttrs[name].text = obj.text;       	       	
       	 -- detect launchers that use the text attribute, but no separate label *sigh*
       		if obj.type == "launcher" and not obj.label then
       			LDBAttrs[name].label = obj.text
       		end
       	ldb.RegisterCallback(self, "LibDataBroker_AttributeChanged_"..name.."_text", "TitanLDBTextUpdate")
       else
       	if obj.type == "launcher" and obj.label then -- this is kind of a "hack" to avoid using a badly formatted addon name as text (needs testing)
       		LDBAttrs[name].text = obj.label;
       	elseif obj.type == "launcher" and not obj.label then -- detect launchers with no label and no text attribute
       		LDBAttrs[name].text = name;
       		LDBAttrs[name].label = name;
       	else
       		LDBAttrs[name].text = name;
       	end
       	 ldb.RegisterCallback(self, "LibDataBroker_AttributeChanged_"..name.."_text", "TitanLDBTextUpdate") -- register the callback anyway in case a plugin changes text via a timed update
       end
         
       
       if obj.icon then
       iconTitan = obj.icon;
       else
       iconTitan = "Interface\\PVPFrame\\\PVP-ArenaPoints-Icon"; -- generic icon in case the DO does not provide one
       end
       ldb.RegisterCallback(self, "LibDataBroker_AttributeChanged_"..name.."_icon", "TitanLDBIconUpdate")
       
       -- support for iconCoords, iconR, iconG, iconB attributes
       -- Due to the callbacks being fired these can easily affect performance, BEWARE when using them !
       
       if obj.iconCoords then
       self:TitanLDBIconUpdate(nil, name, "iconCoords", obj.iconCoords, obj)
       ldb.RegisterCallback(self, "LibDataBroker_AttributeChanged_"..name.."_iconCoords", "TitanLDBIconUpdate")
       end
       
       if obj.iconR and obj.iconG and obj.iconB then
       self:TitanLDBIconUpdate(nil, name, "iconR", obj.iconR, obj)
       ldb.RegisterCallback(self, "LibDataBroker_AttributeChanged_"..name.."_iconR", "TitanLDBIconUpdate")
       ldb.RegisterCallback(self, "LibDataBroker_AttributeChanged_"..name.."_iconG", "TitanLDBIconUpdate")
       ldb.RegisterCallback(self, "LibDataBroker_AttributeChanged_"..name.."_iconB", "TitanLDBIconUpdate")
       end
                            
       -- tooltip > OnEnter > OnTooltipShow > 
       if obj.tooltip then       
       self:TitanLDBHandleScripts("tooltip", name, nil, obj.tooltip, obj)
       --ldb.RegisterCallback(self, "LibDataBroker_AttributeChanged_"..name.."_tooltip", "TitanLDBHandleScripts")
       elseif obj.OnEnter then       
			 self:TitanLDBHandleScripts("OnEnter", name, nil, obj.OnEnter, obj)
			 elseif obj.OnTooltipShow then
			 self:TitanLDBHandleScripts("OnTooltipShow", name, nil, obj.OnTooltipShow, obj)
			 else
			 self:TitanLDBHandleScripts("OnEnter", name, nil, nil, obj)
			 ldb.RegisterCallback(self, "LibDataBroker_AttributeChanged_"..name.."_OnEnter", "TitanLDBHandleScripts")
			 ldb.RegisterCallback(self, "LibDataBroker_AttributeChanged_"..name.."_OnTooltipShow", "TitanLDBHandleScripts")
			 end
			 
			 if obj.OnClick then
			 self:TitanLDBHandleScripts("OnClick", name, nil, obj.OnClick)
			 else
			 ldb.RegisterCallback(self, "LibDataBroker_AttributeChanged_"..name.."_OnClick", "TitanLDBHandleScripts")
			 end
			 			 
			 if obj.OnDoubleClick then
			 self:TitanLDBHandleScripts("OnDoubleClick", name, nil, obj.OnDoubleClick)
			 else
			 ldb.RegisterCallback(self, "LibDataBroker_AttributeChanged_"..name.."_OnDoubleClick", "TitanLDBHandleScripts")
			 end
       
       -- Set the plugin category, if it exists else default to "General"
       -- We check for a tocname attrib first, if found we use it, if not...
       -- ..we assume that the DO "name" attribute is the same with the actual
       -- addon name, which might not always be the case.
       -- Even if it isn't though, Titan defaults again to "General"
       -- via a check in the menu implementation, later on.
       local addoncategory, addonversion;
       local tempname = obj.tocname or name;
       
       	if IsAddOnLoaded(tempname) then
       		addoncategory = GetAddOnMetadata(tempname, "X-Category");
       		addonversion = GetAddOnMetadata(tempname, "Version");
       	end
              
       if xcategories[addoncategory] then
       	categoryTitan = xcategories[addoncategory];
       end
       
       
   -- Compile the appropriate Titan registry for the DO
   
   local ldbtype = tostring(obj.type);
   local ldblabelvalue = tostring (obj.label);
   
   -- Apparently some launchers are using a malformed spec by setting a "launcher" attribute to true
   -- so...(sigh) we need to compensate for this by...guessing that it MAY happen
   
   if obj.launcher and obj.type~="data source" and (obj.launcher == true or obj.launcher == yes or obj.launcher == "yes") then
   	ldbtype = "launcher";
   end
   
newTitanFrame.registry = {
          id = idTitan,
          ldb = ldbtype,
          ldblabel = ldblabelvalue,
          menuText = menuTextTitan,
          buttonTextFunction = "TitanLDBShowText", 
          icon = iconTitan,     
          iconWidth = 16,          
          savedVariables = {
               ShowIcon = 1,
               ShowLabelText = 1,
               ShowRegularText = 1,
               ShowColoredText = false,
               DisplayOnRightSide = false
          }
     };
          
     if categoryTitan~="" then
      newTitanFrame.registry["category"]= categoryTitan;
     end
     
     if addonversion ~="" then
      newTitanFrame.registry["version"]= addonversion;
     end
     
     if ldbtype == "launcher" then
     	newTitanFrame.registry["savedVariables"].DisplayOnRightSide = 1;
     end
         
    TitanPanelButton_OnLoad(newTitanFrame);
    
    -- Syncronize Plugins that were created after PLAYER_LOGIN
    if TitanPluginSettings then    
			TitanVariables_SyncPluginSettings();
			TitanVariables_HandleLDB();
			-- set plugin font
			local newfont, index, id;
			newfont = media:Fetch("font", TitanPanelGetVar("FontName"))					
			local button = TitanUtils_GetButton(idTitan);
			local buttonText = _G[button:GetName().."Text"];
				if buttonText then
					buttonText:SetFont(newfont, TitanPanelGetVar("FontSize"));
				end
			-- set plugin strata
			local StrataTypes = {"BACKGROUND", "LOW", "MEDIUM", "HIGH", "DIALOG", "FULLSCREEN", "FULLSCREEN_DIALOG"}
			local indexpos = 5 -- DIALOG
			local currentstrata = TitanPanelGetVar("FrameStrata")
			for index in ipairs(StrataTypes) do
	 			if currentstrata == StrataTypes[index] then
	 				indexpos = index
	 				break
	 			end
			end
			button:SetFrameStrata(StrataTypes[indexpos + 1])
		
		-- Add plugins created after PLAYER_ENTERING_WORLD to the bar (if they were shown on last logout)
		local i
			for i,_ in pairs(TitanPanelSettings.Buttons) do
				if TitanPanelSettings.Buttons[i] == idTitan then
					TITAN_PANEL_MOVE_ADDON = 1 -- dummy value to avoid unnecessary function calls in button init function
					TitanPanel_InitPanelButtons()
					TITAN_PANEL_MOVE_ADDON = nil
					break
				end
			end
			
		end
end


LDBToTitan:SetScript("OnEvent", function(self, event, ...)
	 if (event == "PLAYER_LOGIN") then	 
	  self:SetScript("OnEvent", nil) 
	  self:UnregisterEvent("PLAYER_LOGIN")
		ldb.RegisterCallback(self, "LibDataBroker_DataObjectCreated", "TitanLDBCreateObject")
    	  	for name, obj in ldb:DataObjectIterator() do
			self:TitanLDBCreateObject(nil, name, obj)
		--DEFAULT_CHAT_FRAME:AddMessage("Registered "..name..".");			
	  	end
    	 end
end)