Artifact
fd160f3a9dfc5d59b8acffdd7fedede36eb974cd791b13b6eb5141553c8edaf7:
Attachment "popUpMenuIssue2.tcl" to
ticket [fc5073a4]
added by
nab
2022-02-05 17:01:47.
package require Tk
proc mMMenu {myMenu} {
set x [menu $myMenu]
$x add command -label "menu1"
$x add command -label "menu2"
$x add command -label "menu3"
}
ttk::menubutton .m -direction below -menu .mM
mMMenu .mM
grid .m -sticky news
toplevel .t2
canvas .t2.c -width 200 -height 200
grid .t2.c -sticky news
update idletasks
after 1000 {destroy .t2}
.mM post 50 50
update idletasks