Tk Source Code

Artifact abecd113a65580177b73ffe0afa50075ba708fdb:

Attachment "menutst.tk" to ticket [1723059f] added by kaitzschu 2007-05-22 04:29:58.

---

menu .bar
# bar has to be assigned as toplevel menu
. configure -menu .bar
.bar add cascade

menu .bar.sub1
menu .bar.sub2

puts [winfo children .bar]
.bar entryconfigure 1 -menu .bar.sub1
puts [winfo children .bar]
.bar entryconfigure 1 -menu .bar.sub1
puts [winfo children .bar]
.bar entryconfigure 1 -menu .bar.sub2
puts [winfo children .bar]