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

local function FindButton()
    for _, Item in ipairs(W.Items["Body"].Instance:GetDescendants()) do
        if Item:IsA("TextButton") and Item.AbsoluteSize.Y == 36 then
            return Item
        end
    end
end

local Button = FindButton()
print("[theme] button found=" .. tostring(Button ~= nil) .. " color=" .. tostring(Button and Button.BackgroundColor3))

local SliderFill
for _, Item in ipairs(W.Items["Body"].Instance:GetDescendants()) do
    if Item:IsA("Frame") and Item.AbsoluteSize.Y == 3 and Item.Parent and Item.Parent:IsA("TextButton") then
        SliderFill = Item
        break
    end
end
print("[theme] slider fill=" .. tostring(SliderFill and SliderFill.BackgroundColor3))

Lib:ChangeTheme("Accent", Color3.fromRGB(0, 255, 0))
task.wait(0.3)
print("[theme] after change -> button " .. tostring(Button and Button.BackgroundColor3) .. " fill " .. tostring(SliderFill and SliderFill.BackgroundColor3))

local Body
for _, Item in ipairs(W.Items["Content"].Instance:GetChildren()) do
    if Item:IsA("ScrollingFrame") then Body = Item end
end
print("[theme] scrollbar " .. tostring(Body and Body.ScrollBarImageColor3))

Lib:ChangeTheme("Card", Color3.fromRGB(60, 0, 0))
task.wait(0.3)
local Card
for _, Item in ipairs(W.Items["Body"].Instance:GetDescendants()) do
    if Item:IsA("Frame") and Item.ClipsDescendants and Item.AbsoluteSize.X > 200 then Card = Item break end
end
print("[theme] card " .. tostring(Card and Card.BackgroundColor3))

Lib:ChangeTheme("Accent", Color3.fromRGB(224, 138, 43))
Lib:ChangeTheme("Card", Color3.fromRGB(21, 22, 25))
task.wait(0.3)
print("[theme] restored -> button " .. tostring(Button and Button.BackgroundColor3) .. " card " .. tostring(Card and Card.BackgroundColor3))