tell application id "OFOC"
	tell front document
		tell front document window
			repeat with oPanel in {sidebar, content}
				set refProj to (a reference to (value of selected trees of oPanel where class of its value is project))
				set lstProj to refProj as list
				if lstProj ≠ {} then exit repeat
			end repeat
		end tell
		if lstProj = {} then return
		
		-- Invert status of 1st selected project, 
		-- and apply inversion to all selected projects.
		if (status of item 1 of lstProj) ≠ on hold then
			set status of refProj to on hold
		else
			set status of refProj to active
		end if
		
	end tell
end tell