define(["amber/boot", "require", "amber/core/Kernel-Objects"], function($boot,requirejs){"use strict"; var $core=$boot.api,nil=$boot.nilAsValue,$nil=$boot.nilAsReceiver,$recv=$boot.asReceiver,$globals=$boot.globals; var $pkg = $core.addPackage("Helios-Announcements"); $pkg.innerEval = function (expr) { return eval(expr); }; $pkg.transport = {"type":"amd","amdNamespace":"helios"}; $core.addClass("HLAboutToChange", $globals.Object, ["actionBlock"], "Helios-Announcements"); //>>excludeStart("ide", pragmas.excludeIdeData); $globals.HLAboutToChange.comment="I am announced whenever a change of context is about to be made, and unsaved changes could be lost.\x0a\x0aI am used within `HLModel` to handle such user actions. See `HLModel >> withChangesDo:`."; //>>excludeEnd("ide"); $core.addMethod( $core.method({ selector: "actionBlock", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.actionBlock; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "actionBlock\x0a\x09^ actionBlock", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLAboutToChange); $core.addMethod( $core.method({ selector: "actionBlock:", protocol: "accessing", fn: function (aBlock){ var self=this,$self=this; $self.actionBlock=aBlock; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aBlock"], source: "actionBlock: aBlock\x0a\x09actionBlock := aBlock", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLAboutToChange); $core.addClass("HLAnnouncement", $globals.Object, [], "Helios-Announcements"); //>>excludeStart("ide", pragmas.excludeIdeData); $globals.HLAnnouncement.comment="I am the root of the announcement class hierarchy used in the Helios UI."; //>>excludeEnd("ide"); $core.addMethod( $core.method({ selector: "heliosClass", protocol: "helios", fn: function (){ var self=this,$self=this; return "announcement"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "heliosClass\x0a\x09^ 'announcement'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLAnnouncement.a$cls); $core.addClass("HLCodeHandled", $globals.HLAnnouncement, ["code"], "Helios-Announcements"); //>>excludeStart("ide", pragmas.excludeIdeData); $globals.HLCodeHandled.comment="I am the root class of announcements emitted by `HLCodeWidget`s"; //>>excludeEnd("ide"); $core.addMethod( $core.method({ selector: "code", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.code; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "code\x0a\x0a\x09^ code", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLCodeHandled); $core.addMethod( $core.method({ selector: "code:", protocol: "accessing", fn: function (aModel){ var self=this,$self=this; $self.code=aModel; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aModel"], source: "code: aModel\x0a\x0a\x09code := aModel", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLCodeHandled); $core.addMethod( $core.method({ selector: "on:", protocol: "actions", fn: function (aCodeModel){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self._new(); $recv($1)._code_(aCodeModel); return $recv($1)._yourself(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"on:",{aCodeModel:aCodeModel},$globals.HLCodeHandled.a$cls)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aCodeModel"], source: "on: aCodeModel\x0a\x0a\x09^ self new \x0a \x09code: aCodeModel;\x0a yourself", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["code:", "new", "yourself"] }), $globals.HLCodeHandled.a$cls); $core.addClass("HLDoItExecuted", $globals.HLCodeHandled, [], "Helios-Announcements"); //>>excludeStart("ide", pragmas.excludeIdeData); $globals.HLDoItExecuted.comment="I am emitted by a `HLCodeWidget` after a DoIt has been executed."; //>>excludeEnd("ide"); $core.addClass("HLDebuggerAnnouncement", $globals.HLAnnouncement, ["context"], "Helios-Announcements"); //>>excludeStart("ide", pragmas.excludeIdeData); $globals.HLDebuggerAnnouncement.comment="I am the root class of debugger announcements, and hold onto the debugged `context`."; //>>excludeEnd("ide"); $core.addMethod( $core.method({ selector: "context", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.context; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "context\x0a\x09^ context", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLDebuggerAnnouncement); $core.addMethod( $core.method({ selector: "context:", protocol: "accessing", fn: function (aContext){ var self=this,$self=this; $self.context=aContext; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aContext"], source: "context: aContext\x0a\x09context := aContext", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLDebuggerAnnouncement); $core.addClass("HLDebuggerContextSelected", $globals.HLDebuggerAnnouncement, [], "Helios-Announcements"); //>>excludeStart("ide", pragmas.excludeIdeData); $globals.HLDebuggerContextSelected.comment="I am announced when a new context is selected in a debugger, to update the user interface."; //>>excludeEnd("ide"); $core.addMethod( $core.method({ selector: "context", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.context; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "context\x0a\x09^ context", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLDebuggerContextSelected); $core.addMethod( $core.method({ selector: "context:", protocol: "accessing", fn: function (aContext){ var self=this,$self=this; $self.context=aContext; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aContext"], source: "context: aContext\x0a\x09context := aContext", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLDebuggerContextSelected); $core.addClass("HLDebuggerProceeded", $globals.HLDebuggerAnnouncement, [], "Helios-Announcements"); $core.addClass("HLDebuggerStepped", $globals.HLDebuggerAnnouncement, [], "Helios-Announcements"); $core.addClass("HLDebuggerWhere", $globals.HLDebuggerAnnouncement, [], "Helios-Announcements"); $core.addClass("HLDiveRequested", $globals.HLAnnouncement, [], "Helios-Announcements"); $core.addClass("HLEditComment", $globals.HLAnnouncement, [], "Helios-Announcements"); $core.addClass("HLErrorRaised", $globals.HLAnnouncement, ["error"], "Helios-Announcements"); $core.addMethod( $core.method({ selector: "error", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.error; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "error\x0a\x09^ error", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLErrorRaised); $core.addMethod( $core.method({ selector: "error:", protocol: "accessing", fn: function (anError){ var self=this,$self=this; $self.error=anError; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anError"], source: "error: anError\x0a\x09error := anError", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLErrorRaised); $core.addClass("HLCompileErrorRaised", $globals.HLErrorRaised, [], "Helios-Announcements"); $core.addClass("HLParseErrorRaised", $globals.HLErrorRaised, ["line", "column", "message"], "Helios-Announcements"); $core.addMethod( $core.method({ selector: "column", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.column; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "column\x0a\x09^ column", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLParseErrorRaised); $core.addMethod( $core.method({ selector: "column:", protocol: "accessing", fn: function (anInteger){ var self=this,$self=this; $self.column=anInteger; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anInteger"], source: "column: anInteger\x0a\x09column := anInteger", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLParseErrorRaised); $core.addMethod( $core.method({ selector: "line", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.line; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "line\x0a\x09^ line", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLParseErrorRaised); $core.addMethod( $core.method({ selector: "line:", protocol: "accessing", fn: function (anInteger){ var self=this,$self=this; $self.line=anInteger; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anInteger"], source: "line: anInteger\x0a\x09line := anInteger", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLParseErrorRaised); $core.addMethod( $core.method({ selector: "message", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.message; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "message\x0a\x09^ message", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLParseErrorRaised); $core.addMethod( $core.method({ selector: "message:", protocol: "accessing", fn: function (aString){ var self=this,$self=this; $self.message=aString; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "message: aString\x0a\x09message := aString", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLParseErrorRaised); $core.addClass("HLUnknownVariableErrorRaised", $globals.HLErrorRaised, [], "Helios-Announcements"); $core.addClass("HLFocusRequested", $globals.HLAnnouncement, [], "Helios-Announcements"); $core.addClass("HLClassesFocusRequested", $globals.HLFocusRequested, [], "Helios-Announcements"); $core.addClass("HLDocumentationFocusRequested", $globals.HLFocusRequested, [], "Helios-Announcements"); $core.addClass("HLMethodsFocusRequested", $globals.HLFocusRequested, [], "Helios-Announcements"); $core.addClass("HLPackagesFocusRequested", $globals.HLFocusRequested, [], "Helios-Announcements"); $core.addClass("HLProtocolsFocusRequested", $globals.HLFocusRequested, [], "Helios-Announcements"); $core.addClass("HLSourceCodeFocusRequested", $globals.HLFocusRequested, [], "Helios-Announcements"); $core.addClass("HLInstVarAdded", $globals.HLAnnouncement, ["theClass", "variableName"], "Helios-Announcements"); $core.addMethod( $core.method({ selector: "theClass", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.theClass; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "theClass\x0a\x09^ theClass", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLInstVarAdded); $core.addMethod( $core.method({ selector: "theClass:", protocol: "accessing", fn: function (aClass){ var self=this,$self=this; $self.theClass=aClass; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aClass"], source: "theClass: aClass\x0a\x09theClass := aClass", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLInstVarAdded); $core.addMethod( $core.method({ selector: "variableName", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.variableName; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "variableName\x0a\x09^ variableName", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLInstVarAdded); $core.addMethod( $core.method({ selector: "variableName:", protocol: "accessing", fn: function (aString){ var self=this,$self=this; $self.variableName=aString; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "variableName: aString\x0a\x09variableName := aString", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLInstVarAdded); $core.addClass("HLItemSelected", $globals.HLAnnouncement, ["item"], "Helios-Announcements"); $core.addMethod( $core.method({ selector: "item", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.item; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "item\x0a\x09^ item", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLItemSelected); $core.addMethod( $core.method({ selector: "item:", protocol: "accessing", fn: function (anObject){ var self=this,$self=this; $self.item=anObject; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anObject"], source: "item: anObject\x0a\x09item := anObject", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLItemSelected); $core.addMethod( $core.method({ selector: "on:", protocol: "instance creation", fn: function (anItem){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self._new(); $recv($1)._item_(anItem); return $recv($1)._yourself(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"on:",{anItem:anItem},$globals.HLItemSelected.a$cls)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anItem"], source: "on: anItem\x0a\x09^ self new\x0a \x09item: anItem;\x0a yourself", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["item:", "new", "yourself"] }), $globals.HLItemSelected.a$cls); $core.addClass("HLClassSelected", $globals.HLItemSelected, [], "Helios-Announcements"); $core.addClass("HLInstanceVariableSelected", $globals.HLItemSelected, [], "Helios-Announcements"); $core.addClass("HLMethodSelected", $globals.HLItemSelected, [], "Helios-Announcements"); $core.addClass("HLPackageSelected", $globals.HLItemSelected, [], "Helios-Announcements"); $core.addClass("HLProtocolSelected", $globals.HLItemSelected, [], "Helios-Announcements"); $core.addClass("HLItemUnselected", $globals.HLAnnouncement, ["item"], "Helios-Announcements"); $core.addMethod( $core.method({ selector: "item", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.item; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "item\x0a\x09^ item", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLItemUnselected); $core.addMethod( $core.method({ selector: "item:", protocol: "accessing", fn: function (anObject){ var self=this,$self=this; $self.item=anObject; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anObject"], source: "item: anObject\x0a\x09item := anObject", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLItemUnselected); $core.addMethod( $core.method({ selector: "on:", protocol: "instance creation", fn: function (anItem){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self._new(); $recv($1)._item_(anItem); return $recv($1)._yourself(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"on:",{anItem:anItem},$globals.HLItemUnselected.a$cls)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anItem"], source: "on: anItem\x0a\x09^ self new\x0a \x09item: anItem;\x0a yourself", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["item:", "new", "yourself"] }), $globals.HLItemUnselected.a$cls); $core.addClass("HLClassUnselected", $globals.HLItemUnselected, [], "Helios-Announcements"); $core.addClass("HLPackageUnselected", $globals.HLItemUnselected, [], "Helios-Announcements"); $core.addClass("HLRunTests", $globals.HLAnnouncement, ["testSuiteRunner"], "Helios-Announcements"); $core.addMethod( $core.method({ selector: "testSuiteRunner", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.testSuiteRunner; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "testSuiteRunner\x0a\x09^ testSuiteRunner", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRunTests); $core.addMethod( $core.method({ selector: "testSuiteRunner:", protocol: "accessing", fn: function (anObject){ var self=this,$self=this; $self.testSuiteRunner=anObject; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anObject"], source: "testSuiteRunner: anObject\x0a\x09testSuiteRunner := anObject", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRunTests); $core.addMethod( $core.method({ selector: "on:", protocol: "instance creation", fn: function (aTestSuiteRunner){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self._new(); $recv($1)._testSuiteRunner_(aTestSuiteRunner); return $recv($1)._yourself(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"on:",{aTestSuiteRunner:aTestSuiteRunner},$globals.HLRunTests.a$cls)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aTestSuiteRunner"], source: "on: aTestSuiteRunner\x0a\x09^self new\x0a\x09\x09testSuiteRunner: aTestSuiteRunner;\x0a\x09\x09yourself", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["testSuiteRunner:", "new", "yourself"] }), $globals.HLRunTests.a$cls); $core.addClass("HLSaveSourceCode", $globals.HLAnnouncement, [], "Helios-Announcements"); $core.addClass("HLSearchReferences", $globals.HLAnnouncement, ["searchString"], "Helios-Announcements"); $core.addMethod( $core.method({ selector: "searchString", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.searchString; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "searchString\x0a\x09^ searchString", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLSearchReferences); $core.addMethod( $core.method({ selector: "searchString:", protocol: "accessing", fn: function (aString){ var self=this,$self=this; $self.searchString=aString; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "searchString: aString\x0a\x09searchString := aString", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLSearchReferences); $core.addClass("HLShowCommentToggled", $globals.HLAnnouncement, [], "Helios-Announcements"); $core.addClass("HLShowInstanceToggled", $globals.HLAnnouncement, [], "Helios-Announcements"); $core.addClass("HLShowTemplate", $globals.HLAnnouncement, ["template"], "Helios-Announcements"); $core.addMethod( $core.method({ selector: "template", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.template; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "template\x0a\x09^ template", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLShowTemplate); $core.addMethod( $core.method({ selector: "template:", protocol: "accessing", fn: function (aString){ var self=this,$self=this; $self.template=aString; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "template: aString\x0a\x09template := aString", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLShowTemplate); $core.addClass("HLSourceCodeSaved", $globals.HLAnnouncement, [], "Helios-Announcements"); $core.addClass("HLTabLabelChanged", $globals.HLAnnouncement, ["label", "widget"], "Helios-Announcements"); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.label; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ label", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLTabLabelChanged); $core.addMethod( $core.method({ selector: "label:", protocol: "accessing", fn: function (aString){ var self=this,$self=this; $self.label=aString; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "label: aString\x0a\x09label := aString", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLTabLabelChanged); $core.addMethod( $core.method({ selector: "widget", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.widget; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "widget\x0a\x09^ widget", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLTabLabelChanged); $core.addMethod( $core.method({ selector: "widget:", protocol: "accessing", fn: function (aWidget){ var self=this,$self=this; $self.widget=aWidget; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aWidget"], source: "widget: aWidget\x0a\x09widget := aWidget", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLTabLabelChanged); });