[Pkg] The Trunk: System-nice.591.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Sep 11 19:23:54 UTC 2013

Nicolas Cellier uploaded a new version of System to project The Trunk:

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

More information about the Packages mailing list