Collapsing Table Variables/Scripts from Data Box

[#1]

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));
 

[#2]

Have you tried a Col List Box with the grouped property turned on?

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
Data Table( "Big Class" ) << Group Columns( "height etc.", {:height, :weight} );
New Window( "Col List Box Example 1", Col List Box( all, width( 250 ), grouped, maxSelected( 1 ) ) );

[#3]

Col List Box is missing some of the features I would like to have, such as showing columns which have been excluded and hidden.