display deprecated packages using line-through decoration [feenkcom/gtoolkit#5122]

JurajKubelka · JurajKubelka · commit f1d8f5e91742 · 2026-06-19T22:16:42.000-04:00
diff --git a/src/GToolkit-Coder-UI/GtCoderPackagesTreeItemElement.class.st b/src/GToolkit-Coder-UI/GtCoderPackagesTreeItemElement.class.st
@@ -32,12 +32,17 @@ GtCoderPackagesTreeItemElement >> packageOrTag [
 
 { #category : #accessing }
 GtCoderPackagesTreeItemElement >> packageOrTag: aPackageOrTag [
-	packageOrTag = aPackageOrTag
-		ifTrue: [ ^ self ].
+	packageOrTag = aPackageOrTag ifTrue: [ ^ self ].
 
 	packageOrTag := aPackageOrTag.
-	
+
 	packageOrTag
 		ifNil: [ label text: '' ]
-		ifNotNil: [ label text: packageOrTag name ]
+		ifNotNil: [ | aText |
+			aText := packageOrTag name asRopedText.
+			aPackageOrTag package isDeprecated
+				ifTrue: [ 
+					aText append: ' (deprecated)' asRopedText italic.
+					aText lineThrough ].
+			label text: aText ]
 ]
