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/unBind.tcl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 examples/unBind.tcl

(limited to 'examples/unBind.tcl')

diff --git a/examples/unBind.tcl b/examples/unBind.tcl
new file mode 100755
index 0000000..6440f1a
--- /dev/null
+++ b/examples/unBind.tcl
@@ -0,0 +1,22 @@
+#!/usr/bin/tclsh
+load ./libtclivy.so.3.6
+
+proc connect { client action } { }
+
+proc send { } {
+  global tosend
+  Ivy::send $tosend
+}
+
+proc dotext {client} {
+  global id
+  puts "$client told me to unbind (to $id)"
+  Ivy::unbind $id
+}
+
+Ivy::init "TCLTK" "TCLTK Ready" connect connect
+Ivy::start ""
+set id [Ivy::bind "^unbind" dotext]
+puts "bound to value $id"
+
+vwait tcl_interactive
-- 
cgit v1.1