diff --git a/src/GToolkit-Coder/GtPackageCoderElement.class.st b/src/GToolkit-Coder/GtPackageCoderElement.class.st index 20e9b201b..c09d57efa 100644 --- a/src/GToolkit-Coder/GtPackageCoderElement.class.st +++ b/src/GToolkit-Coder/GtPackageCoderElement.class.st @@ -19,6 +19,16 @@ GtPackageCoderElement >> buildClassesAndTagsTabs [ look: BrGlamorousTabLook new; label: 'Classes'; stencil: [ packageCoder classesCoder asElement ]). + tabGroup addTab: (BrTab new + look: BrGlamorousTabLook new; + label: 'Comment'; + stencil: [ + | v | + v := GtPhlowView empty on: ManifestBloc perform: #gtCoderCommentsFor:. + ManifestBloc gtActions do: [ :eachAction | + (eachAction target isForViewDefinedIn: #gtCoderCommentsFor:) ifTrue: [ + v addPhlowAction: eachAction ] ]. + v asElement ]). tabGroup addTab: (BrTab new look: BrGlamorousTabLook new; label: 'Tags';