The Trunk: Monticello-ul.631.mcz

Levente Uzonyi uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-ul.631.mcz

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

Name: Monticello-ul.631
Author: ul
Time: 3 April 2016, 4:21:14.951568 am
UUID: 7e079ac8-236b-48c3-b494-ed87e2d94ab2
Ancestors: Monticello-ul.630

- fixed slip in the last change

=============== Diff against Monticello-ul.630 ===============

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 ].
+ (Smalltalk classNamed: #SHMCClassDefinition)
- (self environment classNamed: #SHMCClassDefinition)
  ifNil: [ ^false ]
  ifNotNil: [ :SHMCClassDefinition |
  aStyler
  environment: self;
  classOrMetaClass: (classDefinition ifNotNil: [
  SHMCClassDefinition
  classDefinition: classDefinition
  items: items
  meta: switch = #class ]) ].
  ^shouldStyle!