The Trunk: Nebraska-ul.48.mcz

Levente Uzonyi uploaded a new version of Nebraska to project The Trunk:
http://source.squeak.org/trunk/Nebraska-ul.48.mcz

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

Name: Nebraska-ul.48
Author: ul
Time: 13 March 2017, 2:46:03.237234 pm
UUID: 739a751e-1a8e-4fd8-98d4-65cf640ee232
Ancestors: Nebraska-tfel.47

SortedCollection Whack-a-mole

How did those underscore assignments sneak back?

=============== Diff against Nebraska-tfel.47 ===============

Item was changed:
  ----- Method: NebraskaCommunicatorMorph class>>instanceReport (in category 'as yet unclassified') -----
  instanceReport "for cleaning up Alan's demo"
  "
  EToySenderMorph instanceReport
  "
  | answer resp |
 
  Smalltalk garbageCollect.
+ answer := self allInstances replace: [ :each |
- answer _ self allInstances collect: [ :each |
  {
  each.
  [each ipAddress] on: Error do: [ 'no ipAddress'].
  each owner
  ifNil: ['* no owner *']
  ifNotNil: [each owner innocuousName,' ',each owner printString].
  each world ifNil: ['-----no project-----'] ifNotNil: [each world project name].
  }
  ].
+ resp := (PopUpMenu labels: 'IP Address\Project\Owner' translated withCRs) startUpWithCaption:
- resp _ (PopUpMenu labels: 'IP Address\Project\Owner' translated withCRs) startUpWithCaption:
  'Sorted by' translated.
  resp = 1 ifTrue: [
+ ^(answer sort: [ :a :b | a second <= b second]) explore
- ^(answer asSortedCollection: [ :a :b | a second <= b second]) asArray explore
  ].
  resp = 2 ifTrue: [
+ ^(answer sort: [ :a :b | a fourth <= b fourth]) explore
- ^(answer asSortedCollection: [ :a :b | a fourth <= b fourth]) asArray explore
  ].
  resp = 3 ifTrue: [
+ ^(answer sort: [ :a :b | a third <= b third]) explore
- ^(answer asSortedCollection: [ :a :b | a third <= b third]) asArray explore
  ].
  answer explore!