"{ Encoding: utf8 }"
"{ Package: 'stx:goodies/monticello' }"
"{ NameSpace: Smalltalk }"
Object subclass:#MCDefinition
instanceVariableNames:''
classVariableNames:'Instances'
poolDictionaries:''
category:'SCM-Monticello-Base'
!
!MCDefinition class methodsFor:'as yet unclassified'!
clearInstances
Instances := nil
"Modified: / 18-08-2009 / 10:14:13 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
instanceLike: aDefinition
Instances ifNil: [ Instances := WeakIdentitySet new ].
Instances do:
[:each|each = aDefinition ifTrue:[^each]].
Instances add: aDefinition.
^aDefinition.
"Instances := nil"
"Modified: / 18-08-2009 / 10:18:15 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
!MCDefinition methodsFor:'accessing'!
provisions
^ #()
!
requirements
^ #()
! !
!MCDefinition methodsFor:'annotations'!
annotations
^self annotations: Preferences defaultAnnotationRequests
!
annotations: requests
"Answer a string for an annotation pane, trying to fulfill the annotation requests.
These might include anything that
Preferences defaultAnnotationRequests
might return. Which includes anything in
Preferences annotationInfo
To edit these, use:"
"Preferences editAnnotations"
^String streamContents: [ :s | self printAnnotations: requests on: s ].
!
printAnnotations: requests on: aStream
"Add a string for an annotation pane, trying to fulfill the annotation requests.
These might include anything that
Preferences defaultAnnotationRequests
might return. Which includes anything in
Preferences annotationInfo
To edit these, use:"
"Preferences editAnnotations"
aStream nextPutAll: 'not yet implemented'
! !
!MCDefinition methodsFor:'comparing'!
< aMCMethodDefinition
^self <= aMCMethodDefinition
and: [(self = aMCMethodDefinition) not]
"Created: / 18-08-2009 / 10:25:23 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
<= other
^ self sortKey <= other sortKey
!
= aDefinition
^ self isRevisionOf: aDefinition
!
description
self subclassResponsibility
!
fullTimeStamp
^Timestamp current
!
hash
^ self description hash
!
isRevisionOf: aDefinition
^ (aDefinition isKindOf: MCDefinition) and: [aDefinition description = self description]
!
isSameRevisionAs: aDefinition
^ self = aDefinition
!
sortKey
self subclassResponsibility
! !
!MCDefinition methodsFor:'converting'!
addChangesTo:aChangeSet
"some MCDefinitions will result in multiple changes
(i.e. ClassDefinitionChange might also generate a comment change).
The default here is to add the one major change (which was also generated in the past).
Warning: callers of asChange should change their mind and use this."
aChangeSet add:self asChange
!
asChange
"raise an error: must be redefined in concrete subclass(es)"
^ self subclassResponsibility
! !
!MCDefinition methodsFor:'installing'!
load
!
loadOver: aDefinition
self load
!
postload
!
postloadOver: aDefinition
self postload
!
unload
! !
!MCDefinition methodsFor:'printing'!
printOn: aStream
super printOn: aStream.
aStream nextPutAll: '(', self summary, ')'
!
summary
self subclassResponsibility
! !
!MCDefinition methodsFor:'testing'!
isClassDefinition
^false
!
isClassDefinitionExtension
"Answer true if this definition extends the regular class definition"
^false
!
isMethodDefinition
^false
!
isOrganizationDefinition
^false
!
isOverrideDefinition
^false
"Created: / 08-11-2010 / 17:29:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!MCDefinition class methodsFor:'documentation'!
version
^ '$Header$'
!
version_CVS
^ '$Header$'
!
version_SVN
^ '$Id$'
! !