El número de columnas para las pestañas de sangría en las entradas JSL es mucho mayor de lo que deben ser. Se pueden reducir fácilmente a aproximadamente 1 tercio del tamaño que tienen.
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 ) )
)