The Inbox: Protocols-ct.68.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Inbox: Protocols-ct.68.mcz

commits-2
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!