Marcel Taeumel uploaded a new version of Protocols to project The Trunk:
http://source.squeak.org/trunk/Protocols-mt.73.mcz

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

Name: Protocols-mt.73
Author: mt
Time: 27 April 2020, 10:22:25.97834 am
UUID: 09725779-11da-f54f-a16f-d9c5823cf532
Ancestors: Protocols-nice.72

Complements Tools-mt.965. Inspector refactoring. See: http://forum.world.st/Please-try-out-Inspector-Refactoring-tp5114974.html

=============== Diff against Protocols-nice.72 ===============

Item was changed:
  ----- Method: Inspector>>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."
  
+ 	self flag: #ct "ToolSet?".
- 	| objectToRepresent |
  	Smalltalk isMorphic ifFalse: [^ self spawnProtocol].
+ 	^ InstanceBrowser new openOnObject: self selectionOrObject showingSelector: nil!
- 
- 	objectToRepresent := self selectionIndex = 0 ifTrue: [object] ifFalse: [self selection].
- 	InstanceBrowser new openOnObject: objectToRepresent showingSelector: nil!

Item was changed:
  ----- Method: Inspector>>spawnFullProtocol (in category '*Protocols-Tools') -----
  spawnFullProtocol
  	"Spawn a window showing full protocol for the receiver's selection"
  
+ 	^ ProtocolBrowser openFullProtocolForClass: self classOfSelection!
- 	| objectToRepresent |
- 	objectToRepresent := self selectionIndex = 0 ifTrue: [object] ifFalse: [self selection].
- 	ProtocolBrowser openFullProtocolForClass: objectToRepresent class!

Item was changed:
  ----- Method: Inspector>>spawnProtocol (in category '*Protocols-Tools') -----
  spawnProtocol
  	"Spawn a protocol on browser on the receiver's selection"
  
+ 	^ ProtocolBrowser openSubProtocolForClass: self classOfSelection!
- 	| objectToRepresent |
- 	objectToRepresent := self selectionIndex = 0 ifTrue: [object] ifFalse: [self selection].
- 	ProtocolBrowser openSubProtocolForClass: objectToRepresent class!