local Lib = getgenv().Library
local W = Lib.CurrentWindow

-- theming: change accent and verify everything follows
local Before = { }

local function FindButton()
    for _, SP in ipairs(W.SubPages) do
        if SP.Active then
            for _, Sec in ipairs(SP.Sections) do
                for _, Row in ipairs(Sec.Items["Content"].Instance:GetChildren()) do
                    if Row:IsA("GuiObject") and Row.AbsoluteSize.Y == 36 then
                        return Row
                    end
                end
            end
        end
    end
end

local Button = FindButton()
local Nav = W.Pages[1].Items["Button"].Instance
Before.button = Button and Button.BackgroundColor3
Before.nav = Nav.BackgroundColor3
Before.wm = Lib.WatermarkHolder.Instance:GetChildren()[2] and nil

Lib:ChangeTheme("Accent", Color3.fromRGB(255, 0, 0))
task.wait(0.4)

local After = {
    button = Button and Button.BackgroundColor3,
    nav = Nav.BackgroundColor3,
    scrollbar = nil,
    icon = nil,
}

for _, Item in ipairs(W.Items["Body"].Instance:GetChildren()) do
    if Item:IsA("ScrollingFrame") then
        After.scrollbar = Item.ScrollBarImageColor3
    end
end

local Icon = W.Pages[1].Items["IconRef"]
if Icon and Icon.Instance then
    After.icon = Icon.Instance.BackgroundColor3
    for _, Part in ipairs(Icon.Instance:GetDescendants()) do
        if Part:IsA("Frame") then
            After.icon = Part.BackgroundColor3
            break
        end
    end
end

print("[r4] accent red -> button " .. tostring(Before.button) .. " => " .. tostring(After.button))
print("[r4] nav chip " .. tostring(Before.nav) .. " => " .. tostring(After.nav))
print("[r4] scrollbar " .. tostring(After.scrollbar) .. " icon " .. tostring(After.icon))

-- watermark segment colour follows the theme
Lib:SetWatermark(true, { Name = "UI Market" })
task.wait(1.2)
for _, Kid in ipairs(Lib.WatermarkHolder.Instance:GetChildren()) do
    if Kid:IsA("TextLabel") then
        print("[r4] watermark seg '" .. Kid.Text .. "' color=" .. tostring(Kid.TextColor3))
    end
end

Lib:ChangeTheme("Accent", Color3.fromRGB(224, 138, 43))
task.wait(0.3)

-- slider value editor present, no visible box
for _, SP in ipairs(W.SubPages) do
    if SP.Active then
        for _, Sec in ipairs(SP.Sections) do
            for _, Row in ipairs(Sec.Items["Content"].Instance:GetChildren()) do
                if Row:IsA("GuiObject") and Row.AbsoluteSize.Y == 24 then
                    local Value, Editor
                    for _, Kid in ipairs(Row:GetChildren()) do
                        if Kid:IsA("TextLabel") and Kid.AbsoluteSize.Y == 16 and Kid.TextXAlignment == Enum.TextXAlignment.Right then Value = Kid end
                        if Kid:IsA("TextButton") and Kid.AbsoluteSize.Y == 20 then Editor = Kid end
                    end
                    if Value then
                        print("[r4] slider value label " .. Value.ClassName .. " '" .. Value.Text .. "' bgT=" .. Value.BackgroundTransparency .. " editor=" .. tostring(Editor ~= nil))
                    end
                end
            end
        end
    end
end

-- keybind panel styling
Lib:SetKeybindList(true)
task.wait(0.5)
local KB = Lib.KeybindHolder.Instance
print("[r4] keybind panel " .. KB.AbsoluteSize.X .. "x" .. KB.AbsoluteSize.Y)
local Seen = 0
for _, Item in ipairs(KB:GetDescendants()) do
    if Item:IsA("TextLabel") and Seen < 10 and Item.Text ~= "" then
        Seen += 1
        print("   '" .. Item.Text .. "' size=" .. Item.TextSize .. " color=" .. tostring(Item.TextColor3))
    elseif Item:IsA("Frame") and Item.AbsoluteSize.Y == 20 and Item.AbsoluteSize.X == 50 then
        print("   [key chip] bg=" .. tostring(Item.BackgroundColor3) .. " hasStroke=" .. tostring(Item:FindFirstChildOfClass("UIStroke") ~= nil))
    end
end
print("[r4] done")