Names Default To Here( 1 );
If( N Table() == 0, Open(), );
dt = Current Data Table();
//Create Lauch Window for prompting dialog
nw = New Window( <<Modal,
V List Box(
Lineup Box( N Col( 2 ), Spacing( 14 ), ),
H List Box(
Panel Box( "Select Columns", clb = Filter Col Selector( dt, all ) ),
Panel Box( "Cast Selected Columns into Fit Model Roles",
Lineup Box( N Col( 2 ),
Button Box( "Y, Response", clbY << Append( clb << Get Selected ) ),
clbY = Col List Box( "Numeric", MinItems( 1 ), nlines( 8 ) ),
Button Box( "X, Two Samples",
clbXs << Append( clb << Get Selected )
),
clbXs = Col List Box(
"Character",
MinItems( 1 ),
MaxItems( 1 ),
nlines( 1 )
),
)
),
Panel Box( "Action",
Button Box( "OK",
yVars = clby << Get Items( "Column Reference" );
eVars = clbXs << Get Items( "Column Reference" );
),
Button Box( "Cancel" ),
Text Box(),
Button Box( "Remove",
clbY << Remove Selected;
clbXs << Remove Selected;
)
),
),
H List Box()
)
);
If( nw["button"] == -1,
Throw( "Cancelled!" )
);