Mercurial > urweb
comparison tests/chat.ur @ 690:01b6f2ee2ef0
Redo signal implementation to avoid memory leaks
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 02 Apr 2009 15:12:06 -0400 |
parents | 5bbb542243e8 |
children |
comparison
equal
deleted
inserted
replaced
689:b6a8425e1b1f | 690:01b6f2ee2ef0 |
---|---|
46 room <- getRoom (); | 46 room <- getRoom (); |
47 Room.send room line | 47 Room.send room line |
48 | 48 |
49 fun doSpeak () = | 49 fun doSpeak () = |
50 line <- get newLine; | 50 line <- get newLine; |
51 set newLine ""; | |
51 speak line | 52 speak line |
52 in | 53 in |
53 return <xml><body onload={onload ()}> | 54 return <xml><body onload={onload ()}> |
54 <h1>{[r.T.Title]}</h1> | 55 <h1>{[r.T.Title]}</h1> |
55 | 56 |