The Trunk: System-nice.591.mcz

Nicolas Cellier uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-nice.591.mcz

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

Name: System-nice.591
Author: nice
Time: 11 September 2013, 9:22:18.865 pm
UUID: 05e9f2d5-499c-42d5-9e2a-d86a6c9bb58a
Ancestors: System-ul.590

Fix the ability to browse the references to a Symbol which is not a valid selector, like:
    SystemNavigation default browseAllCallsOn: #':'

=============== Diff against System-ul.590 ===============

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
  ifTrue:
  [ binaryBlock
  value: 'Senders of ' , aLiteral
+ value: (aLiteral keywords ifEmpty: [aLiteral] ifNotEmpty: [:keys | keys first]) ]
- value: aLiteral keywords first ]
  ifFalse:
  [ autoSelect := aLiteral isVariableBinding
  ifTrue: [ aLiteral key ]
  ifFalse: [ aLiteral printString ].
  binaryBlock
  value: 'Users of ' , autoSelect
  value: autoSelect ]!