6716 aProcess notNil |
6716 aProcess notNil |
6717 and:[aProcess id notNil] |
6717 and:[aProcess id notNil] |
6718 ]. |
6718 ]. |
6719 processes := processes sort:[:a :b | a id < b id]. |
6719 processes := processes sort:[:a :b | a id < b id]. |
6720 processNames := processes collect:[:aProcess | |
6720 processNames := processes collect:[:aProcess | |
6721 aProcess id printString , ' -> ' , aProcess nameOrId |
6721 aProcess id printString , ' [' , aProcess nameOrId , ']' |
6722 ]. |
6722 ]. |
6723 |
6723 |
6724 "/ let user specify which one ... |
6724 "/ let user specify which one ... |
6725 |
6725 |
6726 box := ListSelectionBox new. |
6726 box := ListSelectionBox new. |
6727 box noEnterField. |
6727 box noEnterField. |
6728 box list:processNames. |
6728 box list:processNames. |
6729 box label:'process selection'. |
6729 box label:(resources string:'process selection'). |
6730 box title:(resources string:('break if method is executed by process:\\(current = ' , Processor activeProcess id printString , ')') withCRs). |
6730 box title:(resources |
|
6731 string:'stop if method is executed by process:\\(current process is %1)' |
|
6732 with:(Processor activeProcess id) |
|
6733 with:(Processor activeProcess nameOrId)) withCRs. |
6731 box action:[:selection | |
6734 box action:[:selection | |
6732 self commonTraceHelperWith:#trapMethod:inProcess: |
6735 self commonTraceHelperWith:#trapMethod:inProcess: |
6733 with:(processes at:box selectionIndex) |
6736 with:(processes at:box selectionIndex) |
6734 ]. |
6737 ]. |
6735 box showAtPointer. |
6738 box showAtPointer. |
6736 box destroy |
6739 box destroy |
6737 |
6740 |
6738 "Created: 14.10.1996 / 15:40:53 / cg" |
6741 "Created: 14.10.1996 / 15:40:53 / cg" |
6739 "Modified: 15.10.1996 / 12:51:28 / cg" |
6742 "Modified: 3.7.1997 / 13:42:51 / cg" |
6740 ! |
6743 ! |
6741 |
6744 |
6742 methodChangeCategory |
6745 methodChangeCategory |
6743 "move the current method into another category - |
6746 "move the current method into another category - |
6744 nothing done here, but a query for the new category. |
6747 nothing done here, but a query for the new category. |