examples/test_mytoplevel.tcl

   1 #!/usr/bin/tclsh
   2
   3 source "boilerplate.tcl"
   4
   5 set t   [tlc::Mytoplevel .t]
   6
   7 destroy .t
   8
   9 puts "children of the .:"
  10 puts [join [winfo children .] \n]
  11
  12 puts "objects:"
  13 puts [join [find objects] \n]