Column Switcher: reduce width

[#1]

Column switchers are extremely useful.

But they occupy a lot of space in a Dashboard, especially if there is a long column name:

Fortunately, the user can adjust the width by resizing the list box:

Unfortunately, this change is not saved when saving the script.

Adjusting the width via set width doesn't seem to work:

Current Report()["Column Switcher",ListBox(4)] << get width()    //works
Current Report()["Column Switcher",ListBox(4)] << set width(100) //doesn't have an effect

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
dt << New Column( "a nasty very long column name");
dt << Graph Builder(
	Variables( X( :height ), Y( :weight ), Color( :sex ) ),
	Elements( Points( X, Y, Legend( 11 ) ), Smoother( X, Y, Legend( 12 ) ) ),
	Column Switcher(:sex,
		{:sex,:a nasty very long column name}
	)
);

[#2 · Accepted solution]

Scripting index:

Names Default To Here(1);

dt = Open("$SAMPLE_DATA/Big Class.jmp");
dt << New Column("a nasty very long column name");
gb = dt << Graph Builder(
	Variables(X(:height), Y(:weight), Color(:sex)),
	Elements(Points(X, Y, Legend(11)), Smoother(X, Y, Legend(12)))
);

colswitcher = gb << Column Switcher(:sex, {:sex, :a nasty very long column name});
colswitcher << set size(100);

[#3]

Wonderful,  thanks.

cs= Current Report()["Column Switcher"] << get scriptable object();
cs<< set size(100);

[#4]

And for a Dashboard, is there a possibility to resize - and store the setting in the saved Dashboard?
- without changing the JSL code