equal
deleted
inserted
replaced
21 |
21 |
22 mayProceed |
22 mayProceed |
23 "Return true, because messageNotUnderstood is proceedable (with nil)." |
23 "Return true, because messageNotUnderstood is proceedable (with nil)." |
24 |
24 |
25 ^ true |
25 ^ true |
|
26 ! ! |
|
27 |
|
28 !MessageNotUnderstood class methodsFor:'save evaluation'! |
|
29 |
|
30 ignoreNotUnderstoodOf:aSelector in:aBlock |
|
31 "evaluate aBlock; if a messageNotUnderstood occurs, |
|
32 for which the message was aSelector, ignore the error |
|
33 and return. |
|
34 Other selector errors lead into the debugger. |
|
35 If no error occurs, return the blocks value" |
|
36 |
|
37 ^ self handle:[:ex | |
|
38 ex parameter selector == aSelector ifFalse:[ |
|
39 ex reject |
|
40 ] |
|
41 ] do:aBlock. |
26 ! ! |
42 ! ! |
27 |
43 |
28 !MessageNotUnderstood methodsFor:'accessing'! |
44 !MessageNotUnderstood methodsFor:'accessing'! |
29 |
45 |
30 message |
46 message |
55 ! ! |
71 ! ! |
56 |
72 |
57 !MessageNotUnderstood class methodsFor:'documentation'! |
73 !MessageNotUnderstood class methodsFor:'documentation'! |
58 |
74 |
59 version |
75 version |
60 ^ '$Header: /cvs/stx/stx/libbasic/MessageNotUnderstood.st,v 1.3 2001-11-17 10:04:22 cg Exp $' |
76 ^ '$Header: /cvs/stx/stx/libbasic/MessageNotUnderstood.st,v 1.4 2002-07-25 15:49:13 ca Exp $' |
61 ! ! |
77 ! ! |