The Trunk: Protocols-pre.62.mcz

Patrick Rein uploaded a new version of Protocols to project The Trunk:
http://source.squeak.org/trunk/Protocols-pre.62.mcz

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

Name: Protocols-pre.62
Author: pre
Time: 7 May 2019, 12:09:35.44983 pm
UUID: db63a735-b9ea-6442-9048-022830af513e
Ancestors: Protocols-cmm.61

Replaces calls to the deprecated #upTo: with #copyUpTo: in the lexicon browser

=============== Diff against Protocols-cmm.61 ===============

Item was changed:
  ----- Method: Lexicon>>displaySelector: (in category 'basic operation') -----
  displaySelector: aSelector
        "Set aSelector to be the one whose source shows in the browser.  If there is a category list, make it highlight a suitable category"

        | detectedItem messageIndex |
        self chooseCategory: (self categoryDefiningSelector: aSelector).
        detectedItem := messageList detect:
+               [:anItem | (anItem asString copyUpTo: Character space) asSymbol == aSelector] ifNone: [^ Beeper beep].
-               [:anItem | (anItem asString upTo: $ ) asSymbol == aSelector] ifNone: [^ Beeper beep].
        messageIndex := messageList indexOf: detectedItem.
        self messageListIndex: messageIndex!

Item was changed:
  ----- Method: Lexicon>>selectSelectorItsNaturalCategory: (in category 'selection') -----
  selectSelectorItsNaturalCategory: aSelector
        "Make aSelector be the current selection of the receiver, with the category being its home category."

        | cat catIndex detectedItem |
        cat := self categoryOfSelector: aSelector.
        catIndex := categoryList indexOf: cat ifAbsent:
                ["The method's own category is not seen in this browser; the method probably occurs in some other category not known directly to the class, but for now, we'll just use the all category"
                1].
        self categoryListIndex: catIndex.
        detectedItem := messageList detect:
+               [:anItem | (anItem asString copyUpTo: Character space) asSymbol == aSelector] ifNone: [^ self].
-               [:anItem | (anItem asString upTo: $ ) asSymbol == aSelector] ifNone: [^ self].
        self messageListIndex:  (messageList indexOf: detectedItem ifAbsent: [^ self])!

Item was changed:
  ----- Method: Lexicon>>selectWithinCurrentCategory: (in category 'selection') -----
  selectWithinCurrentCategory: aSelector
        "If aSelector is one of the selectors seen in the current category, select it"

        | detectedItem |
        detectedItem := self messageList detect:
+               [:anItem | (anItem asString copyUpTo: Character space) asSymbol == aSelector] ifNone: [^ self].
-               [:anItem | (anItem asString upTo: $ ) asSymbol == aSelector] ifNone: [^ self].
        self messageListIndex:  (messageList indexOf: detectedItem ifAbsent: [^ self])!

Item was changed:
  ----- Method: Lexicon>>selectorsSendingSelectedSelector (in category 'senders') -----
  selectorsSendingSelectedSelector
        "Assumes lastSendersSearchSelector is already set"
        | selectorSet |
+       autoSelectString := (self lastSendersSearchSelector copyUpTo: $:) asString.
-       autoSelectString := (self lastSendersSearchSelector upTo: $:) asString.
        selectorSet := Set new.
        (self systemNavigation allCallsOn: self lastSendersSearchSelector)
                do: [:anItem | | sel cl |
                        sel := anItem methodSymbol.
                        cl := anItem actualClass.
                        ((currentVocabulary
                                                includesSelector: sel
                                                forInstance: self targetObject
                                                ofClass: targetClass
                                                limitClass: limitClass)
                                        and: [targetClass includesBehavior: cl])
                                ifTrue: [selectorSet add: sel]].
        ^ selectorSet sorted!

Item was changed:
  ----- Method: Lexicon>>setToShowSelector:selectCategory: (in category 'selection') -----
  setToShowSelector: selectorString selectCategory: aBoolean
        "Set up the receiver so that it will show the given selector"
        | catName catIndex messageIndex aList |
        catName := aBoolean
                ifTrue:
                        [ (aList := currentVocabulary
                                categoriesContaining: selectorString
                                forClass: targetClass)
                                at: 1
                                ifAbsent: [ self class allCategoryName ] ]
                ifFalse: [ self class allCategoryName ].
        catIndex := categoryList
                indexOf: catName
                ifAbsent: [ 1 ].
        self categoryListIndex: catIndex.
        messageList
                detect:
+                       [ : anItem | (anItem copyUpTo: Character space) asString asSymbol == selectorString ]
-                       [ : anItem | (anItem upTo: Character space) asString asSymbol == selectorString ]
                ifFound:
                        [ : detectedItem | messageIndex := messageList indexOf: detectedItem.
                        self messageListIndex: messageIndex ]
                ifNone: [ ^ self ]!