LoTROInterface SVN SequenceBars

-- This class contains methods that are in common between Bars and Groups (and the Manager).

Node = class(Turbine.UI.Window);

function Node:IsHidden()

    return (self.settings.hidden or self:IsParentHidden());

end

function Node:IsParentHidden()

    return self.parent and self.parent:IsHidden();

end

function Node:SetHidden(hide)

    if (self.settings.hidden ~= hide) then

        self.settings.hidden = hide;

        self:ApplyHiddenness();

        if (self.HiddenChanged) then

            self:HiddenChanged();

        end

    end

end

function Node:SaveSettings(updateOptionsPanel)

    if (not self.constructing) then

        self.parent:SaveSettings(updateOptionsPanel);

    end

end

function Node:EditColor()

    if (self.colorPicker == nil) then

        self.previousColor = self.color;

        self.colorPicker = Thurallor.UI.ColorPicker(self.color, "H");

        self.colorPicker:SetZOrder(self:GetZOrder() + 10);

        self.colorPicker.ColorChanged = function(picker)

            self:SetColor(picker:GetColor());

        end

        self.colorPicker.Accepted = function()

            self.colorPicker = nil;

            self:SaveSettings(true);

        end

        self.colorPicker.Canceled = function()

            self:SetColor(self.previousColor);

            self.colorPicker = nil;

        end

    end

end

function Node:SetColor(color)

    self.color = color;

    self.settings.color = color:GetHex();

    self:SaveSettings(true);

end

function Node:GetID()

    return self.objectID;

end

function Node:GetName()

    return self.settings.caption.text;

end

function Node:SetName(newName)

    self.settings.caption.text = newName;

    self:SaveSettings(true);

end

function Node:SetCaptionSize(width, height)

    self.settings.caption.width = width;

    self.settings.caption.height = height;

    self:SaveSettings(false);

end

function Node:GetColor()

    return self.color;

end

function Node:SetWantsEvents(enable)

    for h = 1, #self.settings.eventHandlers, 1 do

        local handler = self.settings.eventHandlers[h];

        local object = loadstring("self = ...; return " .. handler.object)(self);

        local trigger = handler.trigger;

        if (enable) then

            -- Should save this function reference as handler.func, so we can pass the same reference to RemoveCallback().

            local funcBody = loadstring(handler.action);

            handler.func = function(sender, args)

                funcBody(self, object, trigger, args);

            end;

--Puts("Node " .. Serialize(self.settings.caption.text) .. ": Compiled handler.action = " .. Serialize(handler.action) .. " into " .. Serialize(handler.func));

--Puts("Node " .. Serialize(self.settings.caption.text) .. ": Registering event handler " .. Serialize(handler.description) .. " (" .. Serialize(handler.func) .. ")");

            AddCallback(object, trigger, handler.func);

        else

--Puts("Node " .. Serialize(self.settings.caption.text) .. ": Unregistering event handler: " .. Serialize(handler.description) .. " (" .. Serialize(handler.func) .. ")");

            RemoveCallback(object, trigger, handler.func);

            handler.func = nil;

        end

    end

end

function Node:AddEventHandler(trigger, action)

    self:SetWantsEvents(false);

    local prevContext = L:SetContext("/EventBehaviorsMenu");

    -- Initialize action

    local handler = {};

    handler.action = "";

    if ((action == "ShowGroup") or (action == "ShowBar")) then

        handler.action = "self:SetHidden(false); ";

    elseif ((action == "HideGroup") or (action == "HideBar")) then

        handler.action = "self:SetHidden(true); ";

    elseif ((action == "ResetGroup") or (action == "ResetBar")) then

        handler.action = "self:Reset(); ";

    elseif (action == "MoveToCursor") then

        handler.action = "self:MoveToMouseCursor(); ";

    elseif ((action == "ExpandGroup") or (action == "ExpandBar")) then

        handler.action = "self:Expand(); ";

    elseif ((action == "CollapseGroup") or (action == "CollapseBar")) then

        handler.action = "self:Collapse(); ";

    elseif (action == "StopExecuting") then

        handler.action = "self:StopExecuting(); ";

    elseif (action == "StartExecuting") then

        handler.action = "self:StartExecuting(); ";

    else

        error("Unknown event handler action: " .. tostring(action), 2);

    end

    handler.description = L:GetText("Actions/" .. action) .. " " .. L:GetText("Triggers/" .. trigger);

    -- Add object, trigger, action, description

    if (trigger == "AtStartup") then

        handler.object = "self.manager:GetEventCallbacks()";

        handler.trigger = "Startup\n"; -- includes "\n" so it can't be generated by user

        handler.action =

            "self = ...; " ..

            handler.action;

    elseif (trigger == "WhenTargetChanges") then

        handler.object = "self.manager.watcher";

        handler.trigger = "PlayerTargetChanged";

        handler.action =

            "self = ...; " ..

            handler.action;

    elseif (trigger == "WhenCombatBegins") then

        handler.object = "self.manager.player";

        handler.trigger = "InCombatChanged";

        handler.action =

            "self, object = ...; " ..

            "if (object:IsInCombat()) then " ..

                handler.action ..

            "end";

    elseif (trigger == "WhenCombatEnds") then

        handler.object = "self.manager.player";

        handler.trigger = "InCombatChanged";

        handler.action =

            "self, object = ...; " ..

            "if (not object:IsInCombat()) then " ..

                handler.action ..

            "end";

    elseif (trigger == "WhenMouseArrives") then

        handler.object = "self";

        handler.trigger = "MouseArrived";

        handler.action =

            "self = ...; " ..

            handler.action;

    elseif (trigger == "WhenMouseDeparts") then

        handler.object = "self";

        handler.trigger = "MouseDeparted";

        handler.action =

            "self = ...; " ..

            handler.action;

    elseif (string.find(trigger, "WhenEventOccurs:")) then

        local eventName = string.sub(trigger, 17);

        handler.object = "self.manager:GetEventCallbacks()";

        handler.trigger = eventName;

        handler.action =

            "self = ...; " ..

            handler.action;

        handler.description = L:GetText("Actions/" .. action) .. " " .. L:GetText("Triggers/WhenEventOccurs") .. ": " .. eventName;

    elseif (trigger == "WhenTraitTreeChanges") then

        handler.object = "self.manager.watcher";

        handler.trigger = "TraitTreeChanged";

        handler.action =

            "self = ...; " ..

            handler.action;

    elseif (trigger == "WhenStanceChanges") then

        handler.object = "self.manager.watcher";

        handler.trigger = "PlayerStanceChanged";

        handler.action =

            "self = ...; " ..

            handler.action;

    else

        error("Unknown event handler trigger: " .. tostring(trigger), 2);

    end

    L:SetContext(prevContext);

    -- Save new event handler and activate it

    table.insert(self.settings.eventHandlers, handler);

    self:SaveSettings(false);

    self:SetWantsEvents(true);

end

function Node:RemoveEventHandler(h)

    self:SetWantsEvents(false);

    table.remove(self.settings.eventHandlers, h);

    self:SaveSettings(false);

    self:SetWantsEvents(true);

end

function Node:StripSettingsForExport(settings)

    settings.deletedBarIDs = nil;

    settings.deletedGroupIDs = nil;

end

function Node:Export()

    if (self.exportWindow) then

        self.exportWindow:Close();

        self.exportWindow = nil;

    end

    -- Compile the data to be exported

    Puts(L:GetText("/ExportWindow/Exporting"));

    local exportObjects = { [self.objectID] = {} };

    self:SetWantsEvents(false); -- we don't want to save eventHandlers[].func values

    DeepTableCopy(self.settings, exportObjects[self.objectID]);

    self:SetWantsEvents(self.settings.eventsEnabled);

    self:StripSettingsForExport(exportObjects[self.objectID]);

    if (self:CanHaveChildren()) then

        local descendentIDs = self:FindAllDescendentIDs(nil, true, true);

        for d = 1, #descendentIDs do

            local objectID = descendentIDs[d];

            local object = self.manager.objects[objectID];

            exportObjects[objectID] = {};

            object:SetWantsEvents(false); -- we don't want to save eventHandlers[].func values

            DeepTableCopy(object.settings, exportObjects[objectID]);

            object:SetWantsEvents(object.settings.eventsEnabled);

            self:StripSettingsForExport(exportObjects[objectID]);

        end

    end

    -- Create the export window

    local title = L:GetText("/ExportWindow/Title");

    title = string.gsub(title, "<name>", self.settings.caption.text);

    self.exportWindow = ExportWindow(title, exportObjects);

    self.exportWindow.Closing = function()

        self.exportWindow = nil;

    end

end

function Node:ShowSettingsMenu(fromOptionsPanel)

    -- Build the settings menu.

    self.settingsMenu = Turbine.UI.ContextMenu();

    self.amSubMenu = false;

    self:AddSettingsMenuItem(self.settingsMenu, "Root", fromOptionsPanel);

    self.settingsMenu:ShowMenu();

end

function Node:Destroy()

    self:SetWantsEvents(false);

    self:SetWantsUpdates(false);

    if (self.settingsMenu) then

        self.settingsMenu:Close();

    end

    if (self.captionEditor) then

        self.captionEditor:Close();

    end

    if (self.exportWindow) then

        self.exportWindow:Close();

    end

    if (self.importWindow) then

        self.importWindow:Close();

    end

    if (self.colorPicker) then

        self.colorPicker:Close();

    end

    self.manager.objects[self.objectID] = nil;

    self:Close();

end