Q5/ws_objects/Ew_mainface.pbl.src/f_add_menuitem_print_dft_other.srf

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

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

global subroutine f_add_menuitem_print_dft_other (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_dft_dwprint_print_item_other
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