Include Modify Note in Data Browser

Function ModifyMyBrowser()
 
    string brCmd, theStr = "ModifyWaveNote(%s)"
    brCmd = "CreateBrowser"
    Execute brCmd
    brCmd = "ModifyBrowser userlevel=8"
    Execute brCmd
    sprintf brCmd, "ModifyBrowser userMenu=\"Modify Note\", userMenuCommand=\"%s\"", theStr
    Execute brCmd
    brCmd = "ModifyBrowser close"
    Execute brCmd
    return 0
end
 
Function ModifyWaveNote(thewave)
    wave thewave
    
    string theNote, theHelp, theMenuStr
    variable theWay
    
    theHelp = "Change the wave note with this. Replace With Text clears and puts new. "
        theHelp += "Clear All Text will delete the entire wave note!"
    theMenuStr = "Append Text;Pre-pend Text;Replace With Text;Clear All Text!;"
 
    prompt theWay, "Modify the note by ", popup, theMenuStr
    prompt theNote, "Text: "
    doprompt/HELP=theHelp "Modify Wave Note", theWay, theNote
    
    if (!V_flag)
        switch(theWay)
            case 1:
                note thewave, theNote
                break
            case 2:
                theNote = theNote + "\r" + note(thewave)
                note/K thewave
                note thewave, theNote
                break
            case 3:
                note/K thewave
                note thewave, theNote
                break
            case 4:
                note/K thewave
                break
        endswitch
    endif
    return 0
end