Filtering a List Box()

klk

I'm looking for an easy way to filter a List Box() object. The simplest example I can come up with is this:

Names Default To Here( 1 );
win = New Window( "Test", lbox = List Box( {"orange", "red", "green", "blue"} ) );

Now I want to add a 'filter' box above the list of colors, similar to the filter you can get above a list of columns like this:

I was hoping that there was some easy way to dump a filter on the dumb list but I'm not finding anything.

 

Thanks for any help!

klk

I stumbled upon the right search terms and found this:

Making search box active in column Search Script 

And was able to force the filter box on.  Here's what I ended up with:

Names Default To Here( 1 );
dset_names = {"orange", "red", "green", "blue"};

// make a temporary table with empty columns
dt_list = New Table( "tmp_list_table", private );
For( ci = 1, ci <= N Items( dset_names ), ci++,
	dt_list << New Column( dset_names[ci] )
);

colnames = {};
win = New Window( "Choose columns to import",
	<<Modal,
	<<Return Result,
	<<On Close( Close( dt_list, nosave ) ),
	H List Box(
		lb = Filter Col Selector( dt_list, width( 250 ), nlines( 10 ) ),
		// force the filter box to be displayed
		ib = (lb << Parent) << Xpath( "//IfBox" );
		ib << set( 1 );,
		Lineup Box( N Col( 1 ), Spacing( 2 ),
			Button Box( "Add Selected ->",
				dispcols << Append( lb << Get Selected );
				colnames = dispcols << Get Items;
			),
			Button Box( "<- Remove Selected",
				dispcols << Remove Selected;
				colnames = dispcols << Get Items;
			)
		),
		dispcols = List Box( {}, width( 250 ), nlines( 10 ) )
	)
);

// show what was chosen!
Show( colnames );