equal
deleted
inserted
replaced
970 printString := anObject printString. |
970 printString := anObject printString. |
971 |
971 |
972 (self == Transcript) ifTrue:[ |
972 (self == Transcript) ifTrue:[ |
973 DebugSendersOfMessagePattern notNil ifTrue:[ |
973 DebugSendersOfMessagePattern notNil ifTrue:[ |
974 (DebugSendersOfMessagePattern match:printString string) ifTrue:[ |
974 (DebugSendersOfMessagePattern match:printString string) ifTrue:[ |
975 "disable all with: DebugSendersOfMessagePattern := nil" |
975 "to disable this breakpoint in the future, evaluate: |
|
976 DebugSendersOfMessagePattern := nil |
|
977 " |
976 self halt:('Transcript: text matches: "', printString,'"'). |
978 self halt:('Transcript: text matches: "', printString,'"'). |
977 ]. |
979 ]. |
978 ]. |
980 ]. |
979 TraceSendersOfMessagePattern notNil ifTrue:[ |
981 TraceSendersOfMessagePattern notNil ifTrue:[ |
980 (TraceSendersOfMessagePattern match:printString string) ifTrue:[ |
982 (TraceSendersOfMessagePattern match:printString string) ifTrue:[ |