How to return value from number edit box for many items

WHTseng

Hi JMPers,

 

Some problems about the return values of number edit box.

I have referred to other posts(combining number box , collect all data in new window), and try to create my code.

 

Since I have many items to be given value, typing number into every item is not practical for me.

So the "New Window" and "Append" are used to dispose the return value for many items.

 

Eventually the code just return the default value(1) rather than the number I key in.

Can you help to check which steps are wrong in my code?

Thank you for great help in advanced.

 

list = {"A", "B", "C","D","E","F","G"};
val={};

nw = New Window( "example",
	v = V List Box(),
	Button Box( "OK", Set Script( nw<<close window) )
);

For( i = 1, i <= n items(list), i++,
	(v << append(
		Outline Box( "",
			H List Box(
				Text Box( list[i] ),
				exq =number Edit Box( 1 ),	
			)
		)
	) ; 
	Insert Into( val, exq<<get);
    )
);

show(val);

 

txnelson

The issue you are having, is that you are assuming that each separate specification of "exq" is being retained in a unique instance.  What is actually happening, is that they are being written on top of each other.  The code below, separates the instances.

Names Default To Here( 1 );
list = {"A", "B", "C", "D", "E", "F", "G"};
val = {};

nw = New Window( "example", v = V List Box(), Button Box( "OK", Set Script( nw << close window ) ) );

For( i = 1, i <= N Items( list ), i++,
	Insert Into( val, 1 );
	(v << append(
		Outline Box( "",
			H List Box(
				Text Box( list[i] ),
				Eval(
					Substitute(
							Expr(
								__exq__ = Number Edit Box(
									1,
									10,
									<<SetFunction( Function( {this}, val[__i__] = __exq__ << get ) )
								)
							),
						Expr( __exq__ ), Parse( "exq" || Char( i ) ),
						Expr( __i__ ), i,
					)
				), 
			)
		)
	) ; );
);