equal
deleted
inserted
replaced
745 "remove all suspend actions." |
745 "remove all suspend actions." |
746 |
746 |
747 suspendActions := nil. |
747 suspendActions := nil. |
748 |
748 |
749 "Created: 12.1.1997 / 00:36:16 / cg" |
749 "Created: 12.1.1997 / 00:36:16 / cg" |
|
750 ! |
|
751 |
|
752 removeExitAction:anExitAction ifAbsent:exceptionBlock |
|
753 "remove the identical exitAction; if found, remove and return it; |
|
754 if not, return the value from evaluating exceptionBlock" |
|
755 |
|
756 exitActions notNil ifTrue:[ |
|
757 ^ exitActions removeIdentical:anExitAction ifAbsent:exceptionBlock. |
|
758 ]. |
|
759 ^ exceptionBlock value. |
750 ! ! |
760 ! ! |
751 |
761 |
752 !Process methodsFor:'accessing-stack'! |
762 !Process methodsFor:'accessing-stack'! |
753 |
763 |
754 maximumStackSize |
764 maximumStackSize |
2041 ! ! |
2051 ! ! |
2042 |
2052 |
2043 !Process class methodsFor:'documentation'! |
2053 !Process class methodsFor:'documentation'! |
2044 |
2054 |
2045 version |
2055 version |
2046 ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.170 2010-03-06 13:45:45 stefan Exp $' |
2056 ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.171 2010-08-13 07:40:24 sr Exp $' |
2047 ! |
2057 ! |
2048 |
2058 |
2049 version_CVS |
2059 version_CVS |
2050 ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.170 2010-03-06 13:45:45 stefan Exp $' |
2060 ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.171 2010-08-13 07:40:24 sr Exp $' |
2051 ! ! |
2061 ! ! |
2052 |
2062 |
2053 Process initialize! |
2063 Process initialize! |