Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.136.mcz
==================== Summary ====================
Name: Etoys-kfr.136 Author: kfr Time: 29 March 2012, 6:46:30 am UUID: 83982347-5948-4040-b482-7aa1e66b2956 Ancestors: Etoys-kfr.134
DNU getLjusstyrkaUnder SQ-1972
=============== Diff against Etoys-kfr.134 ===============
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)!