The Trunk: Protocols-topa.52.mcz

Tobias Pape uploaded a new version of Protocols to project The Trunk:
http://source.squeak.org/trunk/Protocols-topa.52.mcz

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

Name: Protocols-topa.52
Author: topa
Time: 19 October 2015, 11:07:26.755 pm
UUID: 70a20162-a6a1-4af7-96a1-a5e420abb5d5
Ancestors: Protocols-cmm.51

Remove a deprecated #upTo: on a String

=============== Diff against Protocols-cmm.51 ===============

Item was changed:
  ----- Method: Lexicon>>selectWithinCurrentCategoryIfPossible: (in category 'category list') -----
  selectWithinCurrentCategoryIfPossible: aSelector
  "If the receiver's message list contains aSelector, navigate right to it without changing categories"
   
  | detectedItem messageIndex |
  aSelector ifNil: [^ self].
  detectedItem := messageList detect:
+ [:anItem | (anItem asString copyUpTo: $ ) asSymbol == aSelector] ifNone: [^ self].
- [:anItem | (anItem asString upTo: $ ) asSymbol == aSelector] ifNone: [^ self].
  messageIndex := messageList indexOf: detectedItem.
  self messageListIndex: messageIndex
  !