blob: 052b3bbb71fb0ad4f3f7d6079ef3b048c893f88f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
load libtclivy.so.3.5
proc conCB { app str2 } {
puts "TCL:Application:$app $str2"
}
proc discCB { app str2 } {
puts "TCL:Application:$app $str2"
}
proc msgCB {str} {
puts "TCL:Message:$str"
}
Ivy::init TESTTCL "TESTTCL Ready" conCB discCB
Ivy::start ""
Ivy::bind "(.*)" msgCB
Ivy::applist
Ivy::send test
Ivy::applist
vwait tcl_interactive
|
