Combines object creation and On_Item for Popup Menus
#IF (!0>1)
Register_Object !2
On_Item !1 send MENUPOPUP to (!2(self))
#IF (!0>2)
Object !2 !3 !4 !5 !6 !7 !8 !9
#ELSE
Object !2 is a PopupMenu
#ENDIF
Item_List
#ELSE
Object !1 is an MenuBar
Item_List
#ENDIF