The Trunk: System-tpr.1125.mcz

Previous Topic Next Topic
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view

The Trunk: System-tpr.1125.mcz

tim Rowledge uploaded a new version of System to project The Trunk:

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

Name: System-tpr.1125
Author: tpr
Time: 26 November 2019, 12:41:51.836859 pm
UUID: dd0aed77-eb3e-4d57-b1c9-3f6fbb5d9674
Ancestors: System-mt.1124

Improve MessageBrowser labelling a bit; see changes in Tools-tpr.919

=============== Diff against System-mt.1124 ===============

Item was changed:
  ----- Method: SystemNavigation>>headingAndAutoselectForLiteral:do: (in category 'private') -----
  headingAndAutoselectForLiteral: aLiteral do: binaryBlock
  "Evaluate binaryBlock with either Users of ... or Senders of ... plus the auto-select string for the given literal.  aLiteral can be a Symbol, a VariableBinding or an arbitrary object."
  | autoSelect |
  ^ aLiteral isSymbol
  [ binaryBlock
  value: 'Senders of ' , aLiteral
+ value: aLiteral  ]
- value: (aLiteral keywords ifEmpty: [aLiteral] ifNotEmpty: [:keys | keys first]) ]
  [ autoSelect := aLiteral isVariableBinding
  ifTrue: [ aLiteral key ]
  ifFalse: [ aLiteral printString ].
  value: 'Users of ' , autoSelect
  value: autoSelect ]!