blob: 8ad97e0469269d1cf98d5516db39883445a1edc7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/usr/bin/wish -f
load tkzinc3.1.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"]
|
