The number of columns for the indentation tabs in the JSL entries is much larger than they need to be. They can be easily cut down to about 1 third of the size they are
Eval(
Substitute(
Expr(
// Make a list of the data tables this execution of the code
// will make, so they can be closed when the output window is
// closed
__DataTableList__ = {};
// Create the initial window
__nw__ = New Window( "Product Sample", TheVLB = V List Box() );
// This is the code that will be run when the above window is closed
__nw__ << on close(
For( i = 1, i <= N Items( __DataTableList__ ), i++,
Try( Close( Data Table( __DataTableList__[i]), nosave ) )
)
Jim
