From 858c61693e37c07ed0f3ecef73afb0f87722379b Mon Sep 17 00:00:00 2001
From: Sean DeNigris <code@clipperadams.com>
Date: Wed, 19 Aug 2020 12:33:30 -0400
Subject: [PATCH] DO NOT INTEGRATE: Conversation Starter

---
 src/GToolkit-Coder/GtPackageCoderElement.class.st | 10 ++++++++++
 1 file changed, 10 insertions(+)

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';