onversion errors
authorClaus Gittinger <cg@exept.de>
Wed, 06 Aug 2008 12:16:48 +0200
changeset 11126 146ee0b7806e
parent 11125 89eb8912ef38
child 11127 c90d2486fe26
onversion errors
Timestamp.st
--- a/Timestamp.st	Wed Aug 06 11:53:27 2008 +0200
+++ b/Timestamp.st	Wed Aug 06 12:16:48 2008 +0200
@@ -153,7 +153,10 @@
         ^ self new osTime:(anArray at:3).
     ].
 
-    ^ self readGeneralizedFrom:(anArray at:2) onError:[self error:'literal array decoding']
+    ^ self 
+        readGeneralizedFrom:(anArray at:2) 
+        onError:[ self conversionErrorSignal 
+                    raiseErrorString:'literal array decoding' ]
 
     "
      Timestamp
@@ -246,7 +249,10 @@
      or:
         yyyy-mm-dd HH:MM:SS.iii +uuuu.
     "
-    ^ self readGeneralizedFrom:aStringOrStream onError:[self error:'Timestamp format error'].
+    ^ self 
+        readGeneralizedFrom:aStringOrStream 
+        onError:[self conversionErrorSignal 
+                    raiseErrorString:'Timestamp format error' ].
 
     "Created: / 22-08-2006 / 16:05:55 / cg"
 !
@@ -1398,7 +1404,7 @@
 !Timestamp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.113 2008-05-07 20:35:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.114 2008-08-06 10:16:48 cg Exp $'
 ! !
 
 Timestamp initialize!