From cfc602e2408bf90cce7be62f3f1e940cd5af7172 Mon Sep 17 00:00:00 2001
From: jestin
Date: Fri, 25 Jun 2004 18:26:19 +0000
Subject: j'ajoute des exemples de code dans le CVS. il faudra les intégrer à
 la doc...

---
 examples/Test.tcl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100755 examples/Test.tcl

(limited to 'examples/Test.tcl')

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
-- 
cgit v1.1