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

# 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