Etoys: Etoys-kfr.79.mcz

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

==================== 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].
  self
  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.
  self
  addMorphBack: (self buildReadout: aGetter)!

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev