[Pkg] Monticello Public: Monticello.impl-kph.597.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Monticello.impl was added to project Monticello Public:
http://www.squeaksource.com/mc/Monticello.impl-kph.597.mcz

==================== Summary ====================

Name: Monticello.impl-kph.597
Author: kph
Time: 5 December 2008, 6:37:56 pm
UUID: 3ef195fe-4694-4b75-a5b2-fad5150e01f6
Ancestors: Monticello.impl-kph.596

refactored selection of exact method class

=============== Diff against Monticello.impl-kph.596 ===============

Item was added:
+ ----- Method: MCMethodBeforeCommitUnloadDefinition class>>isModelFor: (in category 'as yet unclassified') -----
+ isModelFor: selector
+ 
+ 	^ selector beginsWith: 'mcOnUninstall'  !

Item was added:
+ ----- Method: MCMethodBeforeCommitLoadDefinition class>>isModelFor: (in category 'as yet unclassified') -----
+ isModelFor: selector
+ 
+ 	^ selector beginsWith: 'mcOnInstall'  !

Item was added:
+ ----- Method: MCMethodUnloaderDefinition class>>isModelFor: (in category 'as yet unclassified') -----
+ isModelFor: selector
+ 
+ 	^ selector = #unload !

Item was changed:
  ----- Method: MCMethodInitializerDefinition>>postloadOver: (in category 'as yet unclassified') -----
  postloadOver: old
  
  	super postloadOver: old.
  	
  	self actualClass isTrait ifTrue: [ ^ self ].
  	 
+ 	self actualClass theNonMetaClass perform: selector.!
- 	self actualClass theNonMetaClass initialize.!

Item was changed:
  ----- Method: MCMethodDefinition class>>classForSelector:meta: (in category 'as yet unclassified') -----
  classForSelector: selectorString meta: isMeta
  
  	isMeta ifFalse: [ ^ self ].
  	
+ 	^ self subclasses detect: [ :ea | ea isModelFor: selectorString ] ifNone: [ self ]
+ 	 !
-  	selectorString = 'initialize' ifTrue: [ ^ MCMethodInitializerDefinition ].
-  	selectorString = 'unload' ifTrue: [ ^ MCMethodUnloaderDefinition ].
-  	(selectorString beginsWith: self prefixAfterInstall) ifTrue: [ ^ MCMethodInitializerDefinition ].
-  	(selectorString beginsWith: self prefixAfterRemoval) ifTrue: [ ^ MCMethodAfterRemovalActionDefinition ].
- 
- 	(selectorString last = $:) ifTrue: [ 
- 	 	(selectorString beginsWith: self prefixBeforeCommitLoad) ifTrue: [ ^ MCMethodBeforeCommitLoadDefinition ].
-  		(selectorString beginsWith: self prefixBeforeCommitUnload) ifTrue: [ ^ MCMethodBeforeCommitUnloadDefinition ].
- 	].
- 	selectorString = 'fields' ifTrue: [ ^ MCMethodExternalFieldDefinition ].
- 	!

Item was added:
+ ----- Method: MCMethodAfterRemovalActionDefinition class>>isModelFor: (in category 'as yet unclassified') -----
+ isModelFor: selector
+ 
+ 	^ selector beginsWith: 'mcAfterRemoval'  !

Item was added:
+ ----- Method: MCMethodInitializerDefinition class>>isModelFor: (in category 'as yet unclassified') -----
+ isModelFor: selector
+ 
+ 	^ selector = 'initialize' or: [ selector beginsWith: 'mcAfterInstall' ] !

Item was added:
+ ----- Method: MCMethodFileReferenceDefinition class>>isModelFor: (in category 'as yet unclassified') -----
+ isModelFor: selector
+ 
+ 	^ selector = 'files'!

Item was added:
+ ----- Method: MCMethodExternalFieldDefinition class>>isModelFor: (in category 'as yet unclassified') -----
+ isModelFor: selector
+ 
+ 	^ selector = 'fields'!

Item was removed:
- ----- Method: MCMethodDefinition class>>prefixBeforeCommitUnload (in category 'configuration') -----
- prefixBeforeCommitUnload
- 
- 	^ 'mcOnUninstall'!

Item was removed:
- ----- Method: MCMethodDefinition class>>prefixAfterRemoval (in category 'configuration') -----
- prefixAfterRemoval
- 
- 	^ 'mcAfterRemoval'!

Item was removed:
- ----- Method: MCMethodDefinition class>>prefixAfterInstall (in category 'configuration') -----
- prefixAfterInstall
- 
- 	^ 'mcAfterInstall'!

Item was removed:
- ----- Method: MCMethodDefinition class>>prefixBeforeCommitLoad (in category 'configuration') -----
- prefixBeforeCommitLoad
- 
- 	^ 'mcOnInstall'!