Levente Uzonyi uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-ul.630.mcz==================== Summary ====================
Name: Monticello-ul.630
Author: ul
Time: 3 April 2016, 4:19:20.511794 am
UUID: 97dea0c7-b1ca-4436-8d32-3706c1efa628
Ancestors: Monticello-mt.629
- removed hard dependency on ShoutCore
=============== Diff against Monticello-mt.629 ===============
Item was changed:
----- 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 ].
+ (self environment classNamed: #SHMCClassDefinition)
+ ifNil: [ ^false ]
+ ifNotNil: [ :SHMCClassDefinition |
+ aStyler
+ environment: self;
+ classOrMetaClass: (classDefinition ifNotNil: [
+ SHMCClassDefinition
+ classDefinition: classDefinition
+ items: items
+ meta: switch = #class ]) ].
- aStyler
- environment: self;
- classOrMetaClass: (classDefinition ifNotNil: [
- SHMCClassDefinition
- classDefinition: classDefinition
- items: items
- meta: switch = #class ]).
^shouldStyle!