//v0.2K
//- Prevent closing locked tabs

//v0.2
//- fix for switching to wrong tab when closing tabs in destination
//- fix for switching to wrong tab when closing inactive/invisible tabs

//v0.1
//- initial prototype released in a thread I don't remember currently.
//  ahh, it was this one: http://resource.dopus.com/viewtopic.php?f=3&t=24028

///////////////////////////////////////////////////////////////////////////////
function OnInit(data){
	//uid added via script wizard (do not change after publishing this script)
	var uid = "57B93B6D-A93E-4593-BAB5-3302B2DA20D8";
	//resource center url added via script wizard (required for updating)
	var url = "http://resource.dopus.com/viewtopic.php?f=35&t=24626";
	data.name = "Event.GUI: ActivateLeftTabOnClose";
	data.desc = "Activate the tab to the left when closing a tab, instead of activating the one previously used.";
	data.version = "0.2";
	data.min_version = "11.5";
	data.copyright = "tbone"
	data.default_enable = true;
}
///////////////////////////////////////////////////////////////////////////////
function OnCloseTab(data) {
	if (!data.tab.visible){
		//tab not visible, doing nothing special to activate any another tab
		//as closing a tab currently not used, shall not switch active/visible tabs
		return false;
	}

	// Tab Object
	var _tab	= data.tab;

	// Lock State of Tab Object - Can be: "off", "on", "changes", "reuse"
	var _state	= _tab.lock;

	// Is the tab locked ( any state )
	var _locked = ( _state != "off" ) ? true : false;

	// Key Modifiers held while trying to close tab... - Can be: "none", "shift", "ctrl", "alt", "shift,ctrl", "shift,alt", "shift,ctrl,alt", "ctrl,alt"
	//var _mods	= data.qualifiers;
	//var _modded	= ( _mods != "none" ) ? true : false;

	// Prevent closing the tab if the tab is locked and no mods are pressed...
	if ( _locked)
		return true;

	var cmd = DOpus.Create.Command();
	cmd.SetSourceTab(data.tab);

	var focusRight = data.tab.lister.activetab.right;
	var focusToggled = false;
	if (focusRight != data.tab.right){
		cmd.RunCommand("Set FOCUS=dest");
		focusToggled = true;
	}

	CloseTab(data.tab, cmd);
	//setting sourcetab again, as the last tab is gone now
	//else any additional commands will fail to run
	cmd.SetSourceTab(data.tab.lister.activetab);

	if (focusToggled){
		cmd.RunCommand("Set FOCUS=dest");
	}
	return true;
}
///////////////////////////////////////////////////////////////////////////////
function CloseTab(tab, command) {
	var tabDetails = GetTabDetails(tab);
	if (tabDetails.index===null) return;
	command.RunCommand("Go NOSCRIPT TABSELECT " + (tabDetails.index>0?tabDetails.index-1:tabDetails.index+1));
	command.RunCommand("Go NOSCRIPT TABCLOSE  " + tab );
}
///////////////////////////////////////////////////////////////////////////////
function GetTabDetails(tab){
	var tabDetails = { isLeft:true, isRight:false, index:null};
	var tabs = tab.lister.tabsleft;
	if (tab.right){
		tabs = tab.lister.tabsright;
		tabDetails.isRight = true;
		tabDetails.isLeft = false;
	}
	for (var i=0;i<tabs.count;i++){
		if (tabs(i)+""==""+tab){
			tabDetails.index = i;
			break;
		}
	}
	return tabDetails;
}
///////////////////////////////////////////////////////////////////////////////
function OnAboutScript(data){ //v0.1
	var cmd = DOpus.Create.Command();
	if (!cmd.Commandlist('s').exists("ScriptWizard")){
		if (DOpus.Dlg.Request("The 'ScriptWizard' add-in has not been found.\n\n"+
"Install 'ScriptWizard' from [resource.dopus.com].\nThe add-in enables this dialog and also offers "+
"easy updating of scripts and many more.","Yes, take me there!|Cancel", "No About.. ", data.window))
		cmd.RunCommand('http://resource.dopus.com/viewtopic.php?f=35&t=23179');}
	else
		cmd.RunCommand('ScriptWizard ABOUT WIN='+data.window+' FILE="'+Script.File+'"');
}
//MD5 = "0bfcbf25c69057d5744e49afac456b8e"; DATE = "2015.06.12 - 00:53:12"