Posted to tcl by kostix at Tue May 06 23:57:47 GMT 2008view pretty
package require ceptcl catch { file delete /tmp/dbus_test } set s [cep -domain local -server foo /tmp/dbus_test] proc foo {chan args} { fconfigure $chan -buffering none puts -nonewline $chan [string repeat x 65536] puts -nonewline $chan [string repeat x 65536] puts -nonewline $chan [string repeat x 65536] } vwait forever