--- a/Object.st Thu Dec 05 09:52:02 2013 +0000
+++ b/Object.st Tue Dec 17 20:21:42 2013 +0100
@@ -666,6 +666,7 @@
"
! !
+
!Object methodsFor:'accessing'!
_at:index
@@ -4420,9 +4421,8 @@
<resource: #skipInDebuggersWalkBack>
- "/ ^ self error:'method/functionality is not yet implemented'
^ MethodNotAppropriateError
- raiseRequestErrorString:'method/functionality is not yet implemented'
+ raiseRequestErrorString:'method/functionality is not yet implemented'.
"Modified: / 02-11-2012 / 10:24:12 / cg"
!
@@ -4658,9 +4658,8 @@
<resource: #skipInDebuggersWalkBack>
- "/ ^ self error:'This message never may be sent to me!!'.
^ MethodNotAppropriateError
- raiseRequestErrorString:'This message never may be sent to me!!'
+ raiseRequestErrorString:'This message never may be sent to me'.
"Modified: / 20-04-2005 / 18:59:28 / janfrog"
"Modified: / 02-11-2012 / 10:10:42 / cg"
@@ -4674,9 +4673,8 @@
<resource: #skipInDebuggersWalkBack>
- "/ self error:'method/functionality not appropriate for this class'
^ MethodNotAppropriateError
- raiseRequestErrorString:'method/functionality not appropriate for this class'
+ raiseRequestErrorString:'method/functionality is not appropriate for class'.
"Modified: / 02-11-2012 / 10:02:25 / cg"
!
@@ -7360,7 +7358,7 @@
|myClass hasSemi sz "{ Class: SmallInteger }" |
thisContext isRecursive ifTrue:[
- Object recursiveStoreStringSignal raiseRequestWith:self.
+ RecursiveStoreError raiseRequestWith:self.
'Object [error]: storeString of self referencing object (' errorPrint.
self class name errorPrint.
')' errorPrintCR.
@@ -9927,11 +9925,11 @@
!Object class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.741 2013-11-12 18:09:57 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.743 2013-12-06 14:40:10 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.741 2013-11-12 18:09:57 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.743 2013-12-06 14:40:10 stefan Exp $'
!
version_HG