$PBExportHeader$f_add_menuitem.srf
$PBExportComments$the main function...~r~n  hehe, only few scripts.    :)
global type f_add_menuitem from function_object
end type

forward prototypes
global subroutine f_add_menuitem (menu vmmenu, integer arg_sit, readonly string ositemtext, readonly string ositemtag)
end prototypes

global subroutine f_add_menuitem (menu vmmenu, integer arg_sit, readonly string ositemtext, readonly string ositemtag);integer iiPos//arg_sit //
iiPos=upperbound(vmMenu.item)+1	// can only append now
menu lm
lm=create m_ljerp2_main_menu_item_sp1
vmMenu.item[iiPos]=lm.item[1]		//must be item[1], or you'll find a funny result
vmMenu.item[iiPos].text=osItemText
vmMenu.item[iiPos].tag=osItemTag
end subroutine