blob: 38c6c577da148c7e1e509837b441ad08e6e68e7b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
style foo
fun main () : transaction page =
s <- source "Initial";
return <xml>
<head>
<link rel="stylesheet" type="text/css" href="http://localhost/static/style.css"/>
</head>
<body>
<ctextbox source={s} size=5/>
<ctextbox class={foo} source={s}/>
<dyn signal={s <- signal s; return (cdata s)}/>
</body>
</xml>
|
