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.10 1995-02-02 12:20:35 claus Exp $ |
24 $Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.11 1995-02-08 03:10:57 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.10 1995-02-02 12:20:35 claus Exp $ |
45 $Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.11 1995-02-08 03:10:57 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
116 ! ! |
116 ! ! |
117 |
117 |
118 !BlockContext methodsFor:'printing & storing'! |
118 !BlockContext methodsFor:'printing & storing'! |
119 |
119 |
120 receiverPrintString |
120 receiverPrintString |
|
121 |cls who| |
|
122 |
121 home isNil ifTrue:[ |
123 home isNil ifTrue:[ |
122 ^ '[] optimized' |
124 ^ '[] optimized' |
123 ]. |
125 ]. |
124 home isContext ifFalse:[ |
126 home isContext ifFalse:[ |
125 "a copying block" |
127 "a copying block" |
126 |
128 |
127 "receiverClassName := home selfValue class name." |
129 "receiverClassName := home selfValue class name." |
128 ^ '[] optimized' |
130 ^ '[] optimized' |
129 ]. |
131 ]. |
130 |
132 "/ old: |
131 ^ '[] in ' , receiver class name , '-' , self methodHome selector printString |
133 "/ cls := receiver class. |
|
134 "/ new: |
|
135 who := self methodHome method who. |
|
136 who notNil ifTrue:[ |
|
137 cls := who at:1 |
|
138 ] ifFalse:[ |
|
139 cls := receiver class. |
|
140 ]. |
|
141 ^ '[] in ' , cls name , '-' , self methodHome selector printString |
132 ! |
142 ! |
133 |
143 |
134 printReceiver |
144 printReceiver |
135 "print the contexts receiver on the standard output" |
145 "print the contexts receiver on the standard output" |
136 |
146 |