MouseOver/Scrollwheel Chat Tabs to cycle though tabs

[orionshock]

Describe the solution you'd like
When hovering over the chat tabs and using scroll wheel for the tabs to cycle left and right.

Describe alternatives you've considered
I made an addon stub that does this

Additional context

for i = 1, 10 do
    local tab = _G["ChatFrame" .. i .. "Tab"]
    if tab then
        tab:SetScript(
            "OnMouseWheel",
            function(chatFrameTabButton, wheelDirection)
                local chatFrame = _G["ChatFrame" .. chatFrameTabButton:GetID()]
                if chatFrame and FCFDock_HasDockedChatFrame(GeneralDockManager, chatFrame) then
                    local selectedFrame = FCFDock_GetSelectedWindow(GeneralDockManager)
                    local dockedFrameList = FCFDock_GetChatFrames(GeneralDockManager)
                    for index, inspectFrame in ipairs(dockedFrameList) do
                        if selectedFrame == inspectFrame then
                            local nextIndex = index + wheelDirection
                            local nextFrame = dockedFrameList[nextIndex]
                            if nextFrame then
                                FCFDock_SelectWindow(GeneralDockManager, nextFrame)
                                nextFrame:ScrollToBottom()
                            end
                            break
                        end
                    end
                end
            end
        )
    end
end

Free to use :)