hg/stx-goodies-monticello: comparison MCMethodDefinition.st

equal deleted inserted replaced

-:c4564a0396b9
+:8cbc9884f0cd
 "{ Package: 'stx:goodies/monticello' }"
 MCDefinition subclass:#MCMethodDefinition
-	instanceVariableNames:'classIsMeta source category selector className timeStamp
+	instanceVariableNames:'classIsMeta source category selector className timeStamp'
-	'
 	classVariableNames:'Definitions'
 	poolDictionaries:''
 	category:'SCM-Monticello-Modeling'
 !
 	(definition isNil
 		or: [definition selector ~= aMethodReference methodSymbol]
 		or: [definition className ~= aMethodReference classSymbol]
 		or: [definition classIsMeta ~= aMethodReference classIsMeta]
 		or: [definition category ~= aMethodReference category])
 			ifTrue: [definition := self
 						className: aMethodReference classSymbol
 						classIsMeta: aMethodReference classIsMeta
 						selector: aMethodReference methodSymbol
 						category: aMethodReference category
 						timeStamp: aMethodReference timeStamp
 						source: aMethodReference source.
 					self cachedDefinitions at: aMethodReference compiledMethod put: definition].
 	^ definition
 !
 initialize
 "
 Smalltalk addToShutDownList: self
 ! !
 !MCMethodDefinition methodsFor:'accessing'!
 actualClass
 ^ Smalltalk
 at:(self installedClassName ? className) asSymbol
 ifPresent: [:class |
 classIsMeta
 ifTrue: [class theMetaclass "classSide"]
 ifFalse: [class]
 ]
 "Modified: / 07-09-2011 / 15:23:45 / cg"
 "Modified: / 12-08-2013 / 01:34:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 className
 	^className
 !
 description
 	^ Array
 		with: className
 		with: selector
 		with: classIsMeta
 !
 source
 	^ source
 !
+source: something
+	source := something
+!
 timeStamp
 	^ timeStamp
 ! !
 !MCMethodDefinition methodsFor:'annotations'!
 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"
 ].
 package := MCStXPackageQuery query.
 actualClass := self actualClass.
 actualClass isNil ifTrue:[
 MCCannotLoadMethodError
 raiseRequestWith:self
 errorString:('missing class: %1' bindWith:className).
 ^ self "/ proceeded
 ].
 oldMethod := actualClass compiledMethodAt: self selector.
 				[(tokens at: tokens size-1) = #stamp:
 				ifTrue: ["New format gives change stamp and unified prior pointer"
 						stamp := tokens at: tokens size]].
 		methodCategory := tokens after: #methodsFor: ifAbsent: ['as yet unclassifed'].
 		methodCategory = category ifFalse:
 			[methodCategory = (Smalltalk
 									at: #Categorizer
 									ifAbsent: [Smalltalk at: #ClassOrganizer])
 										default ifTrue: [methodCategory := methodCategory, ' '].
 			^ ChangeRecord new file: file position: position type: #method
 						class: className category: methodCategory meta: classIsMeta stamp: stamp].
 		position := prevPos.
 		prevPos notNil ifTrue:
 			[file := sourceFilesCopy at: prevFileIndex]].
 		^ nil]
 			ensure: [sourceFilesCopy do: [:x | x notNil ifTrue: [x close]]]
 !
 unload
 | previousVersion class |
 !MCMethodDefinition methodsFor:'private'!
 existingMethodOrNil
 | actualClass |
 actualClass := self actualClass.
 ^actualClass
 ifNil:[nil]
 ifNotNil: [actualClass compiledMethodAt:self selector]
 "Modified: / 08-11-2010 / 17:41:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 initializeWithClassName: classString
 classIsMeta: metaBoolean
 selector: selectorString
 category: catString
 timeStamp: timeString
 source: sourceString
 className := classString asSymbol.
 selector := selectorString asSymbol.
 category := catString asSymbol.
 timeStamp := timeString.
 classIsMeta := metaBoolean.
 	^ true
 !
 isInitializer
 	^ selector = #initialize and: [classIsMeta]
 !
 isMethodDefinition
 	^true
 !
 isOverrideDefinition
 | oldMethod |
 oldMethod := self existingMethodOrNil.
 ^oldMethod
 ifNil:[false]
 ifNotNil:[oldMethod package ~= MCStXPackageQuery query]
 "Created: / 08-11-2010 / 17:29:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 ! !
 !MCMethodDefinition class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/goodies/monticello/MCMethodDefinition.st,v 1.14 2013-08-12 00:44:57 vrany Exp $'
+^ '$Header: /cvs/stx/stx/goodies/monticello/MCMethodDefinition.st,v 1.15 2014-11-06 03:14:18 vrany Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/goodies/monticello/MCMethodDefinition.st,v 1.14 2013-08-12 00:44:57 vrany Exp $'
+^ '$Header: /cvs/stx/stx/goodies/monticello/MCMethodDefinition.st,v 1.15 2014-11-06 03:14:18 vrany Exp $'
 !
 version_SVN
-^ '$Id: MCMethodDefinition.st,v 1.14 2013-08-12 00:44:57 vrany Exp $'
+^ '$Id: MCMethodDefinition.st,v 1.15 2014-11-06 03:14:18 vrany Exp $'
 ! !
 MCMethodDefinition initialize!

changeset 937	8cbc9884f0cd
parent 893	822c94cd6f8d
child 941	29ec49f55cc2