blob: 5ff7f765ef0726a716ec69d1b6eaadc0f2dfba26 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/usr/local/bin/wish -f
load ../tkzinc3.2.so
set top 1
set r [zinc .r -backcolor gray -relief sunken]
pack .r -expand t -fill both
.r configure -width 800 -height 500
.r addtag controls withtag $top
set ent [entry .r.entry]
set wind [.r add window $top -window $ent -position "100 100"]
set container [frame .r.cont -container t]
set id [winfo id $container]
puts "container id is $id\n"
set cont [.r add window $top -window $container -position "200 200"]
|