49 lines
1.1 KiB
Smalltalk
49 lines
1.1 KiB
Smalltalk
"
|
|
I model a documentation object for Grafoscopio.
|
|
Documents are stored in a fossil repository and have
|
|
relative paths to it.
|
|
"
|
|
Class {
|
|
#name : #Documentation,
|
|
#superclass : #Object,
|
|
#instVars : [
|
|
'repository',
|
|
'documents'
|
|
],
|
|
#category : #'Grafoscopio-Model'
|
|
}
|
|
|
|
{ #category : #queries }
|
|
Documentation class >> grafoscopioDocumentation [
|
|
"I model the important documents that belong to the Grafoscopio documentation.
|
|
When more documents become more mature and usable, I will include them."
|
|
|
|
| gfcDocumentation |
|
|
gfcDocumentation := self new.
|
|
gfcDocumentation repository: (FossilRepo new url: 'http://mutabit.com/repos.fossil/grafoscopio').
|
|
gfcDocumentation documents: (Dictionary new
|
|
at: 'Spanish Tutorial' put: 'Docs/Es/Tutoriales/tutorial.ston'; yourself).
|
|
^ gfcDocumentation
|
|
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
Documentation >> documents [
|
|
^ documents
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
Documentation >> documents: anObject [
|
|
documents := anObject
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
Documentation >> repository [
|
|
^ repository
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
Documentation >> repository: anObject [
|
|
repository := anObject
|
|
]
|