4 import StdMisc,StdDebug
7 Start w = doTasks (onStartup t) w
9 t = withShared () \channels->
10 tcpconnect "localhost" 8123 channels
14 onShareChange=onShareChange,
15 onDisconnect=onDisconnect}
18 | not (trace_tn ("onConnect: " +++ toString cid)) = undef
19 = (Ok "", Nothing, [], False)
22 | not (trace_tn ("onData: " +++ newdata)) = undef
23 = (Ok "", Nothing, [], False)
26 | not (trace_tn "onShareChange") = undef
27 = (Ok "", Nothing, [], False)
30 | not (trace_tn "onDisconnect") = undef