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