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]!