Nicolas Cellier uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-nice.212.mcz

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

Name: Morphic-nice.212
Author: nice
Time: 20 October 2009, 1:02:57 am
UUID: c20c8d14-ac1f-a845-90cb-f7275ab45024
Ancestors: Morphic-ar.211

use #fasterKeys

=============== Diff against Morphic-ar.211 ===============

Item was changed:
  ----- Method: StandardScriptingSystem class>>removeUnreferencedPlayers (in category 'utilities') -----
  removeUnreferencedPlayers
  	"Remove existing but unreferenced player references"
  	"StandardScriptingSystem removeUnreferencedPlayers"
+ 	References fasterKeys do: 
- 	References keys do: 
  		[:key | (References at: key) costume pasteUpMorph
  			ifNil: [References removeKey: key]].
  !

Item was changed:
  ----- Method: Morph>>convertAugust1998:using: (in category 'object fileIn') -----
  convertAugust1998: varDict using: smartRefStrm 
  	"These variables are automatically stored into the new instance 
  	('bounds' 'owner' 'submorphs' 'fullBounds' 'color' ). 
  	This method is for additional changes. Use statements like (foo := 
  	varDict at: 'foo')."
  
  	"Be sure to to fill in ('extension' ) and deal with the information 
  	in ('eventHandler' 'properties' 'costumee' )"
  
  	"This method moves all property variables as well as 
  	eventHandler, and costumee into a morphicExtension."
  
  	"Move refs to eventhandler and costumee into extension"
  
  	| propVal |
  	(varDict at: 'eventHandler') isNil 
  		ifFalse: [self eventHandler: (varDict at: 'eventHandler')].
  	(varDict at: 'costumee') isNil 
  		ifFalse: [self player: (varDict at: 'costumee')].
  	(varDict at: 'properties') isNil 
  		ifFalse: 
+ 			[(varDict at: 'properties') fasterKeys do: 
- 			[(varDict at: 'properties') keys do: 
  					[:key | 
  					"Move property extensions into extension"
  
  					propVal := (varDict at: 'properties') at: key.
  					propVal ifNotNil: 
  							[key == #possessive 
  								ifTrue: [propVal == true ifTrue: [self bePossessive]]
  								ifFalse: 
  									[key ifNotNil: [self assureExtension convertProperty: key toValue: propVal]]]]]!

Item was changed:
  ----- Method: StandardScriptingSystem class>>removePlayersIn: (in category 'utilities') -----
  removePlayersIn: project
  	"Remove existing player references for project"
  
+ 	References fasterKeys do: 
- 	References keys do: 
  		[:key | (References at: key) costume pasteUpMorph == project world
  			ifTrue: [References removeKey: key]].
  !

Item was changed:
  ----- Method: UpdatingStringMorph>>setFontStyle (in category 'editing') -----
  setFontStyle
  	| aList reply style |
  	aList := (TextConstants select: [:anItem | anItem isKindOf: TextStyle]) 
+ 				fasterKeys.
- 				keys asOrderedCollection.
  	reply := UIManager default chooseFrom: aList values: aList.
  	reply notNil 
  		ifTrue: 
  			[(style := TextStyle named: reply) ifNil: 
  					[Beeper beep.
  					^true].
  			self font: style defaultFont]!

Item was changed:
  ----- Method: ComplexProgressIndicator class>>historyReport (in category 'as yet unclassified') -----
  historyReport
  "
  ComplexProgressIndicator historyReport
  "
  	| answer data |
  	History ifNil: [^Beeper beep].
  	answer := String streamContents: [ :strm |
+ 		(History fasterKeys sort: [ :a :b | a asString <= b asString]) do: [ :k |
- 		(History keys asSortedCollection: [ :a :b | a asString <= b asString]) do: [ :k |
  			strm nextPutAll: k printString; cr.
  			data := History at: k.
+ 			(data fasterKeys sort: [ :a :b | a asString <= b asString]) do: [ :dataKey |
- 			(data keys asSortedCollection: [ :a :b | a asString <= b asString]) do: [ :dataKey |
  				strm tab; nextPutAll: dataKey printString,'  ',
  					(data at: dataKey) asArray printString; cr.
  			].
  			strm cr.
  		].
  	].
  	StringHolder new
  		contents: answer contents;
  		openLabel: 'Progress History'!

Item was changed:
  ----- Method: FontChooserTool>>fontList (in category 'font list') -----
  fontList
  	"List of available font family names"
+ 	^fontList ifNil:[fontList := (TextConstants select: [:each | each isKindOf: TextStyle]) fasterKeys sort]!
- 	^fontList ifNil:[fontList := (TextConstants select: [:each | each isKindOf: TextStyle]) keys asArray sort]!