The Trunk: Monticello-ul.630.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Monticello-ul.630.mcz

commits-2
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!