/*

	This example shows how to use Parameter.ReadOnly

*/

NewScene( null, false ) ;

var oProp = Application.ActiveSceneRoot.AddProperty( "CustomProperty",false,"Prop" ) ;

var oParam = oProp.AddParameter2( "ReadOnlyString", siString, null, null, null, 

					null, null, 0, siPersistable | siReadOnly ) ;

if ( !oParam.ReadOnly ) {

	Application.LogMessage( "Expected readonly" ) ;

}

// Another way to test the same thing

if ( !(oParam.Capabilities && siReadOnly) ) {

	Application.LogMessage( "Expected readonly" ) ;	

}

// You can still change the value from scripting,

// but the user would not be able to modify this from a PPG.

oParam.Value = "A string" ;	

//

// Show how the changing the read-only flag 

// only affects the specific instance

//

// Copy inside a null

var oNull = Application.ActiveSceneRoot.AddNull() ;

CopyPaste( oProp, null, oNull, 2 ) ;

// Remove the readonly flag on the copy

var oProp2 = oNull.Properties( "Prop" ) ;

oProp2.Parameters("ReadOnlyString").ReadOnly = false ;

// Demonstrate that the original pset parameter is still read-only.

if ( !oParam.ReadOnly ) {

	Application.LogMessage( "Expected still read-only" ) ;

}

// Show that the parameter is greyed out

InspectObj( oProp ) ;

// Expected result: <no messages are logged>