#notifyStoreError raise error proceedable.
authorStefan Vogel <sv@exept.de>
Wed, 30 Mar 2005 01:08:25 +0200
changeset 1574 a34e93fcf9ff
parent 1573 b97142106d38
child 1575 09fb949c5c65
#notifyStoreError raise error proceedable.
ImmutableArray.st
ImmutableString.st
--- a/ImmutableArray.st	Tue Mar 22 10:05:11 2005 +0100
+++ b/ImmutableArray.st	Wed Mar 30 01:08:25 2005 +0200
@@ -147,16 +147,16 @@
     creator := self creator.
     msg := 'store into/change of literal'.
     creator notNil ifTrue:[
-	msg := msg , ' (' , creator whoString , ')'
+        msg := msg , ' (' , creator whoString , ')'
     ].
     "
      this error is reported on an attempt to store into a literal
      array. The literal was created in creator.
      If you press continue in the debugger, the store will be performed.
-     If you dont want this, press abort and check your code.
+     If you don't want this, press abort and check your code.
      Storing into literals is VERY VERY bad coding style.
     "
-    self error:msg
+    self error:msg mayProceed:true
 ! !
 
 !ImmutableArray methodsFor:'private'!
@@ -199,5 +199,5 @@
 !ImmutableArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ImmutableArray.st,v 1.20 2002-05-15 08:26:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ImmutableArray.st,v 1.21 2005-03-29 23:08:18 stefan Exp $'
 ! !
--- a/ImmutableString.st	Tue Mar 22 10:05:11 2005 +0100
+++ b/ImmutableString.st	Wed Mar 30 01:08:25 2005 +0200
@@ -11,7 +11,9 @@
 "
 
 
-String subclass:#ImmutableString
+"{ Package: 'stx:libcomp' }"
+
+String variableByteSubclass:#ImmutableString
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -150,10 +152,10 @@
      this error is reported on an attempt to store into a literal
      string. The literal was created in creator.
      If you press continue in the debugger, the store will be performed.
-     If you dont want this, press abort and check your code.
+     If you don't want this, press abort and check your code.
      Storing into literals is VERY VERY bad coding style.
     "
-    self error:msg
+    self error:msg mayProceed:true
 
     "Created: / 3.8.1998 / 14:47:45 / cg"
 ! !
@@ -205,5 +207,5 @@
 !ImmutableString class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ImmutableString.st,v 1.1 1998-08-03 17:08:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ImmutableString.st,v 1.2 2005-03-29 23:08:25 stefan Exp $'
 ! !