# NOTE: Derived from blib/lib/Tk.pm.
# Changes made here will be lost when autosplit is run again.
#line 615 "blib/lib/Tk.pm (autosplit into blib/lib/auto/Tk/FirstMenu.al)"
# This procedure traverses to the first menubutton in the toplevel
# for a given window, and posts that menubutton's menu.
# w - Name of a window. Selects which toplevel
# to search for menubuttons.
$w = $w->toplevel->FindMenu('');