Closes duplicate tabs in file display
#newcommand
@script JScript
function OnClick(clickData)
{
var cmd = clickData.func.command;
cmd.deselect = false; // Prevent automatic deselection
cmd.ClearFiles();
var lister = clickData.func.sourcetab.lister;
closeDuplicateTabs(cmd, lister.tabsleft);
closeDuplicateTabs(cmd, lister.tabsright);
}
function closeDuplicateTabs(cmd, tabList)
{
var mapPaths = DOpus.Create.Map();
var vecTabsToClose = DOpus.Create.Vector();
var tabIndex = 0;
for (var eTabs = new Enumerator(tabList); !eTabs.atEnd(); eTabs.moveNext())
{
var tab = eTabs.item();
var tabPath = tab.path;
if (mapPaths.exists(tabPath))
{
vecTabsToClose.push_back(tab);
if (tab.visible)
{
cmd.RunCommand("Go TABSELECT=" + mapPaths(tabPath));
}
}
else
{
mapPaths(tabPath) = tabIndex;
}
tabIndex = tabIndex + 1;
}
if (vecTabsToClose.empty)
return;
cmd.Clear();
for (var eTabs = new Enumerator(vecTabsToClose); !eTabs.atEnd(); eTabs.moveNext())
{
var tab = eTabs.item();
cmd.AddLine("Go TABCLOSE=" + tab);
}
cmd.Run();
cmd.Clear();
}