blob: 2c7068c859be85808000d5ad61473a49e2b0c73f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
style s1
style s2
fun main () : transaction page =
src <- source s1;
s <- source "";
toggle <- source False;
return <xml>
<head>
<link rel="stylesheet" type="text/css" href="http://localhost/test.css"/>
</head>
<body>
<button dynClass={signal src} onclick={set src s2}/>
<hr/>
<ctextbox source={s} dynClass={t <- signal toggle;
return (if t then s1 else s2)}
onkeyup={fn _ => t <- get toggle; set toggle (not t)}/>
</body>
</xml>
|
