equal
deleted
inserted
replaced
230 ! ! |
230 ! ! |
231 |
231 |
232 !CompiledCode methodsFor:'Compatibility-ST80'! |
232 !CompiledCode methodsFor:'Compatibility-ST80'! |
233 |
233 |
234 getSource |
234 getSource |
235 "return the code objects source code, nil if none is available" |
235 "return the code object's source code, nil if none is available" |
236 |
236 |
237 ^ self source. |
237 ^ self source. |
238 |
238 |
239 "Created: 19.6.1997 / 16:32:15 / cg" |
239 "Created: 19.6.1997 / 16:32:15 / cg" |
240 ! |
240 ! |
241 |
241 |
242 getSourceForUserIfNone:aBlock |
242 getSourceForUserIfNone:aBlock |
243 "return the code objects source code. |
243 "return the code object's source code. |
244 If none is available, return the result from evaluating aBlock." |
244 If none is available, return the result from evaluating aBlock." |
245 |
245 |
246 |src| |
246 |src| |
247 |
247 |
248 Screen current shiftDown ifTrue:[^ aBlock value]. |
248 Screen current shiftDown ifTrue:[^ aBlock value]. |
264 |
264 |
265 "Created: 19.6.1997 / 16:32:15 / cg" |
265 "Created: 19.6.1997 / 16:32:15 / cg" |
266 ! |
266 ! |
267 |
267 |
268 sourceString |
268 sourceString |
269 "return the code objects source code, nil if none is available" |
269 "return the code object's source code, nil if none is available" |
270 |
270 |
271 ^ self source. |
271 ^ self source. |
272 |
272 |
273 "Created: 19.6.1997 / 16:32:15 / cg" |
273 "Created: 19.6.1997 / 16:32:15 / cg" |
274 ! |
274 ! |
1059 traditional function call. |
1059 traditional function call. |
1060 This method is provided for debugging- and breakpoint-support |
1060 This method is provided for debugging- and breakpoint-support |
1061 (replacing a method by a stub and recalling the original), or to implement |
1061 (replacing a method by a stub and recalling the original), or to implement |
1062 experimental MI implementations - it is not for general use. |
1062 experimental MI implementations - it is not for general use. |
1063 |
1063 |
1064 The receiver must be a method compiled in anObjects class or one of its |
1064 The receiver must be a method compiled in anObject's class or one of its |
1065 superclasses and also, the number of arguments given must match the method's |
1065 superclasses and also, the number of arguments given must match the method's |
1066 expectations - |
1066 expectations - |
1067 - otherwise strange things (and also strange crashes) can occur. |
1067 - otherwise strange things (and also strange crashes) can occur. |
1068 The system is NOT always detecting a wrong method/receiver combination. |
1068 The system is NOT always detecting a wrong method/receiver combination. |
1069 YOU HAVE BEEN WARNED." |
1069 YOU HAVE BEEN WARNED." |
1087 traditional function call. |
1087 traditional function call. |
1088 This method is provided for debugging- and breakpoint-support |
1088 This method is provided for debugging- and breakpoint-support |
1089 (replacing a method by a stub and recalling the original), or to implement |
1089 (replacing a method by a stub and recalling the original), or to implement |
1090 experimental MI implementations - it is not for general use. |
1090 experimental MI implementations - it is not for general use. |
1091 |
1091 |
1092 The receiver must be a method compiled in anObjects class or one of its |
1092 The receiver must be a method compiled in anObject's class or one of its |
1093 superclasses and also, the number of arguments given must match the method's |
1093 superclasses and also, the number of arguments given must match the method's |
1094 expectations - |
1094 expectations - |
1095 - otherwise strange things (and also strange crashes) can occur. |
1095 - otherwise strange things (and also strange crashes) can occur. |
1096 The system is NOT always detecting a wrong method/receiver combination. |
1096 The system is NOT always detecting a wrong method/receiver combination. |
1097 YOU HAVE BEEN WARNED." |
1097 YOU HAVE BEEN WARNED." |
1115 traditional function call. |
1115 traditional function call. |
1116 This method is provided for debugging- and breakpoint-support |
1116 This method is provided for debugging- and breakpoint-support |
1117 (replacing a method by a stub and recalling the original), or to implement |
1117 (replacing a method by a stub and recalling the original), or to implement |
1118 experimental MI implementations - it is not for general use. |
1118 experimental MI implementations - it is not for general use. |
1119 |
1119 |
1120 The receiver must be a method compiled in anObjects class or one of its |
1120 The receiver must be a method compiled in anObject's class or one of its |
1121 superclasses and also, the number of arguments given must match the method's |
1121 superclasses and also, the number of arguments given must match the method's |
1122 expectations - |
1122 expectations - |
1123 - otherwise strange things (and also strange crashes) can occur. |
1123 - otherwise strange things (and also strange crashes) can occur. |
1124 The system is NOT always detecting a wrong method/receiver combination. |
1124 The system is NOT always detecting a wrong method/receiver combination. |
1125 YOU HAVE BEEN WARNED." |
1125 YOU HAVE BEEN WARNED." |