Etoys: Etoys-kfr.137.mcz

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

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