// JScript Custom Property example demonstrating how to
// build a simple Script viewer by using the
// siControlFolder, siControlCombo and multi-line string
// control.
//
// Note: This example could be extended: for example by adding a 
// "Save" and "New" button.
Main()
function Main()
{
	var oCustomProperty = ActiveSceneRoot.AddProperty( 
	                          "CustomProperty", false,
	                          "Script View" ) ;
	oCustomProperty.AddParameter3( "Dir", siString ) ;
	oCustomProperty.AddParameter3( "Scripts", siString ) ;
	oCustomProperty.AddParameter3( "File", siString ) ;
	var oLayout = oCustomProperty.PPGLayout
	oLayout.AddGroup( "Script Directory" ) ;
	var oItem = oLayout.AddItem( "Dir", "Directory", "Folder" ) ;	
	oItem.SetAttribute( "NoLabel", true ) ;	
	oLayout.EndGroup() ;
	oLayout.AddGroup( "Script File" ) ;
	var oItem = oLayout.AddEnumControl( "Scripts", Array(),
		             "", siControlCombo ) ;
	oItem.SetAttribute( "NoLabel", true ) ;	
	oLayout.EndGroup();
	oLayout.AddGroup( "File Contents" ) ;
	var oItem = oLayout.AddString( "File", "", true, 200 ) ;
	oItem.SetAttribute( "NoLabel", true ) ;	
	oLayout.EndGroup() ;
	oLayout.Language = "Jscript" ;
	oLayout.Logic = OnInit.toString() +
		             PopulateCombo.toString() +
		             Dir_OnChanged.toString() +
		             Scripts_OnChanged.toString();
	strDefaultDir = Application.InstallationPath( siUserPath ) + 
	                     "/Data/Scripts" ;
	oCustomProperty.Dir = strDefaultDir ;	
	InspectObj( oCustomProperty );
}
//
// The remaining code is event code which
// is injected into the PPG layout.
//
function OnInit()
{
	PopulateCombo() ;	
}
function Dir_OnChanged()
{
	PopulateCombo() ;
	PPG.File.Value = "" ;
}
function Scripts_OnChanged()
{
	strDir = PPG.Dir.Value 
	strScript = PPG.Scripts.Value 
	if ( strDir == "" || strScript == "" )
	{
		PPG.File.Value = "" ;
		return ;
	}
	try
	{
		var oFSO = new ActiveXObject( "Scripting.FileSystemObject" ) ;		
		var oFile = oFSO.OpenTextFile( strDir + "/" + strScript ) ;
		PPG.File.Value = oFile.ReadAll() ;
	}
	catch( e )
	{
		PPG.File.Value = "" ;
		Application.LogMessage ( "Error reading file " + 
		             strDir + "/" + strScript + 
		             "(" + e.Description + ")" ) ;
	}
}
function PopulateCombo()
{
	strDir = PPG.Dir.Value ;
	strOldValue = PPG.Scripts.Value ; 
	// Get access to the PPGLayout object
var oLayout = PPG.PPGLayout ;
	// The Combo box definition is part of the layout.
	// We look it up based on the script name of the associated
	// parameter
	var oCombo = PPG.PPGLayout.Item( "Scripts" ) ;
	if ( strDir == "" )
	{
		//Flush any contents
		oCombo.UIItems = null ;
		PPG.Scripts.Value = "" ;
	}
	else
	{
		var oFSO = new ActiveXObject( "Scripting.FileSystemObject" ) ;		
		var oItems = new Array() ;
		try
		{
			bFoundOldValue = false ;
			var oFolder = oFSO.GetFolder( strDir ) ;
		   fc = new Enumerator(oFolder.files);
		   for (; !fc.atEnd(); fc.moveNext())
		   {
		   		var oFile = fc.item() ;
		   		if ( -1 != oFile.Name.indexOf( ".vbs" ) ||
			   		  -1 != oFile.Name.indexOf( ".js" ) ||
			   		  -1 != oFile.Name.indexOf( ".pys" ) ||
			   		  -1 != oFile.Name.indexOf( ".pls" ) )
			   	{			   		 		   		
			   		// Both label and value will be the string name
			   		oItems.push( oFile.Name ) ;
		   			oItems.push( oFile.Name ) ;
		   			if ( strOldValue == oFile.Name )
		   			{
		   				bFoundOldValue = true ;
		   			}
		   		}
		   }
			oCombo.UIItems = oItems ;
			if ( bFoundOldValue )
			{
				// This is the case when you close and reopen the
				// property page - we want to restore the original 
				// setting if possible.
				PPG.Scripts.Value = strOldValue ;
			}
			else
			{
				// We leave the value empty
				// so that the user actually 
				// picks a script file
				// before we load anything
				PPG.Scripts.Value = "" ;
			}
		}
		catch( e )
		{
			Application.LogMessage( "Error finding script files" +
		           " in specified directory: " + e.Description );
		}
	}	
	// Necessary to make sure the updated Combo is drawn
	PPG.Refresh() ;
}