Is there a way to collapse Table Variables/Scripts from Data Box / change height of Columns list to hide it? Or is there any other way of getting column listing from data table with same functionalities?
What I have:

What I would like to have:

Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Big Class.jmp", invisible);
New Window("Big Class",
H List Box(
lb = List Box(dt << Get Column Names("String"),
dt << Select Columns(lb << Get Selected);
),
H List Box(dg = dt << New Data Box())
)
);
dg << close data grid(1);
I could try hiding it with Padding but that sounds like more trouble than I really want
View more...
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Big Class.jmp", invisible);
New Window("Big Class",
H List Box(
lb = List Box(dt << Get Column Names("String"),
dt << Select Columns(lb << Get Selected);
),
Border Box(Sides(15),
H List Box(dg = dt << New Data Box(), Text Box(" asdasd"))
)
)
);
dg << close data grid(1);
dg << Set Auto Stretching(0,0);
dg << Padding(Left(0), Top(-210), Right(0), Bottom(0));