The Trunk: Monticello-cmm.621.mcz

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 !