From d7a73391b24c20d6ddd2c72c8ef7481305beb059 Mon Sep 17 00:00:00 2001 From: AlexisCnockaert Date: Fri, 6 Mar 2026 12:02:51 +0100 Subject: [PATCH 1/2] Fix browse commit in iceberg repository. I implemented missing method and check directly for `RGComment` to not have red squares. Fixes #19350 --- src/Calypso-Ring/ClyRing2Environment.class.st | 6 ++++++ .../ClyClassTableDecorator.class.st | 18 +++++++++--------- 2 files changed, 15 insertions(+), 9 deletions(-) diff --git a/src/Calypso-Ring/ClyRing2Environment.class.st b/src/Calypso-Ring/ClyRing2Environment.class.st index 595921b1f83..96f1e48f75c 100644 --- a/src/Calypso-Ring/ClyRing2Environment.class.st +++ b/src/Calypso-Ring/ClyRing2Environment.class.st @@ -87,6 +87,12 @@ ClyRing2Environment >> defaultClassCompiler [ ^ self class compiler ] +{ #category : 'accessing' } +ClyRing2Environment >> definedClassesInPackage: aPackage [ + + ^ aPackage definedClasses +] + { #category : 'accessing' } ClyRing2Environment >> environment [ ^ environment diff --git a/src/Calypso-SystemTools-Core/ClyClassTableDecorator.class.st b/src/Calypso-SystemTools-Core/ClyClassTableDecorator.class.st index 60609afd7af..281d1d0f9cb 100644 --- a/src/Calypso-SystemTools-Core/ClyClassTableDecorator.class.st +++ b/src/Calypso-SystemTools-Core/ClyClassTableDecorator.class.st @@ -18,15 +18,15 @@ ClyClassTableDecorator class >> decorateTableCell: anItemCellMorph of: aDataSour | labelMorphExtension cmt | labelMorphExtension := anItemCellMorph label assureExtension. cmt := aDataSourceItem actualObject comment. - cmt - ifEmpty: [ cmt := ClyUncommentedItemTableDecorator balloonText ] - ifNotEmpty: [ | lines | - lines := cmt lines. - cmt := lines first: (lines size min: 3). - cmt := String cr join: cmt. ]. - labelMorphExtension balloonText: cmt - - + + ((cmt isKindOf: RGComment) + ifTrue: [ cmt := cmt content ] + ifFalse: [ cmt ]) ifEmpty: [ cmt := ClyUncommentedItemTableDecorator balloonText ] ifNotEmpty: [ + | lines | + lines := cmt lines. + cmt := lines first: (lines size min: 3). + cmt := String cr join: cmt ]. + labelMorphExtension balloonText: cmt ] { #category : 'decoration' } From 410f2bc764e81c43dd0e0a170ea010072eaf507d Mon Sep 17 00:00:00 2001 From: AlexisCnockaert Date: Fri, 6 Mar 2026 14:30:22 +0100 Subject: [PATCH 2/2] slightly better code --- src/Calypso-SystemTools-Core/ClyClassTableDecorator.class.st | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Calypso-SystemTools-Core/ClyClassTableDecorator.class.st b/src/Calypso-SystemTools-Core/ClyClassTableDecorator.class.st index 281d1d0f9cb..feb975cd450 100644 --- a/src/Calypso-SystemTools-Core/ClyClassTableDecorator.class.st +++ b/src/Calypso-SystemTools-Core/ClyClassTableDecorator.class.st @@ -19,7 +19,7 @@ ClyClassTableDecorator class >> decorateTableCell: anItemCellMorph of: aDataSour labelMorphExtension := anItemCellMorph label assureExtension. cmt := aDataSourceItem actualObject comment. - ((cmt isKindOf: RGComment) + ((cmt respondsTo: #content) ifTrue: [ cmt := cmt content ] ifFalse: [ cmt ]) ifEmpty: [ cmt := ClyUncommentedItemTableDecorator balloonText ] ifNotEmpty: [ | lines |