adam@2012: fun main () =
adam@2012: b <- source True;
adam@2012: let
adam@2012: fun textboxList xs =
adam@2012:
adam@2012: {List.mapX (fn src =>
adam@2012:
adam@2012:
adam@2012: |
) xs}
adam@2012:
adam@2012:
adam@2012: in
adam@2012: s <- source "foo";
adam@2012: return
adam@2012:
adam@2012: {textboxList (s :: s :: [])}
adam@2012:
adam@2012: end