The Trunk: Monticello-mt.615.mcz

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

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

Name: Monticello-mt.615
Author: mt
Time: 6 May 2015, 9:33:45.98 am
UUID: 0eaf95a3-eb08-b245-96d4-713242d796c2
Ancestors: Monticello-eem.614

Some ShoutCore dependencies untangled.

=============== Diff against Monticello-eem.614 ===============

Item was added:
+ ----- Method: MCPatchBrowser>>aboutToStyle: (in category 'styling') -----
+ 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 added:
+ ----- Method: MCSnapshotBrowser>>aboutToStyle: (in category 'styling') -----
+ 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 added:
+ ----- Method: MCSnapshotBrowser>>bindingOf: (in category 'binding') -----
+ bindingOf: aSymbol
+
+ (Smalltalk bindingOf: aSymbol) ifNotNil: [ :binding | ^binding ].
+ items do: [ :each |
+ (each isClassDefinition and: [
+ each className = aSymbol ]) ifTrue: [ ^aSymbol -> each ] ].
+ ^nil!