class OSX::NSObject

	def objectsForEntityNamed(ename)
		ed=NSEntityDescription.entityForName_inManagedObjectContext(ename,self)
		fr=NSFetchRequest.alloc.init
		fr.setEntity(ed)
		self.executeFetchRequest_error_(fr,nil)
	end
	
	def objectWithValue_forKey_entityNamed(value,key,entityname)
		ed=NSEntityDescription.entityForName_inManagedObjectContext(entityname,self)
		fr=NSFetchRequest.alloc.init
		fr.setEntity(ed)
		pr=NSPredicate.predicateWithFormat("#{key}==#{value}")
		fr.setPredicate(pr)
		self.executeFetchRequest_error_(fr,nil)
  end
	objc_method :objectsForEntityNamed, %w{id}
	
	def objectWithQuotedValue_forKey_entityNamed(value,key,entityname)
		ed=NSEntityDescription.entityForName_inManagedObjectContext(entityname,self)
		fr=NSFetchRequest.alloc.init
		fr.setEntity(ed)
		pr=NSPredicate.predicateWithFormat("#{key}=='#{value}'")
		fr.setPredicate(pr)
		self.executeFetchRequest_error_(fr,nil)
  end
end