equal
deleted
inserted
replaced
517 nargs = 1 ifTrue:[^ self value:firstArg]. |
517 nargs = 1 ifTrue:[^ self value:firstArg]. |
518 ^ self value |
518 ^ self value |
519 ! |
519 ! |
520 |
520 |
521 ifError:handlerBlock |
521 ifError:handlerBlock |
522 "same as onError: - for squeak compatibility. |
522 "squeak compatibility: |
523 Notice, that the handlerBlock may take 0,1 or 2 args. |
523 Evaluate the recevier block and return its value, if no error occurs. |
|
524 If an error is raised, return the value from handlerBlock. |
|
525 The handlerBlock may take 0,1 or 2 args. |
524 (1 arg -> the exception; |
526 (1 arg -> the exception; |
525 2 args -> the errorString and the erronous receiver)" |
527 2 args -> the errorString and the erronous receiver)" |
526 |
528 |
527 |numArgs| |
529 |numArgs| |
528 |
530 |
3115 ! ! |
3117 ! ! |
3116 |
3118 |
3117 !Block class methodsFor:'documentation'! |
3119 !Block class methodsFor:'documentation'! |
3118 |
3120 |
3119 version |
3121 version |
3120 ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.194 2013-04-15 14:44:44 cg Exp $' |
3122 ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.195 2013-04-19 09:36:13 cg Exp $' |
3121 ! |
3123 ! |
3122 |
3124 |
3123 version_CVS |
3125 version_CVS |
3124 ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.194 2013-04-15 14:44:44 cg Exp $' |
3126 ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.195 2013-04-19 09:36:13 cg Exp $' |
3125 ! ! |
3127 ! ! |
3126 |
3128 |
3127 |
3129 |
3128 Block initialize! |
3130 Block initialize! |