blob: 6440f1aa1b05c0aaf13811c4d9b7f7613c9b88df (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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
|
