LoTROInterface SVN SequenceBars

Gears = class(Slot);

function Gears:Constructor(running)
    Turbine.UI.Control.Constructor(self);
    self:SetMouseVisible(false);
    self:SetSize(36, 36);
--    self:SetBlendMode(Turbine.UI.BlendMode.AlphaBlend);
    self:SetZOrder(1);
    self:SetMouseVisible(false);

    local outer = Turbine.UI.Control();
    outer:SetParent(self);
    outer:SetSize(32, 32);
    outer:SetPosition(3, 3);
    
    local inner = Turbine.UI.Control();
    inner:SetParent(outer);
    inner:SetSize(288, 32);
    inner:SetBackground(resources.Gears);
    inner:SetBlendMode(Turbine.UI.BlendMode.AlphaBlend);
    self.background = inner;
    
    local overlay = Turbine.UI.Control();
    overlay:SetParent(outer);
    overlay:SetBlendMode(Turbine.UI.BlendMode.Overlay);
    overlay:SetSize(32, 32);
    function overlay.MouseEnter()
        DoCallbacks(self, "MouseEnter");
    end
    function overlay.MouseLeave()
        DoCallbacks(self, "MouseLeave");
    end
    function overlay.MouseClick(sender, args)
        DoCallbacks(self, "MouseClick", args);
    end
    self.overlay = overlay;
    
    self:SetRunning(running);
end

function Gears:SetRunning(running)
    if (self.Log) then
        if (running) then
            DoCallbacks(self, "Log", {"starting continuous execution", "BAR"});
        else
            DoCallbacks(self, "Log", {"halting continuous execution", "BAR"});
        end
    end
    self.running = running;
    self:SetWantsUpdates(running);
    self:UpdateOverlay();
end

function Gears:SetParent(parent)
    if (self.parent ~= parent) then
        self.parent = parent;    
        Turbine.UI.Control.SetParent(self, parent);
    end
end

function Gears:SetDelaying(delaying)
    self.delaying = delaying;
end

function Gears:Update()
    if (not self.delaying) then
        local left = -self.background:GetLeft();
        left = (left + 32) % 288;
        self.background:SetLeft(-left);
        DoCallbacks(self, "Tick");
    end
end

function Gears:UpdateOverlay()
    if (self.mouseInside) then
        if (self.running) then
            self.overlay:SetBackground(resources.Icon.Pause);
        else
            self.overlay:SetBackground(resources.Icon.Play);
        end
    else
        self.overlay:SetBackground(nil);
    end
end

function Gears:MouseEnter()
    self.mouseInside = true;
    self:UpdateOverlay();
end

function Gears:MouseLeave()
    self.mouseInside = false;
    self:UpdateOverlay();
end

function Gears:MouseClick(args)
    if (args.Button == Turbine.UI.MouseButton.Left) then
        self:SetRunning(not self.running);
        if (self.running) then
            DoCallbacks(self, "PlayPressed");
        else
            DoCallbacks(self, "PausePressed");
        end
    end
end