summaryrefslogtreecommitdiff
path: root/src/Test.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'src/Test.tcl')
-rwxr-xr-xsrc/Test.tcl17
1 files changed, 0 insertions, 17 deletions
diff --git a/src/Test.tcl b/src/Test.tcl
deleted file mode 100755
index 052b3bb..0000000
--- a/src/Test.tcl
+++ /dev/null
@@ -1,17 +0,0 @@
-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 ""
-Ivy::bind "(.*)" msgCB
-Ivy::applist
-Ivy::send test
-Ivy::applist
-vwait tcl_interactive