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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 21 Feb 1996 15:10:57 +0100
changeset 990 284134c88e19
parent 989 b8bf7496110c
child 991 f0b45a4b82d2
*** empty log message ***
ArrColl.st file | annotate | diff | comparison | revisions
ArrayedCollection.st file | annotate | diff | comparison | revisions 
--- a/ArrColl.st	Wed Feb 21 15:08:01 1996 +0100
+++ b/ArrColl.st	Wed Feb 21 15:10:57 1996 +0100
@@ -236,16 +236,18 @@
 
     oldSize := self size.
     (newSize ~~ oldSize) 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.
+	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.
+	].
 
 	newArray := self species new:newSize.
 	newArray replaceFrom:1 to:(newSize min:oldSize) with:self.
@@ -300,5 +302,5 @@
 !ArrayedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ArrColl.st,v 1.29 1996-01-30 17:15:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ArrColl.st,v 1.30 1996-02-21 14:10:57 cg Exp $'
 ! !
--- a/ArrayedCollection.st	Wed Feb 21 15:08:01 1996 +0100
+++ b/ArrayedCollection.st	Wed Feb 21 15:10:57 1996 +0100
@@ -236,16 +236,18 @@
 
     oldSize := self size.
     (newSize ~~ oldSize) 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.
+	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.
+	].
 
 	newArray := self species new:newSize.
 	newArray replaceFrom:1 to:(newSize min:oldSize) with:self.
@@ -300,5 +302,5 @@
 !ArrayedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.29 1996-01-30 17:15:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.30 1996-02-21 14:10:57 cg Exp $'
 ! !
hg/stx-libbasic