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

commits at source.squeak.org commits at source.squeak.org
Sat Jul 16 15:57:05 EDT 2011

Karl Ramberg uploaded a new version of Etoys to project Etoys:

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

Name: Etoys-kfr.79
Author: kfr
Time: 16 July 2011, 9:56:14 pm
UUID: 43237a5e-06fc-fc42-9a1f-5c7e34151f29
Ancestors: Etoys-kfr.78

Small fixup in WatcherWrapper so it build valid watchers

=============== Diff against Etoys-kfr.78 ===============

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

More information about the etoys-dev mailing list