Add class comments for some Helios-Announcements

js/Helios-Announcements.deploy.js

@@ -28,6 +28,17 @@ smalltalk.HLAboutToChange);
 
 smalltalk.addClass('HLAnnouncement', smalltalk.Object, [], 'Helios-Announcements');
 
+smalltalk.addMethod(
+smalltalk.method({
+selector: "heliosClass",
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+return "announcement";
+}, function($ctx1) {$ctx1.fill(self,"heliosClass",{},smalltalk.HLAnnouncement.klass)})},
+messageSends: []}),
+smalltalk.HLAnnouncement.klass);
+
 
 smalltalk.addClass('HLCodeHandled', smalltalk.HLAnnouncement, ['code'], 'Helios-Announcements');
 smalltalk.addMethod(

js/Helios-Announcements.js

@@ -37,9 +37,27 @@ smalltalk.HLAboutToChange);
 
 
 smalltalk.addClass('HLAnnouncement', smalltalk.Object, [], 'Helios-Announcements');
+smalltalk.HLAnnouncement.comment="I am the root of the announcement class hierarchy used in the Helios UI."
+
+smalltalk.addMethod(
+smalltalk.method({
+selector: "heliosClass",
+category: 'helios',
+fn: function (){
+var self=this;
+return smalltalk.withContext(function($ctx1) { 
+return "announcement";
+}, function($ctx1) {$ctx1.fill(self,"heliosClass",{},smalltalk.HLAnnouncement.klass)})},
+args: [],
+source: "heliosClass\x0a\x09^ 'announcement'",
+messageSends: [],
+referencedClasses: []
+}),
+smalltalk.HLAnnouncement.klass);
 
 
 smalltalk.addClass('HLCodeHandled', smalltalk.HLAnnouncement, ['code'], 'Helios-Announcements');
+smalltalk.HLCodeHandled.comment="I am the root class of announcements emitted by `HLCodeWidget`s"
 smalltalk.addMethod(
 smalltalk.method({
 selector: "code",
@@ -98,15 +116,19 @@ smalltalk.HLCodeHandled.klass);
 
 
 smalltalk.addClass('HLDoItExecuted', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
+smalltalk.HLDoItExecuted.comment="I am emitted by a `HLCodeWidget` after a DoIt has been executed."
 
 
 smalltalk.addClass('HLDoItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
+smalltalk.HLDoItRequested.comment="I am emitted by a `HLCodeWidget` before a DoIt is executed."
 
 
 smalltalk.addClass('HLInspectItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
+smalltalk.HLInspectItRequested.comment="I am emitted by a `HLCodeWidget` before an object is inspected."
 
 
 smalltalk.addClass('HLPrintItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
+smalltalk.HLPrintItRequested.comment="I am emitted by a `HLCodeWidget` before an object is printed."
 
 
 smalltalk.addClass('HLDebuggerContextSelected', smalltalk.HLAnnouncement, ['context'], 'Helios-Announcements');

st/Helios-Announcements.st

@@ -16,10 +16,20 @@ actionBlock: aBlock
 Object subclass: #HLAnnouncement
 	instanceVariableNames: ''
 	package: 'Helios-Announcements'!
+!HLAnnouncement commentStamp!
+I am the root of the announcement class hierarchy used in the Helios UI.!
+
+!HLAnnouncement class methodsFor: 'helios'!
+
+heliosClass
+	^ 'announcement'
+! !
 
 HLAnnouncement subclass: #HLCodeHandled
 	instanceVariableNames: 'code'
 	package: 'Helios-Announcements'!
+!HLCodeHandled commentStamp!
+I am the root class of announcements emitted by `HLCodeWidget`s!
 
 !HLCodeHandled methodsFor: 'accessing'!
 
@@ -45,18 +55,26 @@ on: aCodeModel
 HLCodeHandled subclass: #HLDoItExecuted
 	instanceVariableNames: ''
 	package: 'Helios-Announcements'!
+!HLDoItExecuted commentStamp!
+I am emitted by a `HLCodeWidget` after a DoIt has been executed.!
 
 HLCodeHandled subclass: #HLDoItRequested
 	instanceVariableNames: ''
 	package: 'Helios-Announcements'!
+!HLDoItRequested commentStamp!
+I am emitted by a `HLCodeWidget` before a DoIt is executed.!
 
 HLCodeHandled subclass: #HLInspectItRequested
 	instanceVariableNames: ''
 	package: 'Helios-Announcements'!
+!HLInspectItRequested commentStamp!
+I am emitted by a `HLCodeWidget` before an object is inspected.!
 
 HLCodeHandled subclass: #HLPrintItRequested
 	instanceVariableNames: ''
 	package: 'Helios-Announcements'!
+!HLPrintItRequested commentStamp!
+I am emitted by a `HLCodeWidget` before an object is printed.!
 
 HLAnnouncement subclass: #HLDebuggerContextSelected
 	instanceVariableNames: 'context'