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