Posted to tcl by colin at Sat Jul 31 01:48:51 GMT 2010view raw

  1. websocket {
  2. domain WebSocket
  3. url /ws/
  4. open {
  5. alert("Opened");
  6. ws.send("OPEN");
  7. }
  8. events {
  9. alert("got websocket event");
  10. $('#content').append(e.data + '<br>')
  11. }
  12. js {
  13. $('#message').change(function(){
  14. ws.send("MOOP");
  15. //ws.send($(this).val());
  16. //$(this).val('');
  17. });
  18. }
  19. html {
  20. <h1>WebSocket Chat</h1>
  21. <section id="content"></section>
  22. <input id="message" type="text"/>
  23. }
  24. lambda {
  25. while {1} {
  26. set message [rx]
  27. tx $message
  28. }
  29. }
  30. }