property pTitle : "Edit folder note(s)"
tell application id "OFOC"
	tell front document window of front document
		-- GET ANY SELECTED FOLDERS
		repeat with oPanel in {sidebar, content}
			set refFolders to (a reference to (selected trees of oPanel where class of its value is folder))
			set lngFolders to count of refFolders
			if lngFolders > 0 then exit repeat
		end repeat
		if lngFolders < 1 then return
		
		-- USE THE TEXT OF THE FIRST FOLDER WITH AN EXISTING NOTE AS THE DEFAULT,
		repeat with oNote in (note of value of refFolders) as list
			if oNote ≠ "" then exit repeat
		end repeat
		
		-- AND ALLOW THE USER TO EDIT THE TEXT.
		tell (display dialog "Note for all selected folders:" default answer oNote with title pTitle) to set strNote to text returned
		
		-- SET THE NOTES OF *ALL* THE SELECTED FOLDERS TO THE NEW TEXT
		if strNote ≠ "" then set note of value of refFolders to strNote
	end tell
end tell