Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
printNL -> printCR
authorClaus Gittinger <cg@exept.de>
Mon, 20 May 1996 10:44:16 +0200
changeset 1428 2c3e439f08cc
parent 1427 6040a7c4c947
child 1429 5729275971ae
printNL -> printCR
ArrColl.st file | annotate | diff | comparison | revisions
ArrayedCollection.st file | annotate | diff | comparison | revisions 
--- a/ArrColl.st	Mon May 20 10:42:20 1996 +0200
+++ b/ArrColl.st	Mon May 20 10:44:16 1996 +0200
@@ -261,22 +261,22 @@
 
     oldSize := self size.
     (newSize ~~ oldSize) ifTrue:[
-	InfoPrinting ifTrue:[
-	    "/
-	    "/ output a warning - you should rewrite your application
-	    "/ to use some collection which implements grow: more efficient
-	    "/ (i.e. use OrderedCollection instead of Array ..)
-	    "/
-	    'ARRCOLL: Warning: slow grow operation (' infoPrint.
-	    self class name infoPrint. ') via ' infoPrint.
+        InfoPrinting ifTrue:[
+            "/
+            "/ output a warning - you should rewrite your application
+            "/ to use some collection which implements grow: more efficient
+            "/ (i.e. use OrderedCollection instead of Array ..)
+            "/
+            'ARRCOLL: Warning: slow grow operation (' infoPrint.
+            self class name infoPrint. ') via ' infoPrint.
             sender := thisContext sender.
-	    sender methodPrintString infoPrint. 
-	    ' from ' infoPrint. sender sender methodPrintString infoPrintNL.
-	].
+            sender methodPrintString infoPrint. 
+            ' from ' infoPrint. sender sender methodPrintString infoPrintCR.
+        ].
 
-	newArray := self species new:newSize.
-	newArray replaceFrom:1 to:(newSize min:oldSize) with:self.
-	self become:newArray.
+        newArray := self species new:newSize.
+        newArray replaceFrom:1 to:(newSize min:oldSize) with:self.
+        self become:newArray.
     ]
 
     "
@@ -287,6 +287,8 @@
      'hello world' copy grow:5   
      'hello' copy grow:20   
     "
+
+    "Modified: 20.5.1996 / 10:30:57 / cg"
 !
 
 removeAll
@@ -299,7 +301,7 @@
      We output a warning message here, to remind you about that."
 
     'ARRCOLL: Warning: slow removeAll operation (' infoPrint.
-    self class name infoPrint. ')' infoPrintNL.
+    self class name infoPrint. ')' infoPrintCR.
 
     self become:(self copyEmpty)
 
@@ -308,7 +310,7 @@
      #(1 2 3 4 5) removeAll    
     "
 
-    "Modified: 12.4.1996 / 13:34:21 / cg"
+    "Modified: 20.5.1996 / 10:30:59 / cg"
 ! !
 
 !ArrayedCollection methodsFor:'testing'!
@@ -337,5 +339,5 @@
 !ArrayedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ArrColl.st,v 1.36 1996-05-18 13:48:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ArrColl.st,v 1.37 1996-05-20 08:44:16 cg Exp $'
 ! !
--- a/ArrayedCollection.st	Mon May 20 10:42:20 1996 +0200
+++ b/ArrayedCollection.st	Mon May 20 10:44:16 1996 +0200
@@ -261,22 +261,22 @@
 
     oldSize := self size.
     (newSize ~~ oldSize) ifTrue:[
-	InfoPrinting ifTrue:[
-	    "/
-	    "/ output a warning - you should rewrite your application
-	    "/ to use some collection which implements grow: more efficient
-	    "/ (i.e. use OrderedCollection instead of Array ..)
-	    "/
-	    'ARRCOLL: Warning: slow grow operation (' infoPrint.
-	    self class name infoPrint. ') via ' infoPrint.
+        InfoPrinting ifTrue:[
+            "/
+            "/ output a warning - you should rewrite your application
+            "/ to use some collection which implements grow: more efficient
+            "/ (i.e. use OrderedCollection instead of Array ..)
+            "/
+            'ARRCOLL: Warning: slow grow operation (' infoPrint.
+            self class name infoPrint. ') via ' infoPrint.
             sender := thisContext sender.
-	    sender methodPrintString infoPrint. 
-	    ' from ' infoPrint. sender sender methodPrintString infoPrintNL.
-	].
+            sender methodPrintString infoPrint. 
+            ' from ' infoPrint. sender sender methodPrintString infoPrintCR.
+        ].
 
-	newArray := self species new:newSize.
-	newArray replaceFrom:1 to:(newSize min:oldSize) with:self.
-	self become:newArray.
+        newArray := self species new:newSize.
+        newArray replaceFrom:1 to:(newSize min:oldSize) with:self.
+        self become:newArray.
     ]
 
     "
@@ -287,6 +287,8 @@
      'hello world' copy grow:5   
      'hello' copy grow:20   
     "
+
+    "Modified: 20.5.1996 / 10:30:57 / cg"
 !
 
 removeAll
@@ -299,7 +301,7 @@
      We output a warning message here, to remind you about that."
 
     'ARRCOLL: Warning: slow removeAll operation (' infoPrint.
-    self class name infoPrint. ')' infoPrintNL.
+    self class name infoPrint. ')' infoPrintCR.
 
     self become:(self copyEmpty)
 
@@ -308,7 +310,7 @@
      #(1 2 3 4 5) removeAll    
     "
 
-    "Modified: 12.4.1996 / 13:34:21 / cg"
+    "Modified: 20.5.1996 / 10:30:59 / cg"
 ! !
 
 !ArrayedCollection methodsFor:'testing'!
@@ -337,5 +339,5 @@
 !ArrayedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.36 1996-05-18 13:48:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.37 1996-05-20 08:44:16 cg Exp $'
 ! !
hg/stx-libbasic