Here is a simple example
Names Default To Here( 1 );
dt =
// Open Data Table: Big Class.jmp
// → Data Table( "Big Class" )
Open( "$SAMPLE_DATA/Big Class.jmp" );
Summarize( dt, agegps = by( :age ) );
namegps = {""};
nw = New Window( "Selection",
Lineup Box( N Col( 3 ),
Text Box( "Select Age" ),
Spacer Box( 15 ),
Text Box( "Select Name " ),
cbage = Combo Box(
agegps,
selected = Num( cbage << get selected );
sellist = Associative Array( (:name[dt << get rows where( :age == selected )]) ) << get keys;
cbname << set items( sellist );
),
Spacer Box( 15 ),
cbname = Combo Box(
namegps,
input_value = cbname << get selected;
Show( input_value );
)
)
);
Jim