The Trunk: Protocols-ar.25.mcz

Andreas Raab uploaded a new version of Protocols to project The Trunk:
http://source.squeak.org/trunk/Protocols-ar.25.mcz

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

Name: Protocols-ar.25
Author: ar
Time: 5 March 2010, 9:01:54.855 pm
UUID: 337fcd80-6b82-dc47-bdcc-3d569e60c0c5
Ancestors: Protocols-dtl.24

Avoid dictionary protocol in Smalltalk.

=============== Diff against Protocols-dtl.24 ===============

Item was changed:
  ----- Method: StringHolder>>browseFullProtocol (in category '*Protocols-Tools') -----
  browseFullProtocol
  "Open up a protocol-category browser on the value of the receiver's current selection.    If in mvc, an old-style protocol browser is opened instead.  Someone who still uses mvc might wish to make the protocol-category-browser work there too, thanks."
 
  | aClass |
 
+ (Smalltalk isMorphic and: [Smalltalk hasClassNamed: #Lexicon]) ifFalse: [^ self spawnFullProtocol].
- (Smalltalk isMorphic and: [Smalltalk includesKey: #Lexicon]) ifFalse: [^ self spawnFullProtocol].
  ((aClass := self selectedClassOrMetaClass) notNil and: [aClass isTrait not]) ifTrue:
  [(Smalltalk at: #Lexicon) new openOnClass: aClass showingSelector: self selectedMessageName]!