From 9f56be755c66f52667105ec731602f70f0506f6e Mon Sep 17 00:00:00 2001 From: jordanmontt Date: Thu, 20 Apr 2023 12:14:02 +0200 Subject: [PATCH 1/2] Added StInspectorTransmissionNode --- .../StInspectorTransmissionNode.class.st | 35 +++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 src/NewTools-Inspector/StInspectorTransmissionNode.class.st diff --git a/src/NewTools-Inspector/StInspectorTransmissionNode.class.st b/src/NewTools-Inspector/StInspectorTransmissionNode.class.st new file mode 100644 index 000000000..2ae772bf6 --- /dev/null +++ b/src/NewTools-Inspector/StInspectorTransmissionNode.class.st @@ -0,0 +1,35 @@ +Class { + #name : #StInspectorTransmissionNode, + #superclass : #StInspectorNode, + #instVars : [ + 'transmissionBlock' + ], + #category : #'NewTools-Inspector-Model' +} + +{ #category : #'instance initialization' } +StInspectorTransmissionNode class >> hostObject: anObject transmissionBlock: aFullBlockClosure [ + + ^ self new + hostObject: anObject; + transmissionBlock: aFullBlockClosure; + yourself +] + +{ #category : #accessing } +StInspectorTransmissionNode >> key [ + + ^ self hostObject +] + +{ #category : #accessing } +StInspectorTransmissionNode >> rawValue [ + + ^ transmissionBlock value: hostObject +] + +{ #category : #accessing } +StInspectorTransmissionNode >> transmissionBlock: aBlock [ + + transmissionBlock := aBlock +] From 73e6c2fb3ff354f55894459030c09123c6384148 Mon Sep 17 00:00:00 2001 From: jordanmontt Date: Thu, 20 Apr 2023 12:16:20 +0200 Subject: [PATCH 2/2] Added class comment --- src/NewTools-Inspector/StInspectorTransmissionNode.class.st | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/NewTools-Inspector/StInspectorTransmissionNode.class.st b/src/NewTools-Inspector/StInspectorTransmissionNode.class.st index 2ae772bf6..56b76c7a1 100644 --- a/src/NewTools-Inspector/StInspectorTransmissionNode.class.st +++ b/src/NewTools-Inspector/StInspectorTransmissionNode.class.st @@ -1,3 +1,6 @@ +" +I am an inspector node that allows the user to specify a custom transmission. I am made to be used inside the Inspector. The user can specify the `transmissionBlock:` +" Class { #name : #StInspectorTransmissionNode, #superclass : #StInspectorNode,