1
0
Переглянути джерело

nextPutJSObject: in Kernel-Infrastructure

Herbert Vojčík 7 роки тому
батько
коміт
ae3c49244d

+ 0 - 24
src/Kernel-Collections.js

@@ -8985,30 +8985,6 @@ messageSends: ["do:", "nextPut:"]
 }),
 $globals.ProtoStream);
 
-$core.addMethod(
-$core.method({
-selector: "nextPutJSObject:",
-protocol: "writing",
-fn: function (aJSObject){
-var self=this;
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-return $core.withContext(function($ctx1) {
-//>>excludeEnd("ctx");
-self._nextPut_(aJSObject);
-return self;
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-}, function($ctx1) {$ctx1.fill(self,"nextPutJSObject:",{aJSObject:aJSObject},$globals.ProtoStream)});
-//>>excludeEnd("ctx");
-},
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: ["aJSObject"],
-source: "nextPutJSObject: aJSObject\x0a\x09self nextPut: aJSObject",
-referencedClasses: [],
-//>>excludeEnd("ide");
-messageSends: ["nextPut:"]
-}),
-$globals.ProtoStream);
-
 $core.addMethod(
 $core.method({
 selector: "nextPutString:",

+ 0 - 4
src/Kernel-Collections.st

@@ -2181,10 +2181,6 @@ nextPutAll: aCollection
 		self nextPut: each ]
 !
 
-nextPutJSObject: aJSObject
-	self nextPut: aJSObject
-!
-
 nextPutString: aString
 	self nextPut: aString
 !

+ 24 - 0
src/Kernel-Infrastructure.js

@@ -3494,6 +3494,30 @@ messageSends: ["shouldNotImplement"]
 }),
 $globals.SmalltalkImage.klass);
 
+$core.addMethod(
+$core.method({
+selector: "nextPutJSObject:",
+protocol: "*Kernel-Infrastructure",
+fn: function (aJSObject){
+var self=this;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+return $core.withContext(function($ctx1) {
+//>>excludeEnd("ctx");
+self._nextPut_(aJSObject);
+return self;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+}, function($ctx1) {$ctx1.fill(self,"nextPutJSObject:",{aJSObject:aJSObject},$globals.ProtoStream)});
+//>>excludeEnd("ctx");
+},
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: ["aJSObject"],
+source: "nextPutJSObject: aJSObject\x0a\x09self nextPut: aJSObject",
+referencedClasses: [],
+//>>excludeEnd("ide");
+messageSends: ["nextPut:"]
+}),
+$globals.ProtoStream);
+
 $core.addMethod(
 $core.method({
 selector: "asJavaScriptPropertyName",

+ 6 - 0
src/Kernel-Infrastructure.st

@@ -944,6 +944,12 @@ new
 	self shouldNotImplement
 ! !
 
+!ProtoStream methodsFor: '*Kernel-Infrastructure'!
+
+nextPutJSObject: aJSObject
+	self nextPut: aJSObject
+! !
+
 !String methodsFor: '*Kernel-Infrastructure'!
 
 asJavaScriptPropertyName