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