# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1119964167 -7200
# Node ID da8d205a93aa8362f71f577ef6b49e9a848f3f88
# Parent  519261134330a5d458cb64f6772dcc8f765f8871
Mark obsolete method as obsolete

diff -r 519261134330 -r da8d205a93aa Integer.st
--- a/Integer.st	Tue Jun 28 11:04:07 2005 +0200
+++ b/Integer.st	Tue Jun 28 15:09:27 2005 +0200
@@ -702,6 +702,15 @@
         (Integer readFromRomanString:romanString onError:nil) ~= n ifTrue:[self halt].
      ]
     "
+!
+
+readFromString:aString radix:base onError:exceptionBlock
+    |str val|
+
+    str := ReadStream on:aString.
+    val := self readFrom:str radix:base onError:[^ exceptionBlock value].
+    str atEnd ifFalse:[ ^ exceptionBlock value].
+    ^ val
 ! !
 
 !Integer class methodsFor:'Signal constants'!
@@ -2869,6 +2878,8 @@
      The receiver is printed in radix base (instead of the default, 10).
      This method is obsoleted by #printOn:base:, which is ST-80 & ANSI compatible."
 
+    <resource: #obsolete>
+
     self printOn:aStream base:base
 
     "Modified: / 20.1.1998 / 14:10:45 / stefan"
@@ -3478,7 +3489,7 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.173 2005-06-27 10:20:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.174 2005-06-28 13:09:27 stefan Exp $'
 ! !
 
 Integer initialize!