diff options
| author | lecoanet | 2000-06-21 13:50:05 +0000 |
|---|---|---|
| committer | lecoanet | 2000-06-21 13:50:05 +0000 |
| commit | 63cac955e941894fe2e705db1bb98bfbc786a8a5 (patch) | |
| tree | 61c603334c679c6c15aaba2150d0632e83360750 /sandbox/testwind.tcl | |
| parent | a3f8b8bf667fbd6d7ea9e74e26c4e561b02ddafc (diff) | |
| download | tkzinc-63cac955e941894fe2e705db1bb98bfbc786a8a5.zip tkzinc-63cac955e941894fe2e705db1bb98bfbc786a8a5.tar.gz tkzinc-63cac955e941894fe2e705db1bb98bfbc786a8a5.tar.bz2 tkzinc-63cac955e941894fe2e705db1bb98bfbc786a8a5.tar.xz | |
*** empty log message ***
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"] |