diff options
author | jestin | 2004-06-25 18:26:19 +0000 |
---|---|---|
committer | jestin | 2004-06-25 18:26:19 +0000 |
commit | cfc602e2408bf90cce7be62f3f1e940cd5af7172 (patch) | |
tree | f3b3078f308ff676acfee099aa3c0a4268e15b9a /examples/Test.tcl | |
parent | 43eaf35871578ea498e20ed4f945cce14f8f3032 (diff) | |
download | ivy-c-cfc602e2408bf90cce7be62f3f1e940cd5af7172.zip ivy-c-cfc602e2408bf90cce7be62f3f1e940cd5af7172.tar.gz ivy-c-cfc602e2408bf90cce7be62f3f1e940cd5af7172.tar.bz2 ivy-c-cfc602e2408bf90cce7be62f3f1e940cd5af7172.tar.xz |
j'ajoute des exemples de code dans le CVS. il faudra les intégrer à la doc...
Diffstat (limited to 'examples/Test.tcl')
-rwxr-xr-x | examples/Test.tcl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/examples/Test.tcl b/examples/Test.tcl new file mode 100755 index 0000000..e2bb650 --- /dev/null +++ b/examples/Test.tcl @@ -0,0 +1,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 |