blob: fc7aeb436bb327511a9d84a17eaa1bb478827cc7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
style style1
style style2
fun main () : transaction page =
toggle <- source False;
return <xml>
<head>
<link rel="stylesheet" type="text/css" href="/style.css"/>
</head>
<body dynClass={b <- signal toggle;
return (if b then style1 else style2)}
dynStyle={b <- signal toggle;
return (if b then STYLE "margin: 100px" else STYLE "")}>
Body
<button onclick={fn _ => b <- get toggle; set toggle (not b)}>TOGGLE</button>
</body>
</xml>
|
