Etoys: Etoys-kfr.133.mcz

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

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

Name: Etoys-kfr.133
Author: kfr
Time: 18 March 2012, 9:17:01 pm
UUID: 2a04e00c-9fc3-6949-a18b-1876ee87f994
Ancestors: Etoys-kfr.132

The labels on certain "detailed watchers" -- those for which the variable-name and the "getter selector" do not bear the default relationship -- are wrong.  
SQ-1052

=============== Diff against Etoys-kfr.132 ===============

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].
+ variableName := interface
+ ifNotNil: [interface wording]
+ ifNil: [Utilities inherentSelectorForGetter: aGetter].
- | aColor aMethodInterface interface |
- interface := ScriptingSystem currentVocabulary methodInterfaceAt: aGetter ifAbsent: [ nil ].
- interface ifNotNil:[aMethodInterface := interface wording]
- ifNil:[ aMethodInterface :=Utilities inherentSelectorForGetter: aGetter].
  self
  player: aPlayer
+ variableName: variableName.
- 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