TOPIC:

FUNCTION TestByRef( ) AS VOID
LOCAL x2 AS STRING
LOCAL o AS Foo 	

// LOCAL x AS STRING 
LOCAL x 
// PRIVATE x 


x = "old"
? x
o = Foo{}
o:TestUntyped(@x )
? "(Method) must be 'new': " , x 
?  

x = "old"
? x
TestUnTyped ( @x ) 
? "(Function) must be 'new': " , x            
? 

x = "old" 
? x  
TestUnTyped ( x )
? "(Function) must still be 'old': " , x 
? 

x = "old"
? x
DO TestUnTyped WITH x 
? "(Procedure) must be 'new': " , x 	 
? 

x = "old"
? x
DO TestUnTyped WITH (x) 
? "(Procedure) must still be 'old': " , x
? 	

x2 = "old"
? x2
TestTyped ( @x2 )
? "(Typed Func) must be 'new': " , x2   
?
RETURN 

FUNCTION TestUnTyped ( x )
// PARAMETERS x	
    
	IF IsByRef ( x )
		
		// x := "new" // This works !
		
		// note: if the Fox "=" assignment is used 
		// the caller doesn´t see the changes ?
		 
		x = "new"  
		
		
		? "ByRef: change param value" 
		
	ENDIF 	
	
	RETURN  .t.
	

FUNCTION TestTyped ( c REF STRING ) AS LOGIC 
	
	c = "new"  // no problem with the Fox "=" assignment 
	
	RETURN TRUE
	
	
CLASS Foo
	

METHOD TestUntyped ( x ) 
	
	IF IsByRef ( x )
		
		// x := "new" // This works !
		
		// note: if the Fox "=" assignment is used 
		// the caller doesn´t see the changes ?
		
		x = "new"  
		
		? "ByRef: change param value" 
		
	ENDIF 
	
	RETURN
	
END METHOD 		

END CLASS