names default to here(1);
myFun = Function({A, Z},{Default Local},
	A[2] = 10;
	B = 2*A;
	show (A);
	show(B);
	show(Z);
	
	nw = new window("test", 
		vlistbox(
			textbox(Z),
			textbox(char(B)),
			buttonbox("Show array B (works)", 
				  tb  = _cw<< xpath("//TextBox");
				  show(tb[2] << get text);
		    ),			
			buttonbox("Show string Z (does not work)", 
				  _cw = current window();
				  tb  = _cw<< xpath("//TextBox");
				  show(tb[1] << get text);
		    ),			
		
			buttonbox("show and close (does not work)", 
				  _cw = current window();
				  tb  = _cw<< xpath("//TextBox");
				  show(tb[1] << get text, tb[2] << get text);
				  _cw << close window  

			),
		)
	)
);
x = [2,3];
y="string";
myFun(x,y);