ChocolateBar (Broker Display) 

function Bar:New(name, settings, database)
    db = database
    local frame = CreateFrame("Frame",name,UIParent,"SecureHandlerStateTemplate")
    frame.chocolist = {} --create list of chocolate chocolist in the bar
    
    -- add class methods to frame object
    for k, v in pairs(Bar) do
        frame[k] = v
    end
    
    frame:SetPoint("TOPLEFT",-1,1); 
    --frame:SetPoint("TOPLEFT", settings.xoff, settings.yoff);
    --frame:SetClampedToScreen(true)
    if settings.width == 0 then
        frame:ClearAllPoints()
        frame:SetPoint("TOPLEFT","UIParent",-1,1);
        frame:SetPoint("RIGHT", "UIParent" ,"RIGHT",0, 0);
    else
        frame:SetPoint("RIGHT", "UIParent",0, 0);
        frame:SetWidth(settings.width)
    end
    
    frame:SetHeight(db.height)
    frame:EnableMouse(true)
    frame:SetScript("OnEnter", function(self) 
        if (db.combathidebar or settings.hideBarInCombat) and ChocolateBar.InCombat then return end
        self:ShowAll()
    end)
    frame:SetScript("OnLeave", function(self) 
        if (db.combathidebar or settings.hideBarInCombat) and ChocolateBar.InCombat then return end
        if self.autohide then
            self:HideAll()
        end
    end)
    
    frame:SetScript("OnMouseUp", function(self, button) 
        if (db.combathidebar or settings.hideBarInCombat) and ChocolateBar.InCombat then return end
        if button == "RightButton" then
            if db.disableoptons and ChocolateBar.InCombat then return end
            if db.barRightClick == "OPTIONS" then
                ChocolateBar:LoadOptions()
            elseif db.barRightClick == "BLIZZ" then
                InterfaceOptionsFrame_OpenToCategory("ChocolateBar");
            end
        else
            if db.moreBar == self:GetName() then
                self:Hide()
            end
        end
    end)
    
    frame.settings = settings   
    frame.autohide = settings.hideonleave
    frame:UpdateTexture(db)
    frame:UpdateColors(db)
    frame:UpdateStrata(db)
    
    -- Hider Secure (mostly used to hide stuff while in pet battle) 
    RegisterStateDriver(frame, "visibility", "[petbattle] hide; show[vehicleui] hide; show")
    return frame
end