Not exactly sure what you are after, but maybe something like this?
Names Default To Here(1);
nw1_expr = Expr(
New Window("1",
Text Box("Window1"),
H List Box(
Button Box("OK"),
Button Box("Cancel", << Set Function(function({this},
(this << top parent) << Close Window;
nw2_expr;
)))
)
);
);
nw2_expr = Expr(
New Window("2",
Text Box("Window2"),
H List Box(
Button Box("OK"),
Button Box("No", << Set Function(function({this},
(this << top parent) << Close Window;
nw1_expr;
)))
)
);
);
nw1_expr;
-Jarmo