|
@@ -4193,84 +4193,6 @@ messageSends: ["ifTrue:ifFalse:", "and:", "isSmalltalkObject:", "isKindOf:", "on
|
|
|
}),
|
|
|
$globals.SmalltalkImage);
|
|
|
|
|
|
-$core.addMethod(
|
|
|
-$core.method({
|
|
|
-selector: "at:",
|
|
|
-protocol: 'accessing',
|
|
|
-fn: function (aString){
|
|
|
-var self=this;
|
|
|
-
|
|
|
-return $core.withContext(function($ctx1) {
|
|
|
-
|
|
|
-var $1;
|
|
|
-self._deprecatedAPI();
|
|
|
-$1=$recv(self._globals())._at_(aString);
|
|
|
-return $1;
|
|
|
-
|
|
|
-}, function($ctx1) {$ctx1.fill(self,"at:",{aString:aString},$globals.SmalltalkImage)});
|
|
|
-
|
|
|
-},
|
|
|
-
|
|
|
-args: ["aString"],
|
|
|
-source: "at: aString\x0a\x09self deprecatedAPI.\x0a\x09^ self globals at: aString",
|
|
|
-referencedClasses: [],
|
|
|
-
|
|
|
-messageSends: ["deprecatedAPI", "at:", "globals"]
|
|
|
-}),
|
|
|
-$globals.SmalltalkImage);
|
|
|
-
|
|
|
-$core.addMethod(
|
|
|
-$core.method({
|
|
|
-selector: "at:ifAbsent:",
|
|
|
-protocol: 'accessing',
|
|
|
-fn: function (aKey,aBlock){
|
|
|
-var self=this;
|
|
|
-
|
|
|
-return $core.withContext(function($ctx1) {
|
|
|
-
|
|
|
-var $1;
|
|
|
-self._deprecatedAPI();
|
|
|
-$1=$recv(self._globals())._at_ifAbsent_(aKey,aBlock);
|
|
|
-return $1;
|
|
|
-
|
|
|
-}, function($ctx1) {$ctx1.fill(self,"at:ifAbsent:",{aKey:aKey,aBlock:aBlock},$globals.SmalltalkImage)});
|
|
|
-
|
|
|
-},
|
|
|
-
|
|
|
-args: ["aKey", "aBlock"],
|
|
|
-source: "at: aKey ifAbsent: aBlock\x0a\x09self deprecatedAPI.\x0a\x09^ self globals at: aKey ifAbsent: aBlock",
|
|
|
-referencedClasses: [],
|
|
|
-
|
|
|
-messageSends: ["deprecatedAPI", "at:ifAbsent:", "globals"]
|
|
|
-}),
|
|
|
-$globals.SmalltalkImage);
|
|
|
-
|
|
|
-$core.addMethod(
|
|
|
-$core.method({
|
|
|
-selector: "at:put:",
|
|
|
-protocol: 'accessing',
|
|
|
-fn: function (aString,anObject){
|
|
|
-var self=this;
|
|
|
-
|
|
|
-return $core.withContext(function($ctx1) {
|
|
|
-
|
|
|
-var $1;
|
|
|
-self._deprecatedAPI();
|
|
|
-$1=$recv(self._globals())._at_put_(aString,anObject);
|
|
|
-return $1;
|
|
|
-
|
|
|
-}, function($ctx1) {$ctx1.fill(self,"at:put:",{aString:aString,anObject:anObject},$globals.SmalltalkImage)});
|
|
|
-
|
|
|
-},
|
|
|
-
|
|
|
-args: ["aString", "anObject"],
|
|
|
-source: "at: aString put: anObject\x0a\x09self deprecatedAPI.\x0a\x09^ self globals at: aString put: anObject",
|
|
|
-referencedClasses: [],
|
|
|
-
|
|
|
-messageSends: ["deprecatedAPI", "at:put:", "globals"]
|
|
|
-}),
|
|
|
-$globals.SmalltalkImage);
|
|
|
-
|
|
|
$core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "basicCreatePackage:",
|
|
@@ -4403,60 +4325,6 @@ messageSends: ["basicCreatePackage:", "package:", "new", "yourself", "announce:"
|
|
|
}),
|
|
|
$globals.SmalltalkImage);
|
|
|
|
|
|
-$core.addMethod(
|
|
|
-$core.method({
|
|
|
-selector: "createPackage:properties:",
|
|
|
-protocol: 'private',
|
|
|
-fn: function (packageName,aDict){
|
|
|
-var self=this;
|
|
|
-
|
|
|
-return $core.withContext(function($ctx1) {
|
|
|
-
|
|
|
-var $1,$2;
|
|
|
-self._deprecatedAPI();
|
|
|
-$1=$recv(aDict)._isEmpty();
|
|
|
-if(!$core.assert($1)){
|
|
|
-self._error_("createPackage:properties: called with nonempty properties");
|
|
|
-};
|
|
|
-$2=self._createPackage_(packageName);
|
|
|
-return $2;
|
|
|
-
|
|
|
-}, function($ctx1) {$ctx1.fill(self,"createPackage:properties:",{packageName:packageName,aDict:aDict},$globals.SmalltalkImage)});
|
|
|
-
|
|
|
-},
|
|
|
-
|
|
|
-args: ["packageName", "aDict"],
|
|
|
-source: "createPackage: packageName properties: aDict\x0a\x09\x22Needed to import .st files: they begin with this call.\x22\x0a\x09self deprecatedAPI.\x0a\x09\x0a\x09aDict isEmpty ifFalse: [ self error: 'createPackage:properties: called with nonempty properties' ].\x0a\x09^ self createPackage: packageName",
|
|
|
-referencedClasses: [],
|
|
|
-
|
|
|
-messageSends: ["deprecatedAPI", "ifFalse:", "isEmpty", "error:", "createPackage:"]
|
|
|
-}),
|
|
|
-$globals.SmalltalkImage);
|
|
|
-
|
|
|
-$core.addMethod(
|
|
|
-$core.method({
|
|
|
-selector: "current",
|
|
|
-protocol: 'accessing',
|
|
|
-fn: function (){
|
|
|
-var self=this;
|
|
|
-
|
|
|
-return $core.withContext(function($ctx1) {
|
|
|
-
|
|
|
-self._deprecatedAPI();
|
|
|
-return self;
|
|
|
-
|
|
|
-}, function($ctx1) {$ctx1.fill(self,"current",{},$globals.SmalltalkImage)});
|
|
|
-
|
|
|
-},
|
|
|
-
|
|
|
-args: [],
|
|
|
-source: "current\x0a\x09\x22Backward compatibility for Smalltalk current ...\x22\x0a\x09self deprecatedAPI.\x0a\x09^ self",
|
|
|
-referencedClasses: [],
|
|
|
-
|
|
|
-messageSends: ["deprecatedAPI"]
|
|
|
-}),
|
|
|
-$globals.SmalltalkImage);
|
|
|
-
|
|
|
$core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "defaultAmdNamespace",
|
|
@@ -5086,32 +4954,6 @@ messageSends: []
|
|
|
}),
|
|
|
$globals.SmalltalkImage);
|
|
|
|
|
|
-$core.addMethod(
|
|
|
-$core.method({
|
|
|
-selector: "vm",
|
|
|
-protocol: 'accessing',
|
|
|
-fn: function (){
|
|
|
-var self=this;
|
|
|
-
|
|
|
-return $core.withContext(function($ctx1) {
|
|
|
-
|
|
|
-var $1;
|
|
|
-self._deprecatedAPI_("Use #core");
|
|
|
-$1=self._core();
|
|
|
-return $1;
|
|
|
-
|
|
|
-}, function($ctx1) {$ctx1.fill(self,"vm",{},$globals.SmalltalkImage)});
|
|
|
-
|
|
|
-},
|
|
|
-
|
|
|
-args: [],
|
|
|
-source: "vm\x0a\x09self deprecatedAPI: 'Use #core'.\x0a\x09^self core",
|
|
|
-referencedClasses: [],
|
|
|
-
|
|
|
-messageSends: ["deprecatedAPI:", "core"]
|
|
|
-}),
|
|
|
-$globals.SmalltalkImage);
|
|
|
-
|
|
|
|
|
|
$globals.SmalltalkImage.klass.iVarNames = ['current'];
|
|
|
$core.addMethod(
|
|
@@ -5252,31 +5094,6 @@ messageSends: []
|
|
|
}),
|
|
|
$globals.String);
|
|
|
|
|
|
-$core.addMethod(
|
|
|
-$core.method({
|
|
|
-selector: "asJavaScriptSelector",
|
|
|
-protocol: '*Kernel-Infrastructure',
|
|
|
-fn: function (){
|
|
|
-var self=this;
|
|
|
-
|
|
|
-return $core.withContext(function($ctx1) {
|
|
|
-
|
|
|
-var $1;
|
|
|
-$1=self._asJavaScriptPropertyName();
|
|
|
-return $1;
|
|
|
-
|
|
|
-}, function($ctx1) {$ctx1.fill(self,"asJavaScriptSelector",{},$globals.String)});
|
|
|
-
|
|
|
-},
|
|
|
-
|
|
|
-args: [],
|
|
|
-source: "asJavaScriptSelector\x0a\x09\x22Cannot add next line as it breaks commit:\x0a\x09self deprecatedAPI: 'Use #asJavaScriptPropertyName'.\x22\x0a\x09^ self asJavaScriptPropertyName",
|
|
|
-referencedClasses: [],
|
|
|
-
|
|
|
-messageSends: ["asJavaScriptPropertyName"]
|
|
|
-}),
|
|
|
-$globals.String);
|
|
|
-
|
|
|
$core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "asSetting",
|