equal
deleted
inserted
replaced
1917 "Created: / 26.7.1999 / 11:23:45 / stefan" |
1917 "Created: / 26.7.1999 / 11:23:45 / stefan" |
1918 "Modified: / 26.7.1999 / 11:24:06 / stefan" |
1918 "Modified: / 26.7.1999 / 11:24:06 / stefan" |
1919 ! |
1919 ! |
1920 |
1920 |
1921 valueWithWatchDog:exceptionBlock afterMilliseconds:aTimeLimit |
1921 valueWithWatchDog:exceptionBlock afterMilliseconds:aTimeLimit |
1922 "a watchdog on a blocks execution" |
1922 "a watchdog on a block's execution. If the block does not finish its |
|
1923 evaluation after aTimeLimit milliseconds, it is interrupted (aborted) and |
|
1924 exceptionBlock's value is returned. The receiver's code must be prepared |
|
1925 for premature returning (by adding ensure blocks, as required)" |
1923 |
1926 |
1924 |showStopper me signal retVal| |
1927 |showStopper me signal retVal| |
1925 |
1928 |
1926 me := Processor activeProcess. |
1929 me := Processor activeProcess. |
1927 |
1930 |
2821 ! ! |
2824 ! ! |
2822 |
2825 |
2823 !Block class methodsFor:'documentation'! |
2826 !Block class methodsFor:'documentation'! |
2824 |
2827 |
2825 version |
2828 version |
2826 ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.166 2009-05-20 10:46:49 cg Exp $' |
2829 ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.167 2009-07-22 10:01:59 cg Exp $' |
2827 ! ! |
2830 ! ! |
2828 |
2831 |
2829 Block initialize! |
2832 Block initialize! |