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

[commits at source.squeak.org]

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

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

Name: Etoys-kfr.137
Author: kfr
Time: 29 March 2012, 10:00:25 pm
UUID: a86fbf9f-731b-b44c-ba9a-85c778062d41
Ancestors: Etoys-kfr.135

SQ-1072 
DNU getLjusstyrkaUnder

=============== Diff against Etoys-kfr.135 ===============

Item was changed:
  ----- Method: WatcherWrapper>>buildForPlayer:getter: (in category 'initialization') -----
  buildForPlayer: aPlayer getter: aGetter 
  	"Build up basic structure"
  
  	| aColor interface |
  	interface := Vocabulary eToyVocabulary methodInterfaceAt: aGetter ifAbsent: [nil].
+ 	self setProperty: #getter toValue: aGetter.
  	variableName := interface
  		ifNotNil: [interface wording]
  		ifNil: [Utilities inherentSelectorForGetter: aGetter].
  	self
  		player: aPlayer
  		variableName: variableName.
  	aColor := self detailedWatcherColor.
  	self listDirection: #leftToRight;
  		 hResizing: #shrinkWrap;
  		 vResizing: #shrinkWrap;
  		 color: aColor;
  		 layoutInset: -1;
  		 borderWidth: 1;
  		 borderColor: aColor darker;
  		 listCentering: #center.
  	self
  		addMorphBack: (self buildReadout: aGetter)!

Item was added:
+ ----- Method: WatcherWrapper>>getter (in category 'accessing') -----
+ getter
+ 	"Answer the selector that serves as the getter for this watcher."
+ 
+ 	^  self valueOfProperty: #getter ifAbsent: [Utilities getterSelectorFor: variableName]!

Item was changed:
  ----- Method: WatcherWrapper>>getterTilesForDrop (in category 'accessing') -----
  getterTilesForDrop
  	"Answer getter tiles to use if there is an attempt to drop me onto a tile pad"
  
  	| aCategoryViewer |
  	aCategoryViewer _ CategoryViewer new initializeFor: player categoryChoice: #basic.
+ 	^ aCategoryViewer getterTilesFor: self getter  type: self resultType!
- 	^ aCategoryViewer getterTilesFor: (Utilities getterSelectorFor: variableName)  type: self resultType!

Item was changed:
  ----- Method: WatcherWrapper>>resultType (in category 'accessing') -----
  resultType
  	"Answer the result type the receiver would produce."
  
+ 	^ player typeForSlotWithGetter: self getter!
- 	^ player typeForSlotWithGetter: (Utilities getterSelectorFor: variableName)!