Accepted Solutions
Use associative array to store your different lists, create expressions/functions to create a collector for checkboxes and ifboxes.
This doesn't use modal window, as it is much easier to develop when not using one as you can easily test different gets and such from the script editor
Names Default To Here(1);
tech_options = {"Tech1", "Tech2"};
stages_tech1 = {"Sage1_Tech1", "Sage2_Tech1"};
stages_tech1_text = {"First Level Tech1", "Second Level Tech1"};
stages_tech2 = {"Sage1_Tech2", "Sage2_Tech2"};
stages_tech2_text = {"First Level Tech2", "Second Level Tech2"};
aa_tech = Associative Array();
aa_tech["Tech1"] = Associative Array(stages_tech1, stages_tech1_text);
aa_tech["Tech2"] = Associative Array(stages_tech2, stages_tech2_text);
get_cbs = Expr(
cbs = cb_lub << XPath("//CheckBoxBox");
);
update_checkboxes = Expr(
tech_selections = lb << get selected;
cb_lub = Lineup Box(N Col(2));
For Each({tech_selection}, tech_selections,
For Each({{stage, text}}, aa_tech[tech_selection],
cb_lub << Append(Check Box(stage, << Set Function(function({this},
(this << sib) << Set(this << get);
))));
cb_lub << Append(IfBox(0, Text Box(text)))
);
);
Try((cb_collector << child) << Delete Box());
cb_collector << Append(cb_lub);
);
win = New Window("Select Tech & TestStage",
V List Box(
H List Box(
Spacer Box(Size(0, 300)), // to force height
V List Box(
Spacer Box(Size(300, 0)), // to force width
tb1 = Text Box("Select Tech", <<set font style("bold")),
lb = List Box(tech_options,
update_checkboxes
),
tb1 = Text Box("Select one or more TestStage", <<set font style("bold")),
V List Box(
cb_collector = V List Box(
cb_lub = Lineup Box(N Col(2))
)
)
)
),
H List Box(
Button Box("Select All",
get_cbs;
If(N Items(cbs),
cbs << Set All(1, Run Script(1));
)
),
Button Box("Clear All",
get_cbs;
If(N Items(cbs),
cbs << Set All(0, Run Script(1));
)
),
Button Box("Get Values",
get_cbs;
If(N Items(cbs),
cur_selection = {};
For Each({cb_vals}, cbs << get selected,
Insert Into(cur_selection, cb_vals)
);
,
cur_selection = {}
);
)
)
)
);
@jthi Thanks. Running your script starts off by showing all TestStages under TestStage by default (pasted below) and then once a Tech is selected, it behaves as needed.
Could the script be modified to not show nothing first under TestStage selection text and then once the Tech is selected, show the appropriate/available TestStages?
This is the place where you set those values first time
also if you want it to be always empty when no selections are done you will also have to make small modification to expr_update_cb
Initialize Check Box with empty list not cb_values (they are different things).
Within the expression this is the part you have to consider (and understand)
Why is if statement used here? What would happen if we go to else? What would happen if we don't have it, we have an empty list and go to Filter Each?