diff options
author | fcolin | 2003-09-18 16:03:15 +0000 |
---|---|---|
committer | fcolin | 2003-09-18 16:03:15 +0000 |
commit | 1abb393b3b605c1e5b2da35f2c5f893a2caeccce (patch) | |
tree | 958779ccdda759125de162e75157a4f8f23ad540 /src | |
parent | a63156c020986c664adc93b77202dd23943a0b3e (diff) | |
download | ivy-c-1abb393b3b605c1e5b2da35f2c5f893a2caeccce.zip ivy-c-1abb393b3b605c1e5b2da35f2c5f893a2caeccce.tar.gz ivy-c-1abb393b3b605c1e5b2da35f2c5f893a2caeccce.tar.bz2 ivy-c-1abb393b3b605c1e5b2da35f2c5f893a2caeccce.tar.xz |
mise a jour avec la modif de passage arguments dans le C
Diffstat (limited to 'src')
-rwxr-xr-x | src/Test.tcl | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/src/Test.tcl b/src/Test.tcl index bb50c29..aad5cd4 100755 --- a/src/Test.tcl +++ b/src/Test.tcl @@ -1,9 +1,17 @@ -load ivytcl.so.3.0 -Ivy::init TESTTCL "TESTTCL Ready" echo echo +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 143.196.53.255:2011 -Ivy::bind "(.*)" echo +Ivy::bind "(.*)" msgCB Ivy::applist Ivy::send test Ivy::applist -mainloop - +vwait tcl_interactive |