Browse Source

StringStream >> print:

Herbert Vojčík 7 years ago
parent
commit
bc969b4cfa
3 changed files with 30 additions and 0 deletions
  1. 2 0
      API-CHANGES.txt
  2. 24 0
      src/Kernel-Collections.js
  3. 4 0
      src/Kernel-Collections.st

+ 2 - 0
API-CHANGES.txt

@@ -13,6 +13,8 @@
   + symbolPrintString
 + String >>
   + isSelector
++ StringStream >>
+  + print:
 
 - Association >>
   - importsString

+ 24 - 0
src/Kernel-Collections.js

@@ -9898,6 +9898,30 @@ messageSends: ["nextPutAll:"]
 }),
 $globals.StringStream);
 
+$core.addMethod(
+$core.method({
+selector: "print:",
+protocol: "writing",
+fn: function (anObject){
+var self=this;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+return $core.withContext(function($ctx1) {
+//>>excludeEnd("ctx");
+$recv(anObject)._printOn_(self);
+return self;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+}, function($ctx1) {$ctx1.fill(self,"print:",{anObject:anObject},$globals.StringStream)});
+//>>excludeEnd("ctx");
+},
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: ["anObject"],
+source: "print: anObject\x0a\x09anObject printOn: self",
+referencedClasses: [],
+//>>excludeEnd("ide");
+messageSends: ["printOn:"]
+}),
+$globals.StringStream);
+
 $core.addMethod(
 $core.method({
 selector: "space",

+ 4 - 0
src/Kernel-Collections.st

@@ -2356,6 +2356,10 @@ nextPutString: aString
 	self nextPutAll: aString
 !
 
+print: anObject
+	anObject printOn: self
+!
+
 space
 	self nextPut: ' '
 !