nProcs

nProc trackMenu(long wnd){

    long menu=createPopupMenu()
    appendMenu(menu,,101,"Eintrag &hinzufügen")
    appendMenu(menu,,102,"Eintrag &entfernen")
    setForegroundWindow(wnd)
    long mPos=dim(8)
    getCursorPos(mPos)
    long rt=trackPopupMenu(menu,tpm_returnCmd | tpm_rightButton,long(mPos,),long(mPos,4),,wnd,)
    dispose(mPos)
    destroyMenu(menu)
    postMessage(wnd,WM_NULL,,)
    return rt

}