--- a/GenericException.st Thu May 17 16:48:43 2001 +0200
+++ b/GenericException.st Thu May 17 17:00:58 2001 +0200
@@ -1591,6 +1591,8 @@
"Continue after the raise - the raise returns nil
obsolete (use #proceed), retained for backwards compatibility"
+ <resource:#obsolete>
+
self obsoleteMethodWarning:'use #proceed'.
^ self proceedWith:nil
@@ -1601,6 +1603,8 @@
"Continue after the raise - the raise returns value
obsolete (use #proceedWith:), retained for backwards compatibility"
+ <resource:#obsolete>
+
self obsoleteMethodWarning:'use #proceedWith:'.
^ self proceedWith:value
@@ -1934,6 +1938,6 @@
!GenericException class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.42 2001-03-23 14:00:53 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.43 2001-05-17 15:00:58 stefan Exp $'
! !
GenericException initialize!