Q5/ws_objects/Ew_publ903.pbl.src/f_add_menuitem_xls_dft.srf

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

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

global subroutine f_add_menuitem_xls_dft (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_sample
lm = CREATE m_dft_xls_item
lm_sample = CREATE m_dft_xls_item_sample
vmMenu.Item[iiPos] = lm_sample.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