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.
new infoMessage scheme
authorClaus Gittinger <cg@exept.de>
Fri, 10 Jan 1997 16:17:43 +0100
changeset 2125 b438ee11118f
parent 2124 6238280f6120
child 2126 d3da2956f380
new infoMessage scheme
ArrColl.st file | annotate | diff | comparison | revisions
ArrayedCollection.st file | annotate | diff | comparison | revisions 
--- a/ArrColl.st	Fri Jan 10 16:04:23 1997 +0100
+++ b/ArrColl.st	Fri Jan 10 16:17:43 1997 +0100
@@ -17,7 +17,7 @@
 	category:'Collections-Abstract'
 !
 
-!ArrayedCollection  class methodsFor:'documentation'!
+!ArrayedCollection class methodsFor:'documentation'!
 
 copyright
 "
@@ -70,7 +70,7 @@
 "
 ! !
 
-!ArrayedCollection  class methodsFor:'instance creation'!
+!ArrayedCollection class methodsFor:'instance creation'!
 
 with:element
     "return a new SequenceableCollection with one element:anObject"
@@ -174,7 +174,7 @@
     "Modified: 13.4.1996 / 12:14:38 / cg"
 ! !
 
-!ArrayedCollection  class methodsFor:'queries'!
+!ArrayedCollection class methodsFor:'queries'!
 
 growIsCheap
     "return true, if this collection can easily grow
@@ -263,22 +263,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.
-	    sender := thisContext sender.
-	    sender methodPrintString infoPrint. 
-	    ' from ' infoPrint. sender sender methodPrintString infoPrintCR.
-	].
+        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 ..)
+            "/
+            'ArrayedCollection [info]: slow grow operation (' infoPrint.
+            self class name infoPrint. ') via ' infoPrint.
+            sender := thisContext sender.
+            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.
     ]
 
     "
@@ -290,7 +290,7 @@
      'hello' copy grow:20   
     "
 
-    "Modified: 20.5.1996 / 10:30:57 / cg"
+    "Modified: 10.1.1997 / 15:14:43 / cg"
 !
 
 removeAll
@@ -304,7 +304,7 @@
      (i.e. an OrderedCollection).
      We output a warning message here, to remind you about that."
 
-    'ARRCOLL: Warning: slow removeAll operation (' infoPrint.
+    'ArrayedCollection [info]: slow removeAll operation (' infoPrint.
     self class name infoPrint. ')' infoPrintCR.
 
     self become:(self copyEmpty)
@@ -314,7 +314,7 @@
      #(1 2 3 4 5) removeAll    
     "
 
-    "Modified: 20.5.1996 / 10:30:59 / cg"
+    "Modified: 10.1.1997 / 15:14:55 / cg"
 ! !
 
 !ArrayedCollection methodsFor:'testing'!
@@ -340,8 +340,8 @@
     ^ self basicSize
 ! !
 
-!ArrayedCollection  class methodsFor:'documentation'!
+!ArrayedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ArrColl.st,v 1.39 1996-12-16 22:36:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ArrColl.st,v 1.40 1997-01-10 15:17:43 cg Exp $'
 ! !
--- a/ArrayedCollection.st	Fri Jan 10 16:04:23 1997 +0100
+++ b/ArrayedCollection.st	Fri Jan 10 16:17:43 1997 +0100
@@ -17,7 +17,7 @@
 	category:'Collections-Abstract'
 !
 
-!ArrayedCollection  class methodsFor:'documentation'!
+!ArrayedCollection class methodsFor:'documentation'!
 
 copyright
 "
@@ -70,7 +70,7 @@
 "
 ! !
 
-!ArrayedCollection  class methodsFor:'instance creation'!
+!ArrayedCollection class methodsFor:'instance creation'!
 
 with:element
     "return a new SequenceableCollection with one element:anObject"
@@ -174,7 +174,7 @@
     "Modified: 13.4.1996 / 12:14:38 / cg"
 ! !
 
-!ArrayedCollection  class methodsFor:'queries'!
+!ArrayedCollection class methodsFor:'queries'!
 
 growIsCheap
     "return true, if this collection can easily grow
@@ -263,22 +263,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.
-	    sender := thisContext sender.
-	    sender methodPrintString infoPrint. 
-	    ' from ' infoPrint. sender sender methodPrintString infoPrintCR.
-	].
+        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 ..)
+            "/
+            'ArrayedCollection [info]: slow grow operation (' infoPrint.
+            self class name infoPrint. ') via ' infoPrint.
+            sender := thisContext sender.
+            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.
     ]
 
     "
@@ -290,7 +290,7 @@
      'hello' copy grow:20   
     "
 
-    "Modified: 20.5.1996 / 10:30:57 / cg"
+    "Modified: 10.1.1997 / 15:14:43 / cg"
 !
 
 removeAll
@@ -304,7 +304,7 @@
      (i.e. an OrderedCollection).
      We output a warning message here, to remind you about that."
 
-    'ARRCOLL: Warning: slow removeAll operation (' infoPrint.
+    'ArrayedCollection [info]: slow removeAll operation (' infoPrint.
     self class name infoPrint. ')' infoPrintCR.
 
     self become:(self copyEmpty)
@@ -314,7 +314,7 @@
      #(1 2 3 4 5) removeAll    
     "
 
-    "Modified: 20.5.1996 / 10:30:59 / cg"
+    "Modified: 10.1.1997 / 15:14:55 / cg"
 ! !
 
 !ArrayedCollection methodsFor:'testing'!
@@ -340,8 +340,8 @@
     ^ self basicSize
 ! !
 
-!ArrayedCollection  class methodsFor:'documentation'!
+!ArrayedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.39 1996-12-16 22:36:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.40 1997-01-10 15:17:43 cg Exp $'
 ! !
hg/stx-libbasic