A new version of Protocols was added to project The Inbox:
http://source.squeak.org/inbox/Protocols-ct.68.mcz

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

Name: Protocols-ct.68
Author: ct
Time: 2 October 2019, 11:27:53.072682 pm
UUID: 82ece992-ef78-4144-908e-8a58b3c7adcf
Ancestors: Protocols-jr.67

Complements Tools-ct.900 (Inspector refactoring)

=============== Diff against Protocols-jr.67 ===============

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."
  
- 	| 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 selectionOrObject class!
- 	| 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 selectionOrObject class!
- 	| objectToRepresent |
- 	objectToRepresent := self selectionIndex = 0 ifTrue: [object] ifFalse: [self selection].
- 	ProtocolBrowser openSubProtocolForClass: objectToRepresent class!