Names Default To Here(1);
nw = New Window("Mountains",
vlb = V List Box(
tb = Table Box(
scb = String Col Box("Mountain", {"K2", "Delphi", "Kilimanjaro", "Grand Teton"}),
ncb = Number Col Box("Elevation (meters)", {8611, 681, 5895, 4199}),
pcb = Plot Col Box("", {8611, 681, 5895, 4199})
)
)
);
// Add "filter"
vlb << Prepend(
tb2 = Table Box(
sceb1 = String Col Edit Box("", {""}),
sceb2 = String Col Edit Box("", {""}),
sceb3 = String Col Edit Box("", {""})
)
);
tb2 << Set Cell Changed Function(function({this, col, row},
filter_val = lowercase((col << get)[row]);
If(Is Missing(filter_val),
tb << reset filter;
return();
);
Eval(EvalExpr(
tb << Filter Where(Contains(lowercase(Mountain), Expr(filter_val)));
));
));
sceb1 << Set Width(scb << get width);
sceb2 << Set Width(ncb << get width);
sceb3 << Set Width(pcb << get width);