[Pkg] The Trunk: Monticello-ul.631.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Apr 3 02:32:47 UTC 2016


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!



More information about the Packages mailing list