aboutsummaryrefslogtreecommitdiff
path: root/sandbox/testwind.tcl
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"]