How to hide\unhide GUI elements effectively?

[#1]

I have GUI that hides or unhides some elements depending on the selector.

For now I have encapsulated all the elements that change in respective  If Box()'es, and change each on of them when ComboBox selector changes, like so:

Names Default To Here( 1 );

modeSelectorOptions = {"Mode1", "Mode2"};
gui = V List Box(
	modeSelector = ComboBox(modeSelectorOptions, 
		<< Set Function(
			Function(
				{this}, 
				Match(this << Get Selected(),
				modeSelectorOptions[1], Write("\!nMode1");IB1<< Set (1); IB2 << Set(0)/*many more when script expanded*/,
				modeSelectorOptions[2],	Write("\!nMode2");IB1<< Set (0); IB2 << Set(1)/*many more when script expanded*/,
				)
			)
		);
	),
	Button Box("All Modes", Write("Always active")),
	IB1 = If Box(1, Button Box("GUI ELEMENT for Mode1", Write("Button pressed"))), 
	IB2 = If Box(0, Button Box("GUI ELEMENT for Mode2", Write("Button pressed")))
	
);

NW = New Window("Test",<< Show Toolbars(0),<<ShowMenu(0), gui);

This works, but it is not very scalable.

I need to hide or unhide certain elements depending on the mode throughout the whole window with many elements. I have to encapsulate each of those changing elements in an If Box(), name it and don't forget to include it in the Match statement of the modeSelector.

It is not very scalable, especially when I move into 10-20 different elements.

Is there any way to, let's say, just raise a corresponding flag in Match statement, define all the IF boxes with those flags and then just give command to redraw them?

Something like this, where redrawIfBoxes is an expression that redraws all the IF boxes so that changed flag takes effect:

Names Default To Here( 1 );

modeSelectorOptions = {"Mode1", "Mode2"};
mode1Flag = 1;
mode2Flag = 0;
gui = V List Box(
	modeSelector = ComboBox(modeSelectorOptions, 
		<< Set Function(
			Function(
				{this}, 
				Match(this << Get Selected(),
				modeSelectorOptions[1], Write("\!nMode1");mode1Flag = 1;mode2Flag = 0;redrawIfBoxes,
				modeSelectorOptions[2],	Write("\!nMode2");mode1Flag = 0;mode2Flag = 1;redrawIfBoxes,
				)
			)
		);
	),
	Button Box("All Modes", Write("Always active")),
	IB1 = If Box(mode1Flag, Button Box("GUI ELEMENT for Mode1", Write("Button pressed"))), 
	IB2 = If Box(mode2Flag, Button Box("GUI ELEMENT for Mode2", Write("Button pressed")))
	
);

NW = New Window("Test",<< Show Toolbars(0),<<ShowMenu(0), gui);

[#2]

For now I have it done this way:

Names Default To Here( 1 );

modeSelectorOptions = {"Mode1", "Mode2"};
mode1Flag = 1;
mode2Flag = 0;
mode1IfBoxes = {IB1, IB3, IB5};
mode2IfBoxes = {IB2, IB4, IB6};
gui = V List Box(
	modeSelector = ComboBox(modeSelectorOptions, 
		<< Set Function(
			Function(
				{this}, 
				Match(this << Get Selected(),
				modeSelectorOptions[1], Write("\!nMode1");mode1Flag = 1;mode2Flag = 0;redrawIfBoxes,
				modeSelectorOptions[2],	Write("\!nMode2");mode1Flag = 0;mode2Flag = 1;redrawIfBoxes,
				)
			)
		);
	),
	Button Box("All Modes", Write("Always active")),
	IB1 = If Box(mode1Flag, Button Box("GUI ELEMENT for Mode1", Write("Button pressed"))), 
	IB2 = If Box(mode2Flag, Button Box("GUI ELEMENT for Mode2", Write("Button pressed"))),
	IB3 = If Box(mode1Flag, Button Box("GUI ELEMENT for Mode1", Write("Button pressed"))), 
	IB4 = If Box(mode2Flag, Button Box("GUI ELEMENT for Mode2", Write("Button pressed"))),
	IB5 = If Box(mode1Flag, Button Box("GUI ELEMENT for Mode1", Write("Button pressed"))), 
	IB6 = If Box(mode2Flag, Button Box("GUI ELEMENT for Mode2", Write("Button pressed")))
	
);
redrawIfBoxes = Expr(
	mode1IfBoxes << Set (mode1Flag);
	mode2IfBoxes << Set (mode2Flag);
);

NW = New Window("Test",<< Show Toolbars(0),<<ShowMenu(0), gui);

Let me know if there is a more robust way.
With more modes redrawIfBoxes can be changed from Expression to Function to match list of IfBoxes to a specific flag without ever needing to update the function.

The only two places to update - lists of If Boxes and Match statement in selector combobox.