Merge c410b9e

feenkcom · Nov 6, 2024 · 0f849af · 0f849af
2 parents 73b610f + c410b9e
commit 0f849af
Show file tree

Hide file tree

Showing 6 changed files with 18 additions and 9 deletions.
diff --git a/src/GToolkit-Inspector/GtInspectorContextIndexedTempNode.class.st b/src/GToolkit-Inspector/GtInspectorContextIndexedTempNode.class.st
@@ -36,5 +36,5 @@ GtInspectorContextIndexedTempNode >> tempIndex: anObject [
 
 { #category : #accessing }
 GtInspectorContextIndexedTempNode >> variableTag [
-	^  'temp' 
+	^  'temporary' 
 ]
diff --git a/src/GToolkit-Inspector/GtInspectorContextNamedTempNode.class.st b/src/GToolkit-Inspector/GtInspectorContextNamedTempNode.class.st
@@ -10,13 +10,13 @@ Class {
 }
 
 { #category : #'instance creation' }
-GtInspectorContextNamedTempNode class >> hostObject: aContext tempName: aString tempIndex: anInteger [
+GtInspectorContextNamedTempNode class >> hostObject: aContext tempName: aTempName tempIndex: anInteger [
 	^ (self hostObject: aContext) 
-		tempName: aString;
+		tempName: aTempName;
 		tempIndex: anInteger;
-		variableTag: ((aContext method argumentNames includes: aString)
+		variableTag: ((aContext hasMethodOrBlockParameterNamed:  aTempName)
 			ifTrue: [ 'parameter' ]
-			ifFalse: [ 'temp' ])
+			ifFalse: [ 'temporary' ])
 		yourself
 ]
 
@@ -62,7 +62,7 @@ GtInspectorContextNamedTempNode >> tempName: aString [
 
 { #category : #accessing }
 GtInspectorContextNamedTempNode >> variableTag [
-	^ tag ifNil: [ 'temp' ]
+	^ tag ifNil: [ 'temporary' ]
 ]
 
 { #category : #accessing }

diff --git a/src/GToolkit-Inspector/GtInspectorDynamicNode.class.st b/src/GToolkit-Inspector/GtInspectorDynamicNode.class.st
@@ -17,6 +17,15 @@ GtInspectorDynamicNode class >> hostObject: anObject label: aString value: anoth
 		yourself
 ]
 
+{ #category : #'instance creation' }
+GtInspectorDynamicNode class >> hostObject: anObject label: aString value: anotherObject tag: aTag [
+	^ (self hostObject: anObject) 
+		label: aString;
+		rawValue: anotherObject;
+		variableTag: aTag;
+		yourself
+]
+
 { #category : #accessing }
 GtInspectorDynamicNode >> key [
 	^ label

diff --git a/src/GToolkit-Inspector/GtInspectorIndexedNode.class.st b/src/GToolkit-Inspector/GtInspectorIndexedNode.class.st
@@ -46,5 +46,5 @@ GtInspectorIndexedNode >> save: aValue [
 
 { #category : #accessing }
 GtInspectorIndexedNode >> variableTag [
-	^ 'attribute'
+	^ 'slot'
 ]
diff --git a/src/GToolkit-Inspector/GtInspectorProtoObjectNode.class.st b/src/GToolkit-Inspector/GtInspectorProtoObjectNode.class.st
@@ -33,5 +33,5 @@ GtInspectorProtoObjectNode >> rawValue [
 
 { #category : #accessing }
 GtInspectorProtoObjectNode >> variableTag [
-	^ 'attribute'
+	^ 'slot'
 ]
diff --git a/src/GToolkit-Inspector/GtInspectorSlotNode.class.st b/src/GToolkit-Inspector/GtInspectorSlotNode.class.st
@@ -51,5 +51,5 @@ GtInspectorSlotNode >> slot: aSlot [
 
 { #category : #accessing }
 GtInspectorSlotNode >> variableTag [
-	^ 'attribute'
+	^ 'slot'
 ]