[etoys-dev] Etoys: Etoys-kfr.17.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of Etoys to project Etoys:
http://source.squeak.org/etoys/Etoys-kfr.17.mcz

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

Name: Etoys-kfr.17
Author: kfr
Time: 6 June 2010, 4:19:33 pm
UUID: 39000efb-d999-f342-864b-a5e94240e2af
Ancestors: Etoys-kfr.16

Try to fix a problem caused in Etoys-kfr.12 with arrow deltas. All player gettermethods got categorized as variables

=============== Diff against Etoys-kfr.14 ===============

Item was changed:
  ----- Method: Player>>arrowDeltaFor: (in category 'misc') -----
  arrowDeltaFor: aGetSelector
  	"Answer the arrowDelta to use in conjunction with a readout for aGetSelector, which will be of the form 'getXXX'"
  
+ 	"(self slotInfoForGetter: aGetSelector) ifNotNilDo: [ :slotInfo |
+ 				^slotInfo floatPrecision]."
- 	(self slotInfoForGetter: aGetSelector) ifNotNilDo: [ :slotInfo |
- 				^slotInfo floatPrecision].
  	costume ifNotNil:
  		[^ costume renderedMorph arrowDeltaFor: aGetSelector].
  	^ 1!

Item was changed:
  ----- Method: Player>>noteDecimalPlaces:forGetter: (in category 'misc') -----
  noteDecimalPlaces: aNumber forGetter: aGetter
  	"Note the given preference of decimal places for the given getter"
+ 	| |
+ 	"slotInfo _ self slotInfoAt: (Utilities inherentSelectorForGetter: aGetter).
+ 	slotInfo floatPrecision: (Utilities floatPrecisionForDecimalPlaces: aNumber)."
- 	| slotInfo |
- 	slotInfo _ self slotInfoAt: (Utilities inherentSelectorForGetter: aGetter).
- 	slotInfo floatPrecision: (Utilities floatPrecisionForDecimalPlaces: aNumber).
  	costume noteDecimalPlaces: aNumber forGetter: aGetter!