How to add an interactive Color by Column selection to Graph Builder?

[#1]

I have a script (in JMP 16.2) that creates a Graph Builder with a column switcher, and I want to add a feature to allow selecting (interactively or up front) a column (or columns) by which to color the points. I've searched and not found an example.

[#2]

 I should add that I have well over 100 columns and I want to choose the columns to color by from a small subset

[#3]

Not quite sure what you have in mind, but this may get you started:

NamesDefaultToHere(1);

dt = Open("$SAMPLE_DATA/Big Class.jmp");

nw = NewWindow("Color",
		clb = ColListBox(all, << ModelingType({"Nominal", "Ordinal"}), maxSelected(1)),
		LineUpBox(NCol(2),
			ButtonBox("OK", OKscript),
			ButtonBox("Cancel", nw << closeWindow)
		);
);

OKscript =
Expr(

nw << closeWindow;
colorCol = clb << getSelected;

gb = dt << Graph Builder(
					Show Control Panel( 0 ),
					Variables( Y( :height ), Color( Eval(colorCol)) ),
					Elements( Points( Y, Legend( 7 ) ) ),
					Column Switcher( :height, {:height, :weight} )
				);

	);