/*
	This example creates a custom property with a single parameter called "Data" and a button.
	Each time you click the button the value is randomized
*/
var oPSet = ActiveSceneRoot.AddProperty( "CustomProperty", false, "ButtonExample" ) ;
oPSet.AddParameter3( "Data", siDouble, 0, 0, 1 ) ;
var oLayout = oPSet.PPGLayout
oLayout.AddRow() ;
oLayout.AddItem( "Data" ) ;
oLayout.AddButton( "Randomize" ) ;
oLayout.EndRow() ;
oLayout.Logic = Randomize_OnClicked.toString() ;
oLayout.Language = "JScript" ;
InspectObj( oPSet ) ;
function Randomize_OnClicked()
{
	PPG.Data.Value = Math.random() ;
}

'
' This example creates a custom property with a single parameter called "Data" and a button.
' Each time you click the button the value is randomized
'
set oPSet = ActiveSceneRoot.AddProperty( "CustomProperty", false, "ButtonExample" )
oPSet.AddParameter3 "Data", siDouble, 0, 0, 1
set oLayout = oPSet.PPGLayout
oLayout.AddRow
oLayout.AddItem "Data"
oLayout.AddButton "Randomize"
oLayout.EndRow
'Store a little VBScript code to react to the button press.
'If this code was more sophisticated we could read it out
'of a file
oLayout.Logic = "sub Randomize_OnClicked"   & vbCrlf & "   PPG.Data.Value = Rnd" & vbCrlf & "end sub"
oLayout.Language = "VBScript" 'Optional because this is the default
InspectObj oPSet

/*
	Example showing how to disable a button
	Often certain buttons should be disabled if they don't apply in the current context.
	In this case a button is only enabled if there is text entered in a edit box.  The 
	button gets enabled and disabled by the SomeText_OnChanged() callback.  This callback
	is not called as characters are actually entered in the text box, but as soon as that 
	edit box loses focus (for example if the tab key is pressed )
*/
var oPSet = ActiveSceneRoot.AddProperty( "CustomProperty", false, "ButtonExample" ) ;
oPSet.AddParameter3( "SomeText", siString ) ;
var oLayout = oPSet.PPGLayout
oLayout.AddRow() ;
oLayout.AddItem( "SomeText" ) ;
var oItem = oLayout.AddButton( "ClickMe", "Click Me" ) ;
// Set a PPGItem attribute to disable the control
// (because initially there is no text inside SomeText)
oItem.SetAttribute( "buttondisable", true ) ;
oLayout.EndRow() ;
oLayout.Logic = SomeText_OnChanged.toString() + ClickMe_OnClicked.toString() ;
oLayout.Language = "JScript" ;
InspectObj( oPSet ) ;
// PPG Logic that is provided to the PPG
function SomeText_OnChanged()
{
	// Button will be disabled until some text is entered
	bDisableButton = ( PPG.SomeText.Value.length == 0 ) ;	
	// Get the layout
	oPPGLayout = PPG.PPGLayout ;
	// Lookup the PPGItem associated with the button
	oPPGItem = oPPGLayout.Item( "ClickMe" ) ;			
	bAlreadyDisabled = oPPGItem.GetAttribute( "buttondisable" ) ;
	if ( bDisableButton != bAlreadyDisabled )
	{	
		oPPGItem.SetAttribute( "buttondisable", bDisableButton ) ;	
		// We only call refresh if we determine the state has
		// actually changed		
		PPG.Refresh() ;
	}
}
function ClickMe_OnClicked()
{
	// Will never be called if the SomeText is empty
	XSIUIToolkit.MsgBox( "Value of text is " +  PPG.SomeText.Value ) ;
}