There is DockingBarMorph, for example:
|d|
"World deleteDockingBars."
d:=
������ DockingBarMorph new.
������ World worldMenu items copy select:[:i| i hasSubMenu] thenDo:[:i|
������ ������ d
������ ������ add: i contents
������ ������ icon: i icon
������ ������ help: i contents
������ ������ subMenu: i subMenu].
������ d������ adhereToTop;
������ openInWorld.