Posted to tcl by thomas at Mon Feb 14 18:44:52 GMT 2011view raw

  1. # Pb 1 : tornoff submenu in cascaded submenu will not show on XP !
  2.  
  3. toplevel .myTl
  4.  
  5. #wm state . withdrawn ; # Pb 2 (in a second time) : enable it and the toplevel popup tearoff will not work !
  6.  
  7. menu .popup -tearoff 1
  8. menu .popup.casc -tearoff 1
  9. .popup.casc add command -label tyty
  10.  
  11. .popup add cascade -label ll -menu .popup.casc
  12.  
  13. ttk::button .myTl.b -text toto -command { tk_popup .popup 10 10 }
  14.  
  15. pack .myTl.b