equal
deleted
inserted
replaced
19 |
19 |
20 BlockContext comment:' |
20 BlockContext comment:' |
21 COPYRIGHT (c) 1993 by Claus Gittinger |
21 COPYRIGHT (c) 1993 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.14 1995-06-06 03:52:58 claus Exp $ |
24 $Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.15 1995-07-02 01:05:37 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !BlockContext class methodsFor:'documentation'! |
27 !BlockContext class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.14 1995-06-06 03:52:58 claus Exp $ |
45 $Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.15 1995-07-02 01:05:37 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
62 |
62 |
63 isBlockContext |
63 isBlockContext |
64 "return true, iff the receiver is a BlockContext, false otherwise" |
64 "return true, iff the receiver is a BlockContext, false otherwise" |
65 |
65 |
66 ^ true |
66 ^ true |
|
67 ! |
|
68 |
|
69 canReturn |
|
70 "return true, if the receiver allows returning through it. |
|
71 For normal method contexts, this normally returns true; |
|
72 for blocks, it (currently) always returns false." |
|
73 |
|
74 ^ false |
67 ! |
75 ! |
68 |
76 |
69 methodHome |
77 methodHome |
70 "return the method-home for block contexts" |
78 "return the method-home for block contexts" |
71 |
79 |