/*
        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 ) ;
}