David T. Lewis uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-dtl.153.mcz
==================== Summary ====================
Name: Tools-dtl.153 Author: dtl Time: 28 December 2009, 8:31:33 am UUID: 3d90c410-7c9f-4643-84b3-474a2af7a017 Ancestors: Tools-ar.152
Remove unnecessary #isMorphic sends in SelectorBrowser>>selectorList: and SelectorBrowser>>searchResult:
Move #offerMenuFrom:shifted: from StringHolder to Project to eliminate #isMorphic send.
=============== Diff against Tools-ar.152 ===============
Item was changed: ----- Method: SelectorBrowser>>selectorList: (in category 'as yet unclassified') ----- selectorList: anExternalList
self contents: ''. classList := #(). classListIndex := 0. selectorIndex := 0. selectorList := anExternalList. self changed: #messageList. self changed: #classList. + self changed: #contents - Smalltalk isMorphic ifTrue: [self changed: #contents.].
!
Item was changed: ----- Method: SelectorBrowser>>searchResult: (in category 'as yet unclassified') ----- searchResult: anExternalSearchResult
self contents: ''. classList := #(). classListIndex := 0. selectorIndex := 0. selectorList := self listFromResult: anExternalSearchResult. self changed: #messageList. self changed: #classList. + self changed: #contents - Smalltalk isMorphic ifTrue: [self changed: #contents.]. !
Item was changed: ----- Method: StringHolder>>offerMenuFrom:shifted: (in category '*Tools') ----- offerMenuFrom: menuRetriever shifted: aBoolean + "Pop up a menu whose target is the receiver and whose contents are provided + by sending the menuRetriever to the receiver. The menuRetriever takes two + arguments: a menu, and a boolean representing the shift state." - "Pop up, in morphic or mvc as the case may be, a menu whose target is the receiver and whose contents are provided by sending the menuRetriever to the receiver. The menuRetriever takes two arguments: a menu, and a boolean representing the shift state."
+ Project current offerMenuFrom: menuRetriever shifted: aBoolean + ! - | aMenu | - Smalltalk isMorphic - ifTrue: - [aMenu := MenuMorph new defaultTarget: self. - self perform: menuRetriever with: aMenu with: aBoolean. - aMenu popUpInWorld] - ifFalse: - [aMenu := CustomMenu new. - self perform: menuRetriever with: aMenu with: aBoolean. - aMenu invokeOn: self]!
squeak-dev@lists.squeakfoundation.org