let
get_selected_rows s =
let
l = ref []
in
selected_foreach s (
fun
p
->
l := p :: !l);
List
.rev !l