diff options
Diffstat (limited to 'examples/button.tk')
| -rwxr-xr-x | examples/button.tk | 21 |
1 files changed, 21 insertions, 0 deletions
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 |