equal
deleted
inserted
replaced
539 |
539 |
540 ^ self ifCurtailed:aBlock |
540 ^ self ifCurtailed:aBlock |
541 |
541 |
542 "Created: 15.11.1996 / 11:38:37 / cg" |
542 "Created: 15.11.1996 / 11:38:37 / cg" |
543 ! ! |
543 ! ! |
544 |
|
545 |
544 |
546 !Block methodsFor:'accessing'! |
545 !Block methodsFor:'accessing'! |
547 |
546 |
548 home |
547 home |
549 "return the receivers home context (the context where it was |
548 "return the receivers home context (the context where it was |
2028 theContext fullPrint. |
2027 theContext fullPrint. |
2029 ^ nil. |
2028 ^ nil. |
2030 ]. |
2029 ]. |
2031 (exceptionHandlerInContext == exceptionHandler |
2030 (exceptionHandlerInContext == exceptionHandler |
2032 or:[exceptionHandlerInContext accepts:exceptionHandler]) ifTrue:[ |
2031 or:[exceptionHandlerInContext accepts:exceptionHandler]) ifTrue:[ |
2033 ^ theContext argAt:2. |
2032 ^ (theContext argAt:2) ? [nil]. |
2034 ]. |
2033 ]. |
2035 ^ nil |
2034 ^ nil |
2036 ]. |
2035 ]. |
2037 |
2036 |
2038 selector == #on:do:on:do: ifTrue:[ |
2037 selector == #on:do:on:do: ifTrue:[ |
2051 theContext fullPrint. |
2050 theContext fullPrint. |
2052 ^ nil. |
2051 ^ nil. |
2053 ]. |
2052 ]. |
2054 (exceptionHandlerInContext == exceptionHandler |
2053 (exceptionHandlerInContext == exceptionHandler |
2055 or:[exceptionHandlerInContext accepts:exceptionHandler]) ifTrue:[ |
2054 or:[exceptionHandlerInContext accepts:exceptionHandler]) ifTrue:[ |
2056 ^ theContext argAt:2. |
2055 ^ (theContext argAt:2) ? [nil]. |
2057 ]. |
2056 ]. |
2058 |
2057 |
2059 exceptionHandlerInContext := theContext argAt:3. |
2058 exceptionHandlerInContext := theContext argAt:3. |
2060 exceptionHandlerInContext isExceptionHandler ifFalse:[ |
2059 exceptionHandlerInContext isExceptionHandler ifFalse:[ |
2061 exceptionHandlerInContext isNil ifTrue:[ |
2060 exceptionHandlerInContext isNil ifTrue:[ |
2071 theContext fullPrint. |
2070 theContext fullPrint. |
2072 ^ nil. |
2071 ^ nil. |
2073 ]. |
2072 ]. |
2074 (exceptionHandlerInContext == exceptionHandler |
2073 (exceptionHandlerInContext == exceptionHandler |
2075 or:[exceptionHandlerInContext accepts:exceptionHandler]) ifTrue:[ |
2074 or:[exceptionHandlerInContext accepts:exceptionHandler]) ifTrue:[ |
2076 ^ theContext argAt:4. |
2075 ^ (theContext argAt:4) ? [nil]. |
2077 ]. |
2076 ]. |
2078 ^ nil |
2077 ^ nil |
2079 ]. |
2078 ]. |
2080 |
2079 |
2081 selector == #valueWithExceptionHandler: ifTrue:[ |
2080 selector == #valueWithExceptionHandler: ifTrue:[ |
2818 ! ! |
2817 ! ! |
2819 |
2818 |
2820 !Block class methodsFor:'documentation'! |
2819 !Block class methodsFor:'documentation'! |
2821 |
2820 |
2822 version |
2821 version |
2823 ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.163 2009-02-28 02:28:29 cg Exp $' |
2822 ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.164 2009-03-17 16:22:03 stefan Exp $' |
2824 ! ! |
2823 ! ! |
2825 |
2824 |
2826 Block initialize! |
2825 Block initialize! |