The Trunk: Tools-dtl.153.mcz

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