[squeak-dev] The Trunk: Monticello-cmm.621.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Nov 5 21:53:36 UTC 2015


Chris Muller uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-cmm.621.mcz

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

Name: Monticello-cmm.621
Author: cmm
Time: 5 November 2015, 3:53:18.966 pm
UUID: 0c3823f5-2b63-4e87-af64-20ba08dc97b0
Ancestors: Monticello-nice.620

- Fix filing in of an entire class from the MCSnapshotBrowser.  Before, it would only file in the methods of the selected meta-switch (instance-side or class-side), now it always files in both sides.

=============== Diff against Monticello-nice.620 ===============

Item was changed:
  ----- Method: MCSnapshotBrowser>>methodsForSelectedClass (in category 'accessing') -----
  methodsForSelectedClass
+ 	^ items select:
+ 		[ : ea | ea className = classSelection and: [ ea isMethodDefinition ] ]!
- 	^ items select: [:ea | (ea className = classSelection) 
- 									and: [ea isMethodDefinition
- 									and: [ea classIsMeta = self switchIsClass]]].!

Item was added:
+ ----- Method: MCSnapshotBrowser>>methodsForSelectedClassAndMetaSelection (in category 'accessing') -----
+ methodsForSelectedClassAndMetaSelection
+ 	^ self methodsForSelectedClass select:
+ 		[ : each | each classIsMeta = self switchIsClass ]!

Item was changed:
  ----- Method: MCSnapshotBrowser>>methodsForSelectedClassCategory (in category 'accessing') -----
  methodsForSelectedClassCategory
+ 	^ items select:
+ 		[ : ea | (self visibleClasses includes: ea className) and: [ ea isMethodDefinition ] ]!
- 	| visibleClasses |
- 	visibleClasses := self visibleClasses.
- 	^ items select: [:ea | (visibleClasses includes: ea className) 
- 									and: [ea isMethodDefinition
- 									and: [ea classIsMeta = self switchIsClass]]].!

Item was changed:
  ----- Method: MCSnapshotBrowser>>methodsForSelectedProtocol (in category 'accessing') -----
  methodsForSelectedProtocol
  	| methods |
  	protocolSelection ifNil: [^ Array new].
+ 	methods := self methodsForSelectedClassAndMetaSelection asOrderedCollection.
- 	methods := self methodsForSelectedClass asOrderedCollection.
  	(protocolSelection = '-- all --') 
  		ifFalse: [methods removeAllSuchThat: [:ea | ea category ~= protocolSelection]].
  	^ methods 
  	
  								!

Item was changed:
  ----- Method: MCSnapshotBrowser>>visibleProtocols (in category 'listing') -----
  visibleProtocols
  	| methods protocols |
  	self switchIsComment ifTrue: [^ Array new].
+ 	methods := self methodsForSelectedClassAndMetaSelection.
- 	methods := self methodsForSelectedClass.
  	protocols := (methods collect: [:ea | ea category]) asSet asSortedCollection.
  	(protocols size > 1) ifTrue: [protocols add: '-- all --'].
  	^ protocols !



More information about the Squeak-dev mailing list