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/button.tk | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 examples/button.tk

(limited to 'examples/button.tk')

diff --git a/examples/button.tk b/examples/button.tk
new file mode 100755
index 0000000..c7809ba
--- /dev/null
+++ b/examples/button.tk
@@ -0,0 +1,21 @@
+#!/usr/bin/wish
+load ../src/libtclivy.so.3.6
+
+proc connect { client action } { }
+proc send { } {
+  global tosend
+  Ivy::send $tosend
+}
+
+proc dotext {client text} {
+  global tosend
+  set tosend $text
+  puts "text to send set to $text"
+}
+
+Ivy::init "TCLTK" "TCLTK Ready" connect connect
+Ivy::start 127.255.255.255:2010
+Ivy::bind "^Ivy Button text=(.*)" dotext
+set tosend foo
+button .send -command send -text "send msg"
+pack .send
-- 
cgit v1.1