[squeak-dev] The Trunk: Monticello-ul.630.mcz

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


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!



More information about the Squeak-dev mailing list