blob: a11e5b1235d3f39ea0d5a453299c3099be72768f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/usr/bin/wish
load ../src/libtclivy.so.3.11
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
|
