blob: e2bb650a433ef719ad3d2994f824549480343da3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!/usr/bin/tclsh
load ../src/libtclivy.so.3.6
proc connxCB { name event } {
puts "an Ivy agent named $name $event"
}
proc msgCB {client str} {
puts "received $str from client $client"
}
Ivy::init "TESTTCL" "TESTTCL Ready" connxCB connxCB
set id [ Ivy::bind "(.*)" msgCB ]
Ivy::start ""
vwait tcl_interactive
|
