// 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() ;

}