Use <resource:#obsolete>
authorStefan Vogel <sv@exept.de>
Thu, 17 May 2001 17:00:58 +0200
changeset 5867 b9e7b2e9f588
parent 5866 32478aced225
child 5868 d497030b1df7
Use <resource:#obsolete>
GenericException.st
--- 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!