Index: openacs-4/packages/xowiki/tcl/chat-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/chat-procs.tcl,v diff -u -N -r1.19 -r1.19.2.1 --- openacs-4/packages/xowiki/tcl/chat-procs.tcl 16 Jun 2015 19:49:20 -0000 1.19 +++ openacs-4/packages/xowiki/tcl/chat-procs.tcl 1 Nov 2016 18:54:06 -0000 1.19.2.1 @@ -119,7 +119,7 @@ error "mode $mode unknown, valid are: polling, streaming and scripted-streaming" } } - set send_url ${path}ajax/chat?m=add_msg&$context&msg= + set send_url ${path}ajax/chat?m=add_msg&$context&msg= if { ![file exists [acs_root_dir]/$jspath] } { return -code error "File [acs_root_dir]/$jspath does not exist" @@ -140,6 +140,8 @@ overflow:auto; } + template::add_body_script -script [subst {document.getElementById('chatMsg').focus();}] + switch $mode { polling {return "\ -
+
+
"