equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 Context subclass:#BlockContext |
13 Context variableSubclass:#BlockContext |
14 instanceVariableNames:'' |
14 instanceVariableNames:'' |
15 classVariableNames:'' |
15 classVariableNames:'' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Kernel-Methods' |
17 category:'Kernel-Methods' |
18 ! |
18 ! |
173 method := possibleBlocks first method. |
173 method := possibleBlocks first method. |
174 " |
174 " |
175 change the line in the upper-listview |
175 change the line in the upper-listview |
176 according the information we have now |
176 according the information we have now |
177 " |
177 " |
178 mWho := method who. |
178 (method isNil |
179 mWho isNil ifTrue:[ |
179 or:[(mWho := method who) isNil]) ifTrue:[ |
180 ^ '[] (optimized) in ???'. |
180 ^ '[] (optimized) in ???'. |
181 ]. |
181 ]. |
182 ^ '[] (optimized) in ' , |
182 ^ '[] (optimized) in ' , |
183 mWho methodClass name , '-' , mWho methodSelector. |
183 mWho methodClass name , '-' , mWho methodSelector. |
184 ]. |
184 ]. |
185 ] |
185 ] |
232 ! ! |
232 ! ! |
233 |
233 |
234 !BlockContext class methodsFor:'documentation'! |
234 !BlockContext class methodsFor:'documentation'! |
235 |
235 |
236 version |
236 version |
237 ^ '$Header: /cvs/stx/stx/libbasic/Attic/BContext.st,v 1.27 1998-03-06 15:25:24 stefan Exp $' |
237 ^ '$Header: /cvs/stx/stx/libbasic/Attic/BContext.st,v 1.28 1999-08-23 17:59:22 cg Exp $' |
238 ! ! |
238 ! ! |