FossilRepo support for the creation given url in a string.

2016-09-30 19:10:34 +00:00 · 2016-09-30 19:10:34 +00:00 · 3c873e2475
parent b5277bee83
commit 3c873e2475
1 changed files with 15 additions and 0 deletions
--- a/repository/Grafoscopio/FossilRepo.class.st
+++ b/repository/Grafoscopio/FossilRepo.class.st
@ -1,3 +1,8 @@
+"
+I model a fossil repository. For details about fossil see:
+
+http://fossil-scm.org/
+"
 Class {
 	#name : #FossilRepo,
 	#superclass : #Object,
@ -6,3 +11,13 @@ Class {
 	],
 	#category : #'Grafoscopio-Model'
 }
+
+{ #category : #accessing }
+FossilRepo >> url [
+	^ url
+]
+
+{ #category : #accessing }
+FossilRepo >> url: aString [
+	url := aString asUrl 
+]