equal
deleted
inserted
replaced
5415 |
5415 |
5416 "/ skip over support code... |
5416 "/ skip over support code... |
5417 ( #( #'doesNotUnderstand:' ) includes:nextCon selector) ifTrue:[ |
5417 ( #( #'doesNotUnderstand:' ) includes:nextCon selector) ifTrue:[ |
5418 nextCon := nextCon sender sender. |
5418 nextCon := nextCon sender sender. |
5419 ]. |
5419 ]. |
|
5420 ( #( #'subclassResponsibility' ) includes:nextCon selector) ifTrue:[ |
|
5421 nextCon := nextCon sender. |
|
5422 ]. |
5420 self selectContext:nextCon. |
5423 self selectContext:nextCon. |
5421 ^ self. |
5424 ^ self. |
5422 ] |
5425 ] |
5423 ]. |
5426 ]. |
5424 "/ not found |
5427 "/ not found |
5425 self beep. |
5428 self beep. |
5426 "/ gotoRaisingMethodButton disable. |
5429 "/ gotoRaisingMethodButton disable. |
5427 |
5430 |
5428 "Created: / 30-11-2017 / 12:18:36 / cg" |
5431 "Created: / 30-11-2017 / 12:18:36 / cg" |
|
5432 "Modified: / 30-11-2017 / 13:20:29 / cg" |
5429 ! |
5433 ! |
5430 |
5434 |
5431 doInspectProcess |
5435 doInspectProcess |
5432 (inspectedProcess ? Processor activeProcess) inspect. |
5436 (inspectedProcess ? Processor activeProcess) inspect. |
5433 ! |
5437 ! |