/*

	SetGlobal with a JScript array will result in a VBArray.  This is good if 

	you want to pass data between JScript and VBScript, but otherwise use

	SetGlobalObject instead

*/

var jsa = [1,2,3] ;

SetGlobal( "JSArrayToVB", jsa ) ;

var vba = GetGlobal( "JSArrayToVB" ) ;

Application.LogMessage( "Contents of VBArray: " + VBArray( vba ).toArray().toString() ) ;

SetGlobalObject( "JSArray", jsa ) ;

var jsa2 = GetGlobal( "JSArray" ) ;

Application.LogMessage( "Contents of JArray: " + jsa2.toString() ) ;

// Expected output

//INFO : Contents of VBArray: 1,2,3

//INFO : Contents of JArray: 1,2,3

/*

	This example demonstrates the difference between SetGlobal and SetGlobalObject

*/

var myobj = new Object() ;

myobj.foo = 5 ;

myobj.bar = "some data" ;

// Remember the object as a global

SetGlobalObject( "globalobj", myobj ) ;

// At any time the object can be retrieved

var myobj2 = GetGlobal( "globalobj" ) ;

Application.LogMessage( "Retrieved global: " + myobj2.foo ) ;

// Both myobj and myobj2 point to the same thing

// so changing myobj2 affects myobj as well

myobj2.foo = 6 ;

Application.LogMessage( "Original object has changed: " + myobj.foo ) ;

// SetGlobal on a JScript object will not work, it will end up storing an empty VBArray

SetGlobal( "damagedglobalobj", myobj ) ;

var myobj3 = GetGlobal( "damagedglobalobj" ) ;

Application.LogMessage( "SetGlobal has destroyed myobj: " + VBArray(myobj3).toArray().length ) ;

// Expected output

//INFO : Retrieved global: 5

//INFO : Original object has changed: 6

//INFO : SetGlobal has destroyed myobj: 0