--- a/Block.st Fri Nov 15 11:35:42 1996 +0100
+++ b/Block.st Fri Nov 15 11:39:34 1996 +0100
@@ -367,7 +367,7 @@
%}
! !
-!Block methodsFor:'STV compatibility'!
+!Block methodsFor:'Compatibility - ST/V'!
on:aSignal do:exceptionBlock
"added for ST/V compatibility; evaluate the receiver,
@@ -388,6 +388,32 @@
"
! !
+!Block methodsFor:'Compatibility - V''Age'!
+
+argumentCount
+ "VisualAge compatibility: alias for #numArgs.
+ return the number of arguments I expect for evaluation"
+
+ ^ nargs
+
+ "Created: 15.11.1996 / 11:22:02 / cg"
+!
+
+valueOnReturnDo:aBlock
+ "VisualAge compatibility: alias for #valueOnUnwindDo:
+ evaluate the receiver - when some method sent within unwinds
+ (i.e. does a long return), evaluate the argument, aBlock.
+ This is used to make certain that cleanup actions
+ (for example closing files etc.) are executed regardless of error actions.
+
+ Q: is this the exact semantics of V'Ages method ?
+ the documentation is unclean; it could be a valueNowOrOnUnwindDo: ..."
+
+ ^ self valueOnUnwindDo:aBlock
+
+ "Created: 15.11.1996 / 11:38:37 / cg"
+! !
+
!Block methodsFor:'accessing'!
home
@@ -1380,6 +1406,6 @@
!Block class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.64 1996-11-04 22:43:17 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.65 1996-11-15 10:39:34 cg Exp $'
! !
Block initialize!