Posted to tcl by aspect at Sun Sep 18 06:26:13 GMT 2016view raw

  1. package require Tk
  2. label .l
  3. frame .f
  4. button .f.b
  5. pack .l
  6. pack .f
  7. pack .f.b
  8. puts 00:[winfo reqwidth .]
  9. after 0 [list after idle "puts 0i:\[winfo reqwidth .\]"]
  10. after idle [list after 0 "puts i0:\[winfo reqwidth .\]"]
  11. # 00:200
  12. # 0i:4 -- only label .l's reqwidth
  13. # i0:28
  14.