[Pkg] The Trunk: Nebraska-ul.48.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Mar 13 14:56:43 UTC 2017


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!



More information about the Packages mailing list