[Pkg] The Trunk: Monticello-mt.615.mcz

commits at source.squeak.org commits at source.squeak.org
Wed May 6 07:34:04 UTC 2015


Marcel Taeumel uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-mt.615.mcz

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

Name: Monticello-mt.615
Author: mt
Time: 6 May 2015, 9:33:45.98 am
UUID: 0eaf95a3-eb08-b245-96d4-713242d796c2
Ancestors: Monticello-eem.614

Some ShoutCore dependencies untangled.

=============== Diff against Monticello-eem.614 ===============

Item was added:
+ ----- Method: MCPatchBrowser>>aboutToStyle: (in category 'styling') -----
+ aboutToStyle: aStyler 
+ 	
+ 	selection ifNotNil: [
+ 		selection isConflict ifTrue: [ ^false ].
+ 		(selection isAddition or: [ selection isRemoval ]) ifTrue: [
+ 			selection definition isOrganizationDefinition ifTrue: [ ^false ].
+ 				aStyler classOrMetaClass: self selectedClassOrMetaClass.
+ 				^true ] ].
+ 	^false!

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

Item was added:
+ ----- Method: MCSnapshotBrowser>>bindingOf: (in category 'binding') -----
+ bindingOf: aSymbol
+ 
+ 	(Smalltalk bindingOf: aSymbol) ifNotNil: [ :binding | ^binding ].
+ 	items do: [ :each |
+ 		(each isClassDefinition and: [
+ 			each className = aSymbol ]) ifTrue: [ ^aSymbol -> each ] ].
+ 	^nil!



More information about the Packages mailing list