// Copyright (C) 1997-2004 Alias Systems Corp.
// 
// The information in this file is provided for the exclusive use of the
// licensees of Alias.  Such users have the right to use, modify,
// and incorporate this code into other products for purposes authorized
// by the Alias license agreement, without fee.
// 
// ALIAS DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
// INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
// EVENT SHALL ALIAS BE LIABLE FOR ANY SPECIAL, INDIRECT OR
// CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
// DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
// TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
// PERFORMANCE OF THIS SOFTWARE.

//
//  Alias Script File
//  MODIFY THIS AT YOUR OWN RISK
//
//  Creation Date:  29 Sept 1996
//
//  Description:
//      This file contains a proc that interactively asks a user for a tab label
//		and sets the label of the active tab on the given tab layout to be that.
//		Most logical use for this script is to attach as the double click command 
//		onto a tab layout - that way, double clicking on any tab in the layout
//		will allow the user to change its label.

global proc setActiveTabLabel (string $tabLayout)
//
//  Procedure Name:
//      setActiveTabLabel
//
//  Description:
//      proc to set the active tab in a layout to a value input by the user.
//		
//  Input Arguments:
//      $tabLayout - the tabLayout name
//
//  Return Value:
//      None.
//
{
	// get the active tab information
	string $activeTab = `tabLayout -q -selectTab $tabLayout`;
	int $activeTabIndex = `tabLayout -q -selectTabIndex $tabLayout`;
	
	string $exitVal = `promptDialog 
					-title "Rename Tab"
					-message "Enter Tab Label:" 
					-button "OK" -button "Cancel"
					-defaultButton "OK" -cancelButton "Cancel"
					-dismissString "Cancel"`;
	if(strcmp($exitVal,"OK") == 0) {
		string $nuLabel = `promptDialog -q`;
		tabLayout -e -tabLabel $activeTab $nuLabel $tabLayout;
	}
}