Matrix of Selectable Checkboxes in Modal Window (EDITED)

uday_guntupalli

All, 
   This is a follow up question to 
https://community.jmp.com/t5/Discussions/Generate-a-Matrix-of-Selectable-checkboxes/td-p/51833 . 

   Is it possible to make the window below modal and still get this to work ? Why or why not ? 

 

SCB1 = String Col Box( "", {} ); 
nR = 10;
nC = 3;
For( i = 1, i <= nR, i++,
	SCB1 << Add Element( Char( i ) )
   );
TB_Final = Table Box( SCB1 );			
		
For( i = 1, i <= 1, i++,
	Insert Into( TB_Final, Check Box( Repeat( {" "}, nR ), <<Set Heading( "Select" ) ) )
   );
TB_Final << Append(NEB_a = Number Col Edit Box("Test-A",RandomIndex(10^2,10^1)));	
TB_Final << Append(NEB_b = Number Col Edit Box("Test-B",RandomIndex(10^2,10^1)));	
TB_Final << Append(NEB_c = Number Col Edit Box("Test-C",RandomIndex(10^2,10^1)));		
TB_Final << Append(NEB_d = Number Col Edit Box("Test-D",RandomIndex(10^2,10^1)));
TB_Final << Append(NEB_e = Number Col Edit Box("Test-E",RandomIndex(10^2,10^1)));
TB_Final << Append(NEB_f = Number Col Edit Box("Test-F",RandomIndex(10^2,10^1)));

SelCases = J(nR,1,0); 
NW_Res = New Window("SELECT DESIRED CASES",
						<< Modal,
						TB_Final,
						Button Box("Ok",
									for(i = 1, i <= nR, i++,
											SelCases[i] = NW_Res[CheckBoxBox(1)] << Get(i)
									   );
								  );
				   );

gzmorgan0

Assign a variable to the checkbox.  See the modification belwo.

 

Typically, <<Modal, <<Return Result will return the results of the editable objects. However, it seems when it is embedded in a table box, it is not automatically returned. 

 

SCB1 = String Col Box( "", {} ); 
nR = 10;
nC = 3;
For( i = 1, i <= nR, i++,
	SCB1 << Add Element( Char( i ) )
   );
TB_Final = Table Box( SCB1 );			

		
For( i = 1, i <= 1, i++,
	Insert Into( TB_Final, cb = Check Box( Repeat( {" "}, nR ), <<Set Heading( "Select" ) ) )
   );
TB_Final << Append(NEB_a = Number Col Edit Box("Test-A",RandomIndex(10^2,10^1)));	
TB_Final << Append(NEB_b = Number Col Edit Box("Test-B",RandomIndex(10^2,10^1)));	
TB_Final << Append(NEB_c = Number Col Edit Box("Test-C",RandomIndex(10^2,10^1)));		
TB_Final << Append(NEB_d = Number Col Edit Box("Test-D",RandomIndex(10^2,10^1)));
TB_Final << Append(NEB_e = Number Col Edit Box("Test-E",RandomIndex(10^2,10^1)));
TB_Final << Append(NEB_f = Number Col Edit Box("Test-F",RandomIndex(10^2,10^1)));

SelCases = J(nR,1,0); 
NW_Res = New Window( "SELECT DESIRED CASES",
	<<Modal,
	TB_Final,
	Button Box( "Ok",  For( i = 1, i <= nR, i++, SelCases[i] = cb << Get(i) ) )
);

show(SelCases);