[squeak-dev] The Trunk: Morphic-nice.214.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Oct 20 22:44:50 UTC 2009
Nicolas Cellier uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-nice.214.mcz
==================== Summary ====================
Name: Morphic-nice.214
Author: nice
Time: 21 October 2009, 12:40:26 pm
UUID: 44a2ecc8-4e7f-4bcf-9acf-0cd9979b5d95
Ancestors: Morphic-nice.213
Use #keys rather than #fasterKeys
Note that pattern (x keys asArray sort) could as well be written (x keys sort) now that keys returns an Array...
This #asArray is here solely for cross-dialect/fork compatibility.
=============== Diff against Morphic-nice.213 ===============
Item was changed:
----- Method: StandardScriptingSystem class>>removeUnreferencedPlayers (in category 'utilities') -----
removeUnreferencedPlayers
"Remove existing but unreferenced player references"
"StandardScriptingSystem removeUnreferencedPlayers"
+ References keys do:
- References fasterKeys 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') keys do:
- [(varDict at: 'properties') fasterKeys 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 keys do:
- References fasterKeys 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])
+ keys asArray.
- fasterKeys.
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 keys asArray sort: [ :a :b | a asString <= b asString]) do: [ :k |
- (History fasterKeys sort: [ :a :b | a asString <= b asString]) do: [ :k |
strm nextPutAll: k printString; cr.
data := History at: k.
+ (data keys sort: [ :a :b | a asString <= b asString]) do: [ :dataKey |
- (data fasterKeys sort: [ :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]) keys asArray sort]!
- ^fontList ifNil:[fontList := (TextConstants select: [:each | each isKindOf: TextStyle]) fasterKeys sort]!
More information about the Squeak-dev
mailing list
|