The Trunk: ShoutCore-mt.51.mcz

Marcel Taeumel uploaded a new version of ShoutCore to project The Trunk:
http://source.squeak.org/trunk/ShoutCore-mt.51.mcz

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

Name: ShoutCore-mt.51
Author: mt
Time: 6 May 2015, 9:37:51.463 am
UUID: 58d9bae4-356c-8745-940b-f394a6dde152
Ancestors: ShoutCore-mt.50

Some ShoutCore dependencies untangled.

=============== Diff against ShoutCore-mt.50 ===============

Item was removed:
- ----- Method: MCPatchBrowser>>aboutToStyle: (in category '*ShoutCore') -----
- aboutToStyle: aStyler
-
- selection ifNotNil: [
- selection isConflict ifTrue: [ ^false ].
- (selection isAddition or: [ selection isRemoval ]) ifTrue: [
- selection definition isOrganizationDefinition ifTrue: [ ^false ].
- aStyler classOrMetaClass: self selectedClassOrMetaClass.
- ^true ] ].
- ^false!

Item was removed:
- ----- Method: MCSnapshotBrowser>>aboutToStyle: (in category '*ShoutCore') -----
- aboutToStyle: aStyler
-
- | classDefinition shouldStyle |
- classSelection ifNil: [ ^false ].
- self switchIsComment ifTrue: [ ^false ].
- methodSelection
- ifNotNil: [
- classDefinition := items
- detect: [:ea |
- ea isClassDefinition and: [ ea className = classSelection ] ]
- ifNone: [
- (Smalltalk at: classSelection ifAbsent: [ Object ]) asClassDefinition ].
- shouldStyle := true ]
- ifNil: [
- classDefinition := nil.
- shouldStyle := categorySelection ~= self extensionsCategory ].
- aStyler
- environment: self;
- classOrMetaClass: (classDefinition ifNotNil: [
- SHMCClassDefinition
- classDefinition: classDefinition
- items: items
- meta: switch = #class ]).
- ^shouldStyle!

Item was removed:
- ----- Method: MCSnapshotBrowser>>bindingOf: (in category '*ShoutCore') -----
- bindingOf: aSymbol
-
- (Smalltalk bindingOf: aSymbol) ifNotNil: [ :binding | ^binding ].
- items do: [ :each |
- (each isClassDefinition and: [
- each className = aSymbol ]) ifTrue: [ ^aSymbol -> each ] ].
- ^nil!

Item was added:
+ ----- Method: Model>>hasBindingThatBeginsWith: (in category '*ShoutCore') -----
+ hasBindingThatBeginsWith: aString
+
+ ^ false!