From dff1c7f433b08687e8ba0f926f3c77b989931fa9 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Fri, 7 Jul 2017 19:58:39 +0000
Subject: [PATCH] Updating versions.

---
 .../GrafoscopioDocumentation.class.st         | 27 +++++++++++++++----
 1 file changed, 22 insertions(+), 5 deletions(-)

diff --git a/repository/Grafoscopio-Utils/GrafoscopioDocumentation.class.st b/repository/Grafoscopio-Utils/GrafoscopioDocumentation.class.st
index bef9351..19bf3ad 100644
--- a/repository/Grafoscopio-Utils/GrafoscopioDocumentation.class.st
+++ b/repository/Grafoscopio-Utils/GrafoscopioDocumentation.class.st
@@ -15,6 +15,16 @@ Class {
 	#category : #'Grafoscopio-Utils'
 }
 
+{ #category : #api }
+GrafoscopioDocumentation class >> download: aFileName [
+	self newDefault download: aFileName 
+]
+
+{ #category : #initialization }
+GrafoscopioDocumentation class >> initialize [
+	^ self newDefault initialize
+]
+
 { #category : #updating }
 GrafoscopioDocumentation class >> listOutdatedDocs [
 	^ self newDefault listOutdatedDocs
@@ -27,7 +37,7 @@ GrafoscopioDocumentation class >> newDefault [
 
 { #category : #updating }
 GrafoscopioDocumentation class >> update [
-	self newDefault update
+	^ self newDefault update
 ]
 
 { #category : #updating }
@@ -46,6 +56,14 @@ GrafoscopioDocumentation class >> updateAllUI [
 		ifTrue: [ self updateAll ]
 ]
 
+{ #category : #accessing }
+GrafoscopioDocumentation >> addDocument: aFilePath [
+	"I add the document contained in aFilePath (a String) to the list of documents that belong
+	to this collection, taking care of avoiding repetitions"
+
+	(self documents includes: aFilePath) ifFalse: [ self documents add: aFilePath ]
+]
+
 { #category : #accessing }
 GrafoscopioDocumentation >> documents [
 	^ documents ifNil: [ documents := OrderedCollection new ]
@@ -93,8 +111,7 @@ GrafoscopioDocumentation >> listOutdatedDocs [
 
 { #category : #accessing }
 GrafoscopioDocumentation >> localPlace [
-	^ localPlace ifNil: [ 
-		localPlace := FileLocator workingDirectory asFileReference / 'Grafoscopio' ].
+	^ localPlace.
 ]
 
 { #category : #accessing }
@@ -133,8 +150,8 @@ GrafoscopioDocumentation >> repository [
 ]
 
 { #category : #accessing }
-GrafoscopioDocumentation >> repository: anObject [
-	repository := anObject
+GrafoscopioDocumentation >> repository: aFossilRepo [
+	repository := aFossilRepo
 ]
 
 { #category : #updating }