define(["amber/boot", "amber_core/Kernel-Objects"], function($boot){"use strict"; if(!$boot.nilAsReceiver)$boot.nilAsReceiver=$boot.nil; if(!("nilAsValue" in $boot))$boot.nilAsValue=$boot.nilAsReceiver; var $core=$boot.api,nil=$boot.nilAsValue,$nil=$boot.nilAsReceiver,$recv=$boot.asReceiver,$globals=$boot.globals; if(!$boot.nilAsClass)$boot.nilAsClass=$boot.dnu; $core.addPackage("Kernel-Exceptions"); $core.packages["Kernel-Exceptions"].innerEval = function (expr) { return eval(expr); }; $core.packages["Kernel-Exceptions"].transport = {"type":"amd","amdNamespace":"amber_core"}; $core.addClass("Error", $globals.Object, ["messageText"], "Kernel-Exceptions"); //>>excludeStart("ide", pragmas.excludeIdeData); $globals.Error.comment="From the ANSI standard:\x0a\x0aThis protocol describes the behavior of instances of class `Error`.\x0aThese are used to represent error conditions that prevent the normal continuation of processing.\x0aActual error exceptions used by an application may be subclasses of this class.\x0aAs `Error` is explicitly specified to be subclassable, conforming implementations must implement its behavior in a non-fragile manner."; //>>excludeEnd("ide"); $core.addMethod( $core.method({ selector: "beHandled", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); self.amberHandled = true; return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"beHandled",{},$globals.Error)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "beHandled\x0a\x09", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Error); $core.addMethod( $core.method({ selector: "beUnhandled", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); self.amberHandled = false; return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"beUnhandled",{},$globals.Error)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "beUnhandled\x0a\x09", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Error); $core.addMethod( $core.method({ selector: "context", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return self.context; return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"context",{},$globals.Error)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "context\x0a\x09", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Error); $core.addMethod( $core.method({ selector: "initialize", protocol: "initialization", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._messageText_("Errorclass: ".__comma($recv($self._class())._name())); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"initialize",{},$globals.Error)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "initialize\x0a\x09self messageText: 'Errorclass: ', (self class name).", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["messageText:", ",", "name", "class"] }), $globals.Error); $core.addMethod( $core.method({ selector: "isSmalltalkError", protocol: "testing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return self.smalltalkError === true; return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"isSmalltalkError",{},$globals.Error)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "isSmalltalkError\x0a\x09", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Error); $core.addMethod( $core.method({ selector: "jsStack", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return self.stack; return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"jsStack",{},$globals.Error)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "jsStack\x0a\x09", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Error); $core.addMethod( $core.method({ selector: "messageText", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self["@messageText"]; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "messageText\x0a\x09^ messageText", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Error); $core.addMethod( $core.method({ selector: "messageText:", protocol: "accessing", fn: function (aString){ var self=this,$self=this; $self["@messageText"]=aString; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "messageText: aString\x0a\x09messageText := aString", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Error); $core.addMethod( $core.method({ selector: "resignal", protocol: "signaling", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); self.amberHandled = false; throw(self); ; return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"resignal",{},$globals.Error)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "resignal\x0a\x09\x22Resignal the receiver without changing its exception context\x22\x0a\x09\x0a\x09", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Error); $core.addMethod( $core.method({ selector: "signal", protocol: "signaling", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); self.amberHandled = false; self.context = $core.getThisContext(); self.smalltalkError = true; throw self; ; return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"signal",{},$globals.Error)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "signal\x0a\x09", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Error); $core.addMethod( $core.method({ selector: "signal:", protocol: "signaling", fn: function (aString){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._messageText_(aString); $self._signal(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"signal:",{aString:aString},$globals.Error)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "signal: aString\x0a\x09self messageText: aString.\x0a\x09self signal", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["messageText:", "signal"] }), $globals.Error); $core.addMethod( $core.method({ selector: "signalerContext", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $self._signalerContextFrom_($self._context()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"signalerContext",{},$globals.Error)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "signalerContext\x0a\x09^ self signalerContextFrom: self context", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["signalerContextFrom:", "context"] }), $globals.Error); $core.addMethod( $core.method({ selector: "signalerContextFrom:", protocol: "accessing", fn: function (aContext){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $3,$2,$1; return $recv(aContext)._findContextSuchThat_((function(context){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $3=$recv(context)._receiver(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["receiver"]=1; //>>excludeEnd("ctx"); $2=$recv($3).__eq_eq(self); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["=="]=1; //>>excludeEnd("ctx"); $1=$recv($2)._or_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $recv($recv(context)._receiver()).__eq_eq($self._class()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)}); //>>excludeEnd("ctx"); })); return $recv($1)._not(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({context:context},$ctx1,1)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"signalerContextFrom:",{aContext:aContext},$globals.Error)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aContext"], source: "signalerContextFrom: aContext\x0a\x09\x22Find the first sender of signal(:), the first context which is neither \x0a\x09for an instance method nor for a class side method of Exception (or subclass).\x0a\x09This will make sure that the same context is found for both, `Error signal` \x0a\x09and `Error new signal`\x22\x0a\x0a\x09^ aContext findContextSuchThat: [ :context |\x0a\x09\x09(context receiver == self \x0a\x09\x09or: [ context receiver == self class ]) not ]", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["findContextSuchThat:", "not", "or:", "==", "receiver", "class"] }), $globals.Error); $core.addMethod( $core.method({ selector: "wasHandled", protocol: "testing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return self.amberHandled || false; return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"wasHandled",{},$globals.Error)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "wasHandled\x0a\x09", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Error); $core.addMethod( $core.method({ selector: "classTag", protocol: "accessing", fn: function (){ var self=this,$self=this; return "exception"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "classTag\x0a\x09\x22Returns a tag or general category for this class.\x0a\x09Typically used to help tools do some reflection.\x0a\x09Helios, for example, uses this to decide what icon the class should display.\x22\x0a\x09\x0a\x09^ 'exception'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Error.a$cls); $core.addMethod( $core.method({ selector: "signal", protocol: "instance creation", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($self._new())._signal(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"signal",{},$globals.Error.a$cls)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "signal\x0a\x09^ self new signal", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["signal", "new"] }), $globals.Error.a$cls); $core.addMethod( $core.method({ selector: "signal:", protocol: "instance creation", fn: function (aString){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($self._new())._signal_(aString); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"signal:",{aString:aString},$globals.Error.a$cls)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "signal: aString\x0a\x09^ self new\x0a\x09\x09signal: aString", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["signal:", "new"] }), $globals.Error.a$cls); $core.addClass("Halt", $globals.Error, [], "Kernel-Exceptions"); //>>excludeStart("ide", pragmas.excludeIdeData); $globals.Halt.comment="I am provided to support `Object>>#halt`."; //>>excludeEnd("ide"); $core.addMethod( $core.method({ selector: "messageText", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Halt encountered"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "messageText\x0a\x09^ 'Halt encountered'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.Halt); $core.addMethod( $core.method({ selector: "signalerContextFrom:", protocol: "accessing", fn: function (aContext){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $3,$2,$1; return $recv(aContext)._findContextSuchThat_((function(context){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $3=$recv(context)._receiver(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["receiver"]=1; //>>excludeEnd("ctx"); $2=$recv($3).__eq_eq(self); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["=="]=1; //>>excludeEnd("ctx"); $1=$recv($2)._or_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $recv($recv($recv(context)._receiver()).__eq_eq($self._class()))._or_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $recv($recv($recv(context)._method())._selector()).__eq("halt"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,3)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["or:"]=1; //>>excludeEnd("ctx"); return $recv($1)._not(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({context:context},$ctx1,1)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"signalerContextFrom:",{aContext:aContext},$globals.Halt)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aContext"], source: "signalerContextFrom: aContext\x0a\x09\x22specialized version to find the proper context to open the debugger on.\x0a\x09This will find the first context whose method is no longer on `Halt` or \x0a\x09`Halt class` nor is `#halt` method itself.\x22\x0a\x09\x0a\x09^ aContext findContextSuchThat: [ :context |\x0a\x09\x09(context receiver == self \x0a\x09\x09or: [ (context receiver == self class) \x0a\x09\x09or: [ context method selector = #halt ]]) not ]", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["findContextSuchThat:", "not", "or:", "==", "receiver", "class", "=", "selector", "method"] }), $globals.Halt); $core.addClass("JavaScriptException", $globals.Error, ["exception"], "Kernel-Exceptions"); //>>excludeStart("ide", pragmas.excludeIdeData); $globals.JavaScriptException.comment="A JavaScriptException is thrown when a non-Smalltalk exception occurs while in the Smalltalk stack.\x0aSee `boot.js` `inContext()` and `BlockClosure >> on:do:`"; //>>excludeEnd("ide"); $core.addMethod( $core.method({ selector: "context:", protocol: "accessing", fn: function (aMethodContext){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); self.context = aMethodContext; return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"context:",{aMethodContext:aMethodContext},$globals.JavaScriptException)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aMethodContext"], source: "context: aMethodContext\x0a\x09\x22Set the context from the outside.\x0a\x09See boot.js `inContext()` exception handling\x22\x0a\x09\x0a\x09", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.JavaScriptException); $core.addMethod( $core.method({ selector: "exception", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self["@exception"]; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "exception\x0a\x09^ exception", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.JavaScriptException); $core.addMethod( $core.method({ selector: "exception:", protocol: "accessing", fn: function (anException){ var self=this,$self=this; $self["@exception"]=anException; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anException"], source: "exception: anException\x0a\x09exception := anException", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.JavaScriptException); $core.addMethod( $core.method({ selector: "messageText", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return "JavaScript exception: " + $self["@exception"].toString(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"messageText",{},$globals.JavaScriptException)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "messageText\x0a\x09", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.JavaScriptException); $core.addMethod( $core.method({ selector: "shouldBeStubbed", protocol: "testing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $self["@exception"] instanceof RangeError; return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"shouldBeStubbed",{},$globals.JavaScriptException)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "shouldBeStubbed\x0a\x09", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.JavaScriptException); $core.addMethod( $core.method({ selector: "wrap", protocol: "error handling", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $recv((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $self._signal(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); }))._tryCatch_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $1=$self._shouldBeStubbed(); if($core.assert($1)){ return $recv($self._context())._stubToAtMost_((100)); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"wrap",{},$globals.JavaScriptException)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "wrap\x0a\x09[ self signal ] tryCatch:\x0a\x09\x09[ self shouldBeStubbed ifTrue: [ self context stubToAtMost: 100 ] ]", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["tryCatch:", "signal", "ifTrue:", "shouldBeStubbed", "stubToAtMost:", "context"] }), $globals.JavaScriptException); $core.addMethod( $core.method({ selector: "on:", protocol: "instance creation", fn: function (anException){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self._new(); $recv($1)._exception_(anException); return $recv($1)._yourself(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"on:",{anException:anException},$globals.JavaScriptException.a$cls)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anException"], source: "on: anException\x0a\x09^ self new\x0a\x09\x09exception: anException;\x0a\x09\x09yourself", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["exception:", "new", "yourself"] }), $globals.JavaScriptException.a$cls); $core.addMethod( $core.method({ selector: "on:context:", protocol: "instance creation", fn: function (anException,aMethodContext){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self._new(); $recv($1)._exception_(anException); $recv($1)._context_(aMethodContext); return $recv($1)._yourself(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"on:context:",{anException:anException,aMethodContext:aMethodContext},$globals.JavaScriptException.a$cls)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anException", "aMethodContext"], source: "on: anException context: aMethodContext\x0a\x09^ self new\x0a\x09\x09exception: anException;\x0a\x09\x09context: aMethodContext;\x0a\x09\x09yourself", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["exception:", "new", "context:", "yourself"] }), $globals.JavaScriptException.a$cls); $core.addClass("MessageNotUnderstood", $globals.Error, ["message", "receiver"], "Kernel-Exceptions"); //>>excludeStart("ide", pragmas.excludeIdeData); $globals.MessageNotUnderstood.comment="This exception is provided to support `Object>>doesNotUnderstand:`."; //>>excludeEnd("ide"); $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.MessageNotUnderstood); $core.addMethod( $core.method({ selector: "message:", protocol: "accessing", fn: function (aMessage){ var self=this,$self=this; $self["@message"]=aMessage; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aMessage"], source: "message: aMessage\x0a\x09message := aMessage", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.MessageNotUnderstood); $core.addMethod( $core.method({ selector: "messageText", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv($recv($recv($self._receiver())._asString()).__comma(" does not understand #")).__comma($recv($self._message())._selector()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx[","]=1; //>>excludeEnd("ctx"); return $1; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"messageText",{},$globals.MessageNotUnderstood)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "messageText\x0a\x09^ self receiver asString, ' does not understand #', self message selector", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [",", "asString", "receiver", "selector", "message"] }), $globals.MessageNotUnderstood); $core.addMethod( $core.method({ selector: "receiver", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self["@receiver"]; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "receiver\x0a\x09^ receiver", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.MessageNotUnderstood); $core.addMethod( $core.method({ selector: "receiver:", protocol: "accessing", fn: function (anObject){ var self=this,$self=this; $self["@receiver"]=anObject; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anObject"], source: "receiver: anObject\x0a\x09receiver := anObject", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.MessageNotUnderstood); $core.addClass("NonBooleanReceiver", $globals.Error, ["object"], "Kernel-Exceptions"); //>>excludeStart("ide", pragmas.excludeIdeData); $globals.NonBooleanReceiver.comment="NonBooleanReceiver exceptions may be thrown when executing inlined methods such as `#ifTrue:` with a non boolean receiver."; //>>excludeEnd("ide"); $core.addMethod( $core.method({ selector: "object", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self["@object"]; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "object\x0a\x09^ object", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.NonBooleanReceiver); $core.addMethod( $core.method({ selector: "object:", protocol: "accessing", fn: function (anObject){ var self=this,$self=this; $self["@object"]=anObject; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anObject"], source: "object: anObject\x0a\x09object := anObject", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.NonBooleanReceiver); $core.addMethod( $core.method({ selector: "signalOn:", protocol: "instance creation", fn: function (anObject){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self._new(); $recv($1)._object_(anObject); return $recv($1)._signal(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"signalOn:",{anObject:anObject},$globals.NonBooleanReceiver.a$cls)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anObject"], source: "signalOn: anObject\x0a\x09^ self new\x0a\x09\x09object: anObject;\x0a\x09\x09signal", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["object:", "new", "signal"] }), $globals.NonBooleanReceiver.a$cls); });