The Trunk: Protocols-mt.79.mcz

Marcel Taeumel uploaded a new version of Protocols to project The Trunk:
http://source.squeak.org/trunk/Protocols-mt.79.mcz

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

Name: Protocols-mt.79
Author: mt
Time: 17 March 2021, 3:27:19.172151 pm
UUID: 453175b7-7cea-504a-85cc-e6e36c15562f
Ancestors: Protocols-mt.78

Separate move from extension to make merging work without conflicts.

Complements EToys-mt.435.

=============== Diff against Protocols-mt.78 ===============

Item was added:
+ ----- Method: PointType>>addExtraItemsToMenu:forSlotSymbol: (in category 'defaults') -----
+ addExtraItemsToMenu: aMenu forSlotSymbol: slotSym
+ "If the receiver has extra menu items to add to the slot menu, here is its chance to do it.  The defaultTarget of the menu is the player concerned."
+
+ aMenu add: 'decimal places...' translated selector: #setPrecisionFor: argument: slotSym.
+ aMenu balloonTextForLastItem: 'Lets you choose how many decimal places should be shown in readouts for this variable' translated!

Item was added:
+ ----- Method: PointType>>defaultArgumentTile (in category 'defaults') -----
+ defaultArgumentTile
+ "Answer a tile to represent the type"
+
+ ^ (0@0) newTileMorphRepresentative typeColor: self typeColor!

Item was added:
+ ----- Method: PointType>>newReadoutTile (in category 'tiles') -----
+ newReadoutTile
+ "Answer a tile that can serve as a readout for data of this type"
+
+ | aTile |
+ aTile := NumericReadoutTile new typeColor: Color lightGray lighter.
+ aTile setProperty: #PointValued toValue: true.
+ ^ aTile!

Item was added:
+ ----- Method: PointType>>wantsArrowsOnTiles (in category 'defaults') -----
+ wantsArrowsOnTiles
+ "Answer whether this data type wants up/down arrows on tiles representing its values"
+
+ ^ false!

Item was added:
+ ----- Method: PointType>>wantsAssignmentTileVariants (in category 'tiles') -----
+ wantsAssignmentTileVariants
+ "Answer whether an assignment tile for a variable of this type should show variants to increase-by, decrease-by, multiply-by."
+
+ ^ true!

Item was added:
+ ----- Method: PointType>>wantsSuffixArrow (in category 'defaults') -----
+ wantsSuffixArrow
+ "Answer whether a tile showing data of this type would like to have a suffix arrow"
+
+ ^ true!