[cormanthor]

I was unable to get any response at all from BN_FRIEND_TOON_ONLINE, however the following modifications seem to have fixed it:

-- People Detector for CormanthorUI
 
-- Create the color table (redundant, but necessary)
local colorScheme = {
    death_knight = "C41F3B",
    druid = "FF7D0A",
    hunter = "ABD473",
    mage = "69CCF0",
    monk = "558A84",
    paladin = "F58CBA",
    priest = "FFFFFF",
    rogue = "FFF569",
    shaman = "0070DE",
    warlock = "9482C9",
    warrior = "C79C6E"
}
 
-- Create the frame and listen to events
local cormPD = CreateFrame("frame", "PeopleDetector", Minimap)
cormPD:SetSize(200,100)
cormPD:SetPoint("TOPRIGHT", Minimap, "TOPLEFT", -10, 0)
cormPD:RegisterEvent("PLAYER_ENTERING_WORLD")
cormPD:RegisterEvent("BN_FRIEND_ACCOUNT_OFFLINE")
cormPD:RegisterEvent("BN_FRIEND_ACCOUNT_ONLINE")
cormPD:RegisterEvent("PLAYER_FLAGS_CHANGED")
local text = cormPD:CreateFontString()
text:SetFont("Fonts\\FRIZQT__.TTF", 10, "THINOUTLINE")
text:SetPoint("TOPRIGHT", cormPD)
text:SetJustifyH("RIGHT")
local myRealm = GetRealmName()
 
-- List the first name and toon name of all RealID friends
local function Event_Handler(self, event, ...)
    local online = select(2,BNGetNumFriends())
    local list = ""
    local friendName = ""
    local toonName = ""
    local toonClass = ""
    local toonLevel = ""
    local toonRealm = ""
    for i = 1,online do
        friendName = select(2,BNGetFriendInfo(i)) or "UNKNOWN"
        toonName = select(4,BNGetFriendInfo(i)) or "UNKNOWN"
        toonClass = gsub(strlower(select(8,BNGetFriendToonInfo(i,1)))," ","_") or "priest"
        toonLevel = select(11,BNGetFriendToonInfo(i,1)) or 0
        toonRealm = select(4,BNGetFriendToonInfo(i,1)) or myRealm
        if toonRealm == myRealm then
            list = list..friendName
        else
            list = list.."|cff0080FF"..friendName.."|r"
        end
        if toonClass then
            if toonName then
                list = list.." (|cff"..colorScheme[toonClass]..toonName.."|r"
            else
                list = list.." (|cff808080UNKNOWN|r"
            end
            if toonLevel then
                list = list.." "..toonLevel..")\n"
            else
                list = list..")\n"
            end
        end
    end
    text:SetText(list)
end
 
cormPD:SetScript("OnEvent", Event_Handler)