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

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

global subroutine f_add_menuitem_dft (menu vmmenu, integer arg_sit, readonly string ositemtext, readonly string ositemtag);Integer iiPos //arg_sit //
IF vmMenu.Item[UpperBound(vmMenu.Item)].Text = '默认格式' THEN
	iiPos = 1
ELSE
	iiPos = UpperBound(vmMenu.Item)+1 // can only append now
END IF
menu lm
lm = CREATE m_dft_dwprint_item
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