272 BreakBlock := [:con | BreakpointSignal raiseRequestWith:nil errorString:nil in:con]. |
272 BreakBlock := [:con | BreakpointSignal raiseRequestWith:nil errorString:nil in:con]. |
273 TraceSenderBlock := [:con | MessageTracer printEntrySender:con on:(Smalltalk at:#Stderr) ]. |
273 TraceSenderBlock := [:con | MessageTracer printEntrySender:con on:(Smalltalk at:#Stderr) ]. |
274 TraceSenderBlock2 := [:con | MessageTracer printEntrySender:con on:(Smalltalk at:#Transcript) ]. |
274 TraceSenderBlock2 := [:con | MessageTracer printEntrySender:con on:(Smalltalk at:#Transcript) ]. |
275 TraceFullBlock := [:con | MessageTracer traceEntryFull:con on:(Smalltalk at:#Stderr) ]. |
275 TraceFullBlock := [:con | MessageTracer traceEntryFull:con on:(Smalltalk at:#Stderr) ]. |
276 TraceFullBlock2 := [:con | MessageTracer traceEntryFull:con on:(Smalltalk at:#Transcript) ]. |
276 TraceFullBlock2 := [:con | MessageTracer traceEntryFull:con on:(Smalltalk at:#Transcript) ]. |
277 LeaveBreakBlock := [:con :retVal | ]. |
277 LeaveBreakBlock := [:con :retVal | retVal ]. |
278 LeaveTraceBlock := [:con :retVal | ]. |
278 LeaveTraceBlock := [:con :retVal | retVal ]. |
279 |
279 |
280 ObjectMemory addDependent:self. |
280 ObjectMemory addDependent:self. |
281 |
281 |
282 " |
282 " |
283 BreakpointSignal := nil. |
283 BreakpointSignal := nil. |
284 MessageTracer initialize |
284 MessageTracer initialize |
285 " |
285 " |
286 |
286 |
287 "Modified: / 30.7.1998 / 20:41:29 / cg" |
287 "Modified: / 15-09-2011 / 19:02:13 / cg" |
288 ! |
288 ! |
289 |
289 |
290 update:something with:parameter from:changedObject |
290 update:something with:parameter from:changedObject |
291 "sent when restarted after a snapIn" |
291 "sent when restarted after a snapIn" |
292 |
292 |