smalltalk.addPackage('Helios-Announcements'); smalltalk.addClass('HLAnnouncement', smalltalk.Object, [], 'Helios-Announcements'); smalltalk.addClass('HLCodeHandled', smalltalk.HLAnnouncement, ['code'], 'Helios-Announcements'); smalltalk.addMethod( "_code", smalltalk.method({ selector: "code", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=self["@code"]; return $1; }, function($ctx1) {$ctx1.fill(self,"code",{}, smalltalk.HLCodeHandled)})}, args: [], source: "code\x0a\x0a\x09^ code", messageSends: [], referencedClasses: [] }), smalltalk.HLCodeHandled); smalltalk.addMethod( "_code_", smalltalk.method({ selector: "code:", category: 'accessing', fn: function (aModel){ var self=this; return smalltalk.withContext(function($ctx1) { self["@code"]=aModel; return self}, function($ctx1) {$ctx1.fill(self,"code:",{aModel:aModel}, smalltalk.HLCodeHandled)})}, args: ["aModel"], source: "code: aModel\x0a\x0a\x09code := aModel", messageSends: [], referencedClasses: [] }), smalltalk.HLCodeHandled); smalltalk.addMethod( "_on_", smalltalk.method({ selector: "on:", category: 'actions', fn: function (aCodeModel){ var self=this; return smalltalk.withContext(function($ctx1) { var $2,$3,$1; $2=_st(self)._new(); _st($2)._code_(aCodeModel); $3=_st($2)._yourself(); $1=$3; return $1; }, function($ctx1) {$ctx1.fill(self,"on:",{aCodeModel:aCodeModel}, smalltalk.HLCodeHandled.klass)})}, args: ["aCodeModel"], source: "on: aCodeModel\x0a\x0a\x09^ self new \x0a \x09code: aCodeModel;\x0a yourself", messageSends: ["code:", "new", "yourself"], referencedClasses: [] }), smalltalk.HLCodeHandled.klass); smalltalk.addClass('HLDoItExecuted', smalltalk.HLCodeHandled, [], 'Helios-Announcements'); smalltalk.addClass('HLDoItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements'); smalltalk.addClass('HLInspectItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements'); smalltalk.addClass('HLPrintItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements'); smalltalk.addClass('HLDiveRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements'); smalltalk.addClass('HLItemSelected', smalltalk.HLAnnouncement, ['item'], 'Helios-Announcements'); smalltalk.addMethod( "_item", smalltalk.method({ selector: "item", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=self["@item"]; return $1; }, function($ctx1) {$ctx1.fill(self,"item",{}, smalltalk.HLItemSelected)})}, args: [], source: "item\x0a\x09^ item", messageSends: [], referencedClasses: [] }), smalltalk.HLItemSelected); smalltalk.addMethod( "_item_", smalltalk.method({ selector: "item:", category: 'accessing', fn: function (anObject){ var self=this; return smalltalk.withContext(function($ctx1) { self["@item"]=anObject; return self}, function($ctx1) {$ctx1.fill(self,"item:",{anObject:anObject}, smalltalk.HLItemSelected)})}, args: ["anObject"], source: "item: anObject\x0a\x09item := anObject", messageSends: [], referencedClasses: [] }), smalltalk.HLItemSelected); smalltalk.addMethod( "_on_", smalltalk.method({ selector: "on:", category: 'instance creation', fn: function (anItem){ var self=this; return smalltalk.withContext(function($ctx1) { var $2,$3,$1; $2=_st(self)._new(); _st($2)._item_(anItem); $3=_st($2)._yourself(); $1=$3; return $1; }, function($ctx1) {$ctx1.fill(self,"on:",{anItem:anItem}, smalltalk.HLItemSelected.klass)})}, args: ["anItem"], source: "on: anItem\x0a\x09^ self new\x0a \x09item: anItem;\x0a yourself", messageSends: ["item:", "new", "yourself"], referencedClasses: [] }), smalltalk.HLItemSelected.klass); smalltalk.addClass('HLClassSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements'); smalltalk.addClass('HLInstanceVariableSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements'); smalltalk.addClass('HLMethodSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements'); smalltalk.addClass('HLPackageSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements'); smalltalk.addClass('HLProtocolSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements'); smalltalk.addClass('HLRefreshRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements'); smalltalk.addClass('HLShowCommentToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements'); smalltalk.addClass('HLShowInstanceToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');