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