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