134 lines
2.3 KiB
Smalltalk
134 lines
2.3 KiB
Smalltalk
"
|
|
I'm FossilCommit the representation of a commit in the history of a fossil repository.
|
|
|
|
I store the data of a single fossil commit, to help in the interaction with external fossil repositories and the
|
|
internal smalltalk objects. I was created to facilitate graphical representation of fossil repositorires inside Roassal.
|
|
|
|
For the Collaborators Part: State my main collaborators and one line about how I interact with them.
|
|
|
|
Public API and Key Messages
|
|
|
|
- message one
|
|
- message two
|
|
- what is the way to create instances is a plus.
|
|
|
|
One simple example is simply gorgeous.
|
|
|
|
Internal Representation and Key Implementation Points.
|
|
|
|
Instance Variables
|
|
comment: <Object>
|
|
isLeaf: <Object>
|
|
parents: <Object>
|
|
tags: <Object>
|
|
timestamp: <Object>
|
|
type: <Object>
|
|
user: <Object>
|
|
uuid: <Object>
|
|
|
|
|
|
Implementation Points
|
|
"
|
|
Class {
|
|
#name : #FossilCommit,
|
|
#superclass : #Object,
|
|
#instVars : [
|
|
'isLeaf',
|
|
'type',
|
|
'timestamp',
|
|
'user',
|
|
'uuid',
|
|
'comment',
|
|
'parents',
|
|
'tags'
|
|
],
|
|
#category : #'Grafoscopio-ExternalTools-Fossil'
|
|
}
|
|
|
|
{ #category : #accessing }
|
|
FossilCommit >> comment [
|
|
^ comment
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
FossilCommit >> comment: anObject [
|
|
comment := anObject
|
|
]
|
|
|
|
{ #category : #initializing }
|
|
FossilCommit >> initialize [
|
|
"Creates an empty commit"
|
|
|
|
super initialize.
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
FossilCommit >> isLeaf [
|
|
^ isLeaf
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
FossilCommit >> isLeaf: anObject [
|
|
isLeaf := anObject
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
FossilCommit >> parents [
|
|
^ parents
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
FossilCommit >> parents: anObject [
|
|
parents := anObject
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
FossilCommit >> tags [
|
|
^ tags
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
FossilCommit >> tags: anObject [
|
|
tags := anObject
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
FossilCommit >> timestamp [
|
|
^ timestamp
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
FossilCommit >> timestamp: anObject [
|
|
timestamp := anObject
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
FossilCommit >> type [
|
|
^ type
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
FossilCommit >> type: anObject [
|
|
type := anObject
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
FossilCommit >> user [
|
|
^ user
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
FossilCommit >> user: anObject [
|
|
user := anObject
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
FossilCommit >> uuid [
|
|
^ uuid
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
FossilCommit >> uuid: anObject [
|
|
uuid := anObject
|
|
]
|