summaryrefslogtreecommitdiff
path: root/tests/lengthGe.ur
blob: 2991ad87cb78bcb295fba340effb2eb24ed1dff0 (plain)
1
2
3
4
5
6
7
fun main () : transaction page =
    s <- source "";
    return <xml><body>
      <ctextbox source={s}/>
      <dyn signal={v <- signal s;
                   return (txt (strlenGe v 3))}/>
    </body></xml>