--- a/CensusPlayerList.lua	Sun Aug 14 15:16:35 2011 +0000
+++ b/CensusPlayerList.lua	Sun Aug 14 17:21:31 2011 +0200
@@ -1,296 +1,302 @@
---[[
-	CensusPlus for World of Warcraft(tm).
-	
-	Copyright 2005 - 2006 Cooper Sellers and WarcraftRealms.com
-
-	License:
-		This program is free software; you can redistribute it and/or
-		modify it under the terms of the GNU General Public License
-		as published by the Free Software Foundation; either version 2
-		of the License, or (at your option) any later version.
-
-		This program is distributed in the hope that it will be useful,
-		but WITHOUT ANY WARRANTY; without even the implied warranty of
-		MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-		GNU General Public License for more details.
-
-		You should have received a copy of the GNU General Public License
-		along with this program(see GLP.txt); if not, write to the Free Software
-		Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
-]]
-
-
-------------------------------------------------------------------------------------
---
--- CensusPlus
--- A WoW UI customization by Cooper Sellers
---
---
-------------------------------------------------------------------------------------
-
-local g_PlayerList = {};			
-local g_PlayerLookupTable = {};				
-local CensusPlus_NumPlayerButtons = 20;
-local g_MaxNumListed = 1000;
-
-function CensusPlus_ShowPlayerList()
-	CP_PlayerListWindow:Show();
-end
-
-function CensusPlus_PlayerListOnShow()
-
-	debugprofilestart();
-	
-	local guildKey = nil;
-	local raceKey = nil;
-	local classKey = nil;
-	local levelKey = nil;
-	
-
-	--
-	--  Clear our character list
-	--
-	CensusPlus_ClearPlayerList();
-	
-	--
-	-- Get realm and faction
-	--
-	local realmName = g_CensusPlusLocale .. GetCVar("realmName");
-	if( realmName == nil ) then
-		return;
-	end
-
-	local factionGroup = UnitFactionGroup("player");
-	if( factionGroup == nil ) then
-		return;
-	end
-	
-
-	--
-	-- Has the user made any selections?
-	--
-	if (g_GuildSelected ~= nil ) then
-		guildKey = g_GuildSelected;
-	end
-	if (g_RaceSelected > 0) then
-		local thisFactionRaces = CensusPlus_GetFactionRaces(factionGroup);
-		raceKey = thisFactionRaces[g_RaceSelected];
-	end
-	if (g_ClassSelected > 0) then
-		local thisFactionClasses = CensusPlus_GetFactionClasses(factionGroup);
-		classKey = thisFactionClasses[g_ClassSelected];
-	end
-	if (g_LevelSelected > 0 or g_LevelSelected < 0) then
-		levelKey = g_LevelSelected;
-	end
-
-	debugprofilestart();
-
-	CensusPlus_ForAllCharacters( realmName, factionGroup, raceKey, classKey, guildKey, levelKey, CensusPlus_AddPlayerToList);
-		
-	if( CensusPlus_EnableProfiling ) then
-		CensusPlus_Msg( "PROFILE: Time to do calcs 1 " .. debugprofilestop() / 1000000000 );
-		debugprofilestart();
-	end
-		
-
-	--
-	--  Build our list
-	--
-	CensusPlus_UpdatePlayerListButtons();
-	
-	local totalCharactersText = format(CENSUSPlus_TOTALCHAR, table.getn( g_PlayerList ) );
-	if( table.getn( g_PlayerList ) == g_MaxNumListed ) then
-		totalCharactersText = totalCharactersText .. " -- " .. CENSUSPlus_MAXXED;
-	end
-	
-	CensusPlayerListCount:SetText(totalCharactersText);
-
-end
-
-----------------------------------------------------------------------------------
---
--- Predicate function which can be used to compare two characters for sorting
---
----------------------------------------------------------------------------------
-local function CharacterPredicate(lhs, rhs)
-	--
-	-- nil references are always less than
-	--
-	if (lhs == nil) then
-		if (rhs == nil) then
-			return false;
-		else
-			return true;
-		end
-	elseif (rhs == nil) then
-		return false;
-	end
-	--
-	-- Sort by name
-	--
-	if (lhs.m_name < rhs.m_name) then
-		return true;
-	elseif (rhs.m_name < lhs.m_name) then
-		return false;
-	end
-
-	--
-	-- Sort by level
-	--
-	if (lhs.m_level < rhs.m_level) then
-		return true;
-	elseif (rhs.m_level < lhs.m_level) then
-		return false;
-	end
-
-	--
-	-- identical
-	--
-	return false;
-end
-
-local function CensusPlus_UpdatePlayerLookup( index, entry )
-	--
-	--  Have to update our table
-	--
-	g_PlayerLookupTable[entry.m_name] = index;
-end
-		
-
-
-----------------------------------------------------------------------------------
---
--- Update the Player button contents
---
----------------------------------------------------------------------------------
-function CensusPlus_UpdatePlayerListButtons()
-	--
-	--  Sort the list
-	--
-	local size = table.getn(g_PlayerList);
-	if (size) then
-		table.sort(g_PlayerList, CharacterPredicate);
-		
-		table.foreach(g_PlayerList, CensusPlus_UpdatePlayerLookup );
-		
-	end
-	
-	--
-	-- Determine where the scroll bar is
-	--
-	local offset = FauxScrollFrame_GetOffset( CensusPlusPlayerListScrollFrame );
-	--
-	-- Walk through all the rows in the frame
-	--
-	local i = 1;
-	while( i <= CensusPlus_NumPlayerButtons ) do
-		--
-		-- Get the index to the ad displayed in this row
-		--
-		local iPlayer = i + offset;
-		--
-		-- Get the button on this row
-		--
-		local button = getglobal("CensusPlusPlayerButton"..i);
-		--
-		-- Is there a valid Player on this row?
-		--
-		if (iPlayer <= size) then
-			local player = g_PlayerList[iPlayer];
-			--
-			-- Update the button text
-			--
-			button:Show();
-			local textField = "CensusPlusPlayerButton"..i.."Name";
-			if ( player.m_name == nil or player.m_name == "") then
-				getglobal(textField):SetText( "None" );
-			else
-				getglobal(textField):SetText( player.m_name );
-			end
-			
-			local textField = "CensusPlusPlayerButton"..i.."Level";
-			if ( player.m_level == nil or player.m_level == "") then
-				getglobal(textField):SetText( "n/a" );
-			else
-				getglobal(textField):SetText( player.m_level );
-			end
-			
-			local textField = "CensusPlusPlayerButton"..i.."Class";
-			if ( player.m_guild == nil or player.m_guild == "") then
-				getglobal(textField):SetText( "Unguilded" );
-			else
-				getglobal(textField):SetText( player.m_guild );
-			end
-            
-			local textField = "CensusPlusPlayerButton"..i.."Seen";
-			if ( player.m_seen == nil or player.m_seen == "") then
-				getglobal(textField):SetText( "UNK" );
-			else
-				getglobal(textField):SetText( player.m_seen );
-			end
-		else
-			--
-			-- Hide the button
-			--
-			button:Hide();
-		end
-		--
-		-- Next row
-		--
-		i = i + 1;
-	end
-	--
-	-- Update the scroll bar
-	--
-	FauxScrollFrame_Update(CensusPlusPlayerListScrollFrame, size, CensusPlus_NumPlayerButtons, CensusPlus_GUILDBUTTONSIZEY);
-end
-
-----------------------------------------------------------------------------------
---
--- Find a characters in the g_PlayerList array by name
---
----------------------------------------------------------------------------------
-function CensusPlus_PlayerButton_OnClick()
-	local id = this:GetID();
-	local offset = FauxScrollFrame_GetOffset( CensusPlusPlayerListScrollFrame );
-	local newSelection = id + offset;
-
-	local player = g_PlayerList[newSelection];
-	FriendsFrame_ShowDropdown(player.m_name, 1);
-end
-
-----------------------------------------------------------------------------------
---
--- Clear all the characters
---
----------------------------------------------------------------------------------
-function CensusPlus_ClearPlayerList()
-	g_PlayerList = nil;
-	g_PlayerList = {};
-	
-	g_PlayerLookupTable = nil;
-	g_PlayerLookupTable = {};
-end
-
-----------------------------------------------------------------------------------
---
--- Add a character to the list
---
----------------------------------------------------------------------------------
-function CensusPlus_AddPlayerToList( name, level, guild, raceName, className, lastseen )
-	local size = table.getn( g_PlayerList );
-	
-	if( size >= g_MaxNumListed ) then
-		return;
-	end
-
-	local index = g_PlayerLookupTable[name];
-	if (index == nil) then
-		local size = table.getn( g_PlayerList );
-		index = size + 1;
-		g_PlayerList[index] = { m_name = name, m_level = level, m_guild = guild, m_seen = lastseen };
-		g_PlayerLookupTable[name] = index;
-	end
-end
-
+--[[
+	CensusPlus for World of Warcraft(tm).
+	
+	Copyright 2005 - 2006 Cooper Sellers and WarcraftRealms.com
+
+	License:
+		This program is free software; you can redistribute it and/or
+		modify it under the terms of the GNU General Public License
+		as published by the Free Software Foundation; either version 2
+		of the License, or (at your option) any later version.
+
+		This program is distributed in the hope that it will be useful,
+		but WITHOUT ANY WARRANTY; without even the implied warranty of
+		MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+		GNU General Public License for more details.
+
+		You should have received a copy of the GNU General Public License
+		along with this program(see GLP.txt); if not, write to the Free Software
+		Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
+]]
+
+
+------------------------------------------------------------------------------------
+--
+-- CensusPlus
+-- A WoW UI customization by Cooper Sellers
+--
+--
+------------------------------------------------------------------------------------
+
+local g_PlayerList = {};			
+local g_PlayerLookupTable = {};				
+local CensusPlus_NumPlayerButtons = 20;
+local g_MaxNumListed = 1000;
+
+function CensusPlus_ShowPlayerList()
+	CP_PlayerListWindow:Show();
+end
+
+function CensusPlus_PlayerListOnShow()
+
+	debugprofilestart();
+	
+	local guildKey = nil;
+	local raceKey = nil;
+	local classKey = nil;
+	local levelKey = nil;
+	
+
+	--
+	--  Clear our character list
+	--
+	CensusPlus_ClearPlayerList();
+	
+	--
+	-- Get realm and faction
+	--
+	local realmName = g_CensusPlusLocale .. GetCVar("realmName");
+	if( realmName == nil ) then
+		return;
+	end
+
+	local factionGroup = UnitFactionGroup("player");
+	if( factionGroup == nil ) then
+		return;
+	end
+	
+
+	--
+	-- Has the user made any selections?
+	--
+	if (g_GuildSelected ~= nil ) then
+		guildKey = g_GuildSelected;
+	end
+	if (g_RaceSelected > 0) then
+		local thisFactionRaces = CensusPlus_GetFactionRaces(factionGroup);
+		raceKey = thisFactionRaces[g_RaceSelected];
+	end
+	if (g_ClassSelected > 0) then
+		local thisFactionClasses = CensusPlus_GetFactionClasses(factionGroup);
+		classKey = thisFactionClasses[g_ClassSelected];
+	end
+	if (g_LevelSelected > 0 or g_LevelSelected < 0) then
+		levelKey = g_LevelSelected;
+	end
+
+	debugprofilestart();
+
+	CensusPlus_ForAllCharacters( realmName, factionGroup, raceKey, classKey, guildKey, levelKey, CensusPlus_AddPlayerToList);
+		
+	if( CensusPlus_EnableProfiling ) then
+		CensusPlus_Msg( "PROFILE: Time to do calcs 1 " .. debugprofilestop() / 1000000000 );
+		debugprofilestart();
+	end
+		
+
+	--
+	--  Build our list
+	--
+	CensusPlus_UpdatePlayerListButtons();
+	
+	local totalCharactersText = format(CENSUSPlus_TOTALCHAR, table.getn( g_PlayerList ) );
+	if( table.getn( g_PlayerList ) == g_MaxNumListed ) then
+		totalCharactersText = totalCharactersText .. " -- " .. CENSUSPlus_MAXXED;
+	end
+	
+	CensusPlayerListCount:SetText(totalCharactersText);
+
+end
+
+----------------------------------------------------------------------------------
+--
+-- Predicate function which can be used to compare two characters for sorting
+--
+---------------------------------------------------------------------------------
+local function CharacterPredicate(lhs, rhs)
+	--
+	-- nil references are always less than
+	--
+	if (lhs == nil) then
+		if (rhs == nil) then
+			return false;
+		else
+			return true;
+		end
+	elseif (rhs == nil) then
+		return false;
+	end
+	--
+	-- Sort by name
+	--
+	if (lhs.m_name < rhs.m_name) then
+		return true;
+	elseif (rhs.m_name < lhs.m_name) then
+		return false;
+	end
+
+	--
+	-- Sort by level
+	--
+	if (lhs.m_level < rhs.m_level) then
+		return true;
+	elseif (rhs.m_level < lhs.m_level) then
+		return false;
+	end
+
+	--
+	-- identical
+	--
+	return false;
+end
+
+local function CensusPlus_UpdatePlayerLookup( index, entry )
+	--
+	--  Have to update our table
+	--
+	g_PlayerLookupTable[entry.m_name] = index;
+end
+		
+
+
+----------------------------------------------------------------------------------
+--
+-- Update the Player button contents
+--
+---------------------------------------------------------------------------------
+function CensusPlus_UpdatePlayerListButtons()
+	--
+	--  Sort the list
+	--
+	local size = table.getn(g_PlayerList);
+	if (size) then
+		table.sort(g_PlayerList, CharacterPredicate);
+		
+		table.foreach(g_PlayerList, CensusPlus_UpdatePlayerLookup );
+		
+	end
+	
+	--
+	-- Determine where the scroll bar is
+	--
+	local offset = FauxScrollFrame_GetOffset( CensusPlusPlayerListScrollFrame );
+	--
+	-- Walk through all the rows in the frame
+	--
+	local i = 1;
+	while( i <= CensusPlus_NumPlayerButtons ) do
+		--
+		-- Get the index to the ad displayed in this row
+		--
+		local iPlayer = i + offset;
+		--
+		-- Get the button on this row
+		--
+		local button = getglobal("CensusPlusPlayerButton"..i);
+		--
+		-- Is there a valid Player on this row?
+		--
+		if (iPlayer <= size) then
+			local player = g_PlayerList[iPlayer];
+			--
+			-- Update the button text
+			--
+			button:Show();
+			local textField = "CensusPlusPlayerButton"..i.."Name";
+			if ( player.m_name == nil or player.m_name == "") then
+				getglobal(textField):SetText( "None" );
+			else
+				getglobal(textField):SetText( player.m_name );
+			end
+			
+			local textField = "CensusPlusPlayerButton"..i.."Level";
+			if ( player.m_level == nil or player.m_level == "") then
+				getglobal(textField):SetText( "n/a" );
+			else
+				getglobal(textField):SetText( player.m_level );
+			end
+			
+			local textField = "CensusPlusPlayerButton"..i.."Class";
+			if ( player.m_guild == nil or player.m_guild == "") then
+				getglobal(textField):SetText( "Unguilded" );
+			else
+				getglobal(textField):SetText( player.m_guild );
+			end
+            
+			local textField = "CensusPlusPlayerButton"..i.."Seen";
+			if ( player.m_seen == nil or player.m_seen == "") then
+				getglobal(textField):SetText( "UNK" );
+			else
+				getglobal(textField):SetText( player.m_seen );
+			end
+		else
+			--
+			-- Hide the button
+			--
+			button:Hide();
+		end
+		--
+		-- Next row
+		--
+		i = i + 1;
+	end
+	--
+	-- Update the scroll bar
+	--
+	FauxScrollFrame_Update(CensusPlusPlayerListScrollFrame, size, CensusPlus_NumPlayerButtons, CensusPlus_GUILDBUTTONSIZEY);
+end
+
+----------------------------------------------------------------------------------
+--
+-- Find a characters in the g_PlayerList array by name
+--
+---------------------------------------------------------------------------------
+function CensusPlus_PlayerButton_OnClick()
+	local id = this:GetID();
+	local offset = FauxScrollFrame_GetOffset( CensusPlusPlayerListScrollFrame );
+	local newSelection = id + offset;
+
+	local player = g_PlayerList[newSelection];
+	FriendsFrame_ShowDropdown(player.m_name, 1);
+end
+
+----------------------------------------------------------------------------------
+--
+-- Clear all the characters
+--
+---------------------------------------------------------------------------------
+function CensusPlus_ClearPlayerList()
+	g_PlayerList = nil;
+	g_PlayerList = {};
+	
+	g_PlayerLookupTable = nil;
+	g_PlayerLookupTable = {};
+end
+
+----------------------------------------------------------------------------------
+--
+-- Add a character to the list
+--
+---------------------------------------------------------------------------------
+function CensusPlus_AddPlayerToList( name, level, guild, raceName, className, lastseen )
+	local size = table.getn( g_PlayerList );
+	
+	if( size >= g_MaxNumListed ) then
+		return;
+	end
+
+	local index = g_PlayerLookupTable[name];
+	if (index == nil) then
+		local size = table.getn( g_PlayerList );
+		index = size + 1;
+		g_PlayerList[index] = { m_name = name, m_level = level, m_guild = guild, m_seen = lastseen };
+		g_PlayerLookupTable[name] = index;
+	end
+end
+
+function CensusPlus_List_OnMouseDown( self, arg1 )
+	if ( ( ( not self.isLocked ) or ( self.isLocked == 0 ) ) and ( arg1 == "LeftButton" ) ) then
+		self:StartMoving();
+		self.isMoving = true;
+	end
+end