Merge 8b4f5ad

feenkcom · May 21, 2024 · bcc3b38 · bcc3b38
2 parents d5170d4 + 8b4f5ad
commit bcc3b38
Show file tree

Hide file tree

Showing 7 changed files with 14 additions and 6 deletions.
diff --git a/src/GToolkit-Inspector/Context.extension.st b/src/GToolkit-Inspector/Context.extension.st
@@ -43,10 +43,10 @@ Context >> gtStackFor: aView [
 		itemText: [ :anItem | 
 			anItem isContext
 				ifTrue: [ anItem ]
-				ifFalse: [ anItem key asRopedText
+				ifFalse: [ anItem name asRopedText
 						append: ' := ' asRopedText;
 						foreground: BrGlamorousColors disabledButtonTextColor;
-						append: anItem value gtDisplayText ] ];
+						append: anItem description ] ];
 		send: [ :anItem | anItem isContext ifTrue: [ anItem ] ifFalse: [ anItem value ] ]
 ]
 

diff --git a/src/GToolkit-Inspector/MessageTally.extension.st b/src/GToolkit-Inspector/MessageTally.extension.st
@@ -22,6 +22,8 @@ MessageTally >> children [
 
 { #category : #'*GToolkit-Inspector' }
 MessageTally >> displayIdentifierOn: aStream [
+	<gtPharoPatch: #Pharo>
+
 	class displayStringOn: aStream.
 	self method methodClass ~~ class 
 		ifTrue: [ aStream nextPut: $(; print: self method methodClass; nextPut: $) ].

diff --git a/src/GToolkit-Inspector/MetacelloMCVersion.extension.st b/src/GToolkit-Inspector/MetacelloMCVersion.extension.st
@@ -2,6 +2,7 @@ Extension { #name : #MetacelloMCVersion }
 
 { #category : #'*GToolkit-Inspector' }
 MetacelloMCVersion >> = aMetacelloVersion [
+	<gtPharoPatch: #Pharo>
 	"needed because the super implementation only checks the version number,
 	and we also need to ensure that we have the same configuration class"	
 	^ (super = aMetacelloVersion) and: [ 
@@ -25,6 +26,7 @@ MetacelloMCVersion >> gtRPackages [
 
 { #category : #'*GToolkit-Inspector' }
 MetacelloMCVersion >> hash [
+	<gtPharoPatch: #Pharo>
 	"needed because the super implementation only checks the version number,
 	and we also need to ensure that we have the same configuration class"
 

diff --git a/src/GToolkit-Inspector/Semaphore.extension.st b/src/GToolkit-Inspector/Semaphore.extension.st
@@ -9,7 +9,8 @@ Semaphore >> gtDisplayOn: aStream [
 
 { #category : #'*GToolkit-Inspector' }
 Semaphore >> printOn: aStream [
-
+	<gtPharoPatch: #Pharo>
+
 	self printNameOn: aStream.
 	(self isEmpty and: [ excessSignals = 0 ]) ifTrue: [ ^ self ].
 	aStream nextPut: $(.

diff --git a/src/GToolkit-Inspector/TestCaseAnnouncement.extension.st b/src/GToolkit-Inspector/TestCaseAnnouncement.extension.st
@@ -2,6 +2,7 @@ Extension { #name : #TestCaseAnnouncement }
 
 { #category : #'*GToolkit-Inspector' }
 TestCaseAnnouncement >> printOn: aStream [
-
+	<gtPharoPatch: #Pharo>
+
 	testCase printOn: aStream
 ]
diff --git a/src/GToolkit-Inspector/TestCaseEnded.extension.st b/src/GToolkit-Inspector/TestCaseEnded.extension.st
@@ -2,7 +2,8 @@ Extension { #name : #TestCaseEnded }
 
 { #category : #'*GToolkit-Inspector' }
 TestCaseEnded >> printOn: aStream [
-
+	<gtPharoPatch: #Pharo>
+
 	aStream nextPutAll: 'ended   '. "three extra spaces to match in list"
 	super printOn: aStream
 ]
diff --git a/src/GToolkit-Inspector/TestCaseStarted.extension.st b/src/GToolkit-Inspector/TestCaseStarted.extension.st
@@ -2,7 +2,8 @@ Extension { #name : #TestCaseStarted }
 
 { #category : #'*GToolkit-Inspector' }
 TestCaseStarted >> printOn: aStream [
-
+	<gtPharoPatch: #Pharo>
+
 	aStream nextPutAll: 'started '.
 	super printOn: aStream
 ]