Mercurial > urweb
annotate tests/jscomp.ur @ 971:c22e524a6dd3
Basic arithmetic working with interpretation
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Tue, 22 Sep 2009 13:23:27 -0400 |
| parents | |
| children | 733f67bb64e7 |
| rev | line source |
|---|---|
| adamc@971 | 1 fun main () = |
| adamc@971 | 2 s <- source ""; |
| adamc@971 | 3 |
| adamc@971 | 4 return <xml><body> |
| adamc@971 | 5 <ctextbox source={s}/><br/> |
| adamc@971 | 6 |
| adamc@971 | 7 <button value="Echo" onclick={s <- get s; alert s}/> |
| adamc@971 | 8 <button value="+1" onclick={s <- get s; alert (show (readError s + 1))}/> |
| adamc@971 | 9 <button value="*3" onclick={s <- get s; alert (show ((readError s) * 3))}/> |
| adamc@971 | 10 </body></xml> |