Posted to tcl by thomas at Wed Mar 03 22:41:17 GMT 2010view raw

  1. toplevel .t1
  2. toplevel .t2
  3. toplevel .t3
  4.  
  5. wm title .t1 t1
  6. wm title .t2 t2
  7. wm title .t3 t3
  8.  
  9. label .t1.l -text eeee
  10. pack .t1.l
  11.  
  12. wm deiconify .t1
  13. wm withdraw .t2
  14. wm withdraw .t3
  15.  
  16.  
  17.  
  18. after 2000 wm withdraw .t1
  19. #after 1000 wm state .t1
  20.  
  21. after 3000 wm deiconify .t2
  22.  
  23.  
  24.  
  25. after 3000 wm deiconify .t3
  26.  
  27. wm transient .t3 .t2
  28.  
  29. grab set .t3