Attachment "menubug.tcl" to
ticket [680660ff]
added by
djarseneau
2003-02-06 09:18:58.
label .l -text {Position this window near the top of the screen
and click the menu button. Make a selection by clicking again.
Then move the window to the bottom of the screen and click.
Oops! You selected something without seeing it.}
label .r -text {}
menubutton .mb \
-highlightthickness 1 \
-menu ".mb.menu" \
-relief raised \
-takefocus 1 \
-text {Click Me}
menu .mb.menu
foreach item [list Doc Happy Sleepy Bashful Grumpy Sneezy Dopey ] {
.mb.menu add command -label $item \
-command [list .r configure -text "You selected $item"]
}
pack .l .r .mb
