Posted to tcl by thomas at Mon Feb 14 18:44:52 GMT 2011view raw
- # Pb 1 : tornoff submenu in cascaded submenu will not show on XP !
- toplevel .myTl
- #wm state . withdrawn ; # Pb 2 (in a second time) : enable it and the toplevel popup tearoff will not work !
- menu .popup -tearoff 1
- menu .popup.casc -tearoff 1
- .popup.casc add command -label tyty
- .popup add cascade -label ll -menu .popup.casc
- ttk::button .myTl.b -text toto -command { tk_popup .popup 10 10 }
- pack .myTl.b