The Trunk: Morphic-nice.212.mcz

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]!