# -*- tcl-*- # $Id: ajax-chat.page,v 1.1 2006/08/17 01:44:27 gustafn Exp $ ::xowiki::Object new -title "Ajax Chat" -text { proc content {} { #::xowiki::Chat login -chat_id 22 -mode polling ::xowiki::Chat login -chat_id 22 } }