diff options
Diffstat (limited to 'sandbox/testwind.tcl')
| -rw-r--r-- | sandbox/testwind.tcl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/sandbox/testwind.tcl b/sandbox/testwind.tcl index 31723f9..8ad97e0 100644 --- a/sandbox/testwind.tcl +++ b/sandbox/testwind.tcl @@ -11,6 +11,9 @@ pack .r -expand t -fill both .r addtag controls withtag $top set ent [entry .r.entry] +set wind [.r add window $top -window $ent -position "100 100" -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"] |