Added StInspectorTransmissionNode

pharo-spec · Apr 20, 2023 · 9f56be7 · 9f56be7
1 parent f79ad42
commit 9f56be7
Showing 1 changed file with 35 additions and 0 deletions.
diff --git a/src/NewTools-Inspector/StInspectorTransmissionNode.class.st 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
+]