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!