From 1abb393b3b605c1e5b2da35f2c5f893a2caeccce Mon Sep 17 00:00:00 2001
From: fcolin
Date: Thu, 18 Sep 2003 16:03:15 +0000
Subject: mise a jour avec la modif de passage arguments dans le C

---
 src/Test.tcl | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

(limited to 'src')

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