How to live update a panel box?

dylan-1

Hello,

I'm trying to script a user input box in which the available number col edit boxes depends on what the user selects for the radio box. However, the window doesn't update as expected:

 

Names Default To Here( 1 );
SampleConfig = "2 x 2";
		
New Window( "Select Sample Configuration",
	<<Modal, //
	H List Box(
		Panel Box( "Select Sample Configuration",
			rb = Radio Box(
				{"2 x 2", "3 x 3"},
				<<setfunction(
					Function( {this},
						SampleConfig = rb << Get Selected;
						pbox1 << inval;
						pbox1 << updateWindow;
						Print( "Selection Changed!" );
						Print( SampleConfig );
					)
				)
			)
		),
		pbox1 = Panel Box( "Scribe #s",
			If(
				SampleConfig == "3 x 3",
					H List Box(
						"Scribe #s", 

						col1 = Number Col Edit Box( , [1, 4, 7] ),
						col2 = Number Col Edit Box( , [2, 5, 8] ),
						col3 = Number Col Edit Box( , [3, 6, 9] )
					),
				SampleConfig == "2 x 2",
					H List Box(
						"Scribe #s", 

						col1 = Number Col Edit Box( , [1, 3] ),
						col2 = Number Col Edit Box( , [2, 4] )
					),

			)
		)
	)
); 

Any suggestions as to what I'm doing wrong?

 

Thanks,

Dylan

danschikore

Your If() statement to choose which interface to display only runs once, when the window is created.  One way to get what you need is to create all of the boxes up-front, and conditionally display them (shown below).  The alternative would be to dynamically create and destroy the boxes from the Radio Box callback function.

 

Names Default To Here( 1 );
SampleConfig = "2 x 2";
		
New Window( "Select Sample Configuration",
	<<Modal, //
	H List Box(
		Panel Box( "Select Sample Configuration",
			rb = Radio Box(
				{"2 x 2", "3 x 3"},
				<<setfunction(
					Function( {this},
						SampleConfig = rb << Get Selected;
						if3x3 << Set( SampleConfig == "3 x 3" );
						if2x2 << Set( SampleConfig == "2 x 2" );
						Print( "Selection Changed!" );
						Print( SampleConfig );
					)
				)
			)
		),
		pbox1 = Panel Box( "Scribe #s",
			if3x3 = If Box(
				0,
				H List Box(
					"Scribe #s", 

					col3_1 = Number Col Edit Box( , [1, 4, 7] ),
					col3_2 = Number Col Edit Box( , [2, 5, 8] ),
					col3_3 = Number Col Edit Box( , [3, 6, 9] )
				)
			),
			if2x2 = If Box(
				1,
				H List Box(
					"Scribe #s", 

					col2_1 = Number Col Edit Box( , [1, 3] ),
					col2_2 = Number Col Edit Box( , [2, 4] )
				), 

			)
		)
	)
);