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!