hg/stx-libtool: ProcessMonitorV2.st@2ca84430d4a2 (annotated)

6300 4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	1	"
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	2	COPYRIGHT (c) 2003 by eXept Software AG
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3	All Rights Reserved
6300 4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	4
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	5	This software is furnished under a license and may be used
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	6	only in accordance with the terms of that license and with the
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	7	inclusion of the above copyright notice. This software may not
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	8	be provided or otherwise made available to, or used by, any
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	9	other person. No title to or ownership of the software is
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	10	hereby transferred.
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	11	"
4463 99d11fbee2af initial checkin penk parents: diff changeset	12	"{ Package: 'stx:libtool' }"
99d11fbee2af initial checkin penk parents: diff changeset	13
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	14	ApplicationModel subclass:#ProcessMonitorV2
4463 99d11fbee2af initial checkin penk parents: diff changeset	15	instanceVariableNames:'processList tableColumns selectedProcesses updateSema showDetail
7809 ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	16	hasSelectionHolder showProcessId showGroup showState showPrio
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	17	showUsedStack showTotalStack showCurrentSegment showSwitch
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	18	showWhere showInstrumentation showApplication showWindowTitle
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	19	currentSortOrder processTable showDead sortBlock
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	20	selectionRestartable updateListDelayTime updateContentsDelayTime
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	21	enableDecreaseListDelayTime enableDecreaseContentsDelayTime
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	22	enableIncreaseListDelayTime enableIncreaseContentsDelayTime
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	23	listUpdateDelay updateDelay updateBlock listUpdateBlock
7809 ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	24	updateProcess visibleBlock allowModifications tableMenu
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	25	hasSelectionWithApplicationProcessHolder
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	26	hasSelectionAndProcessIsApplicationProcessHolder
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	27	hasSelectionWithStoppedProcessHolder
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	28	hasSelectionAndProcessIsStoppedHolder
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	29	hasSelectionWithGUIProcessHolder
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	30	hasSelectionWithDisabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	31	hasSelectionWithEnabledInstrumentationHolder'
4463 99d11fbee2af initial checkin penk parents: diff changeset	32	classVariableNames:''
99d11fbee2af initial checkin penk parents: diff changeset	33	poolDictionaries:''
99d11fbee2af initial checkin penk parents: diff changeset	34	category:'Monitors-ST/X'
99d11fbee2af initial checkin penk parents: diff changeset	35	!
99d11fbee2af initial checkin penk parents: diff changeset	36
99d11fbee2af initial checkin penk parents: diff changeset	37	Object subclass:#ProcessItem
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	38	instanceVariableNames:'processId processGroup processName processActive processState
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	39	processPrio processUsedStack processTotalStack processWhere
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	40	processInstrumentation processApplication processWindowTitle
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	41	processInstance weakArrayWithProcesses
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	42	processInstanceIndexInWeakArray processCurrentSegment
9526 2825b947679d comment/format in: #fillItemInformationIn: Claus Gittinger <cg@exept.de> parents: 9480 diff changeset	43	processSwitch prioVal idVal groupVal processBlocked'
4463 99d11fbee2af initial checkin penk parents: diff changeset	44	classVariableNames:''
99d11fbee2af initial checkin penk parents: diff changeset	45	poolDictionaries:''
99d11fbee2af initial checkin penk parents: diff changeset	46	privateIn:ProcessMonitorV2
99d11fbee2af initial checkin penk parents: diff changeset	47	!
99d11fbee2af initial checkin penk parents: diff changeset	48
99d11fbee2af initial checkin penk parents: diff changeset	49	!ProcessMonitorV2 class methodsFor:'documentation'!
99d11fbee2af initial checkin penk parents: diff changeset	50
6300 4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	51	copyright
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	52	"
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	53	COPYRIGHT (c) 2003 by eXept Software AG
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	54	All Rights Reserved
6300 4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	55
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	56	This software is furnished under a license and may be used
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	57	only in accordance with the terms of that license and with the
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	58	inclusion of the above copyright notice. This software may not
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	59	be provided or otherwise made available to, or used by, any
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	60	other person. No title to or ownership of the software is
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	61	hereby transferred.
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	62	"
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	63	!
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	64
4463 99d11fbee2af initial checkin penk parents: diff changeset	65	documentation
99d11fbee2af initial checkin penk parents: diff changeset	66	"
99d11fbee2af initial checkin penk parents: diff changeset	67	documentation to be added.
99d11fbee2af initial checkin penk parents: diff changeset	68
99d11fbee2af initial checkin penk parents: diff changeset	69	[author:]
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	70	Christian Penk (penk@bierfix)
4463 99d11fbee2af initial checkin penk parents: diff changeset	71
99d11fbee2af initial checkin penk parents: diff changeset	72	[instance variables:]
99d11fbee2af initial checkin penk parents: diff changeset	73
99d11fbee2af initial checkin penk parents: diff changeset	74	[class variables:]
99d11fbee2af initial checkin penk parents: diff changeset	75
99d11fbee2af initial checkin penk parents: diff changeset	76	[see also:]
99d11fbee2af initial checkin penk parents: diff changeset	77
99d11fbee2af initial checkin penk parents: diff changeset	78	"
99d11fbee2af initial checkin penk parents: diff changeset	79	!
99d11fbee2af initial checkin penk parents: diff changeset	80
99d11fbee2af initial checkin penk parents: diff changeset	81	examples
99d11fbee2af initial checkin penk parents: diff changeset	82	"
99d11fbee2af initial checkin penk parents: diff changeset	83	Starting the application:
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	84	[exBegin]
4463 99d11fbee2af initial checkin penk parents: diff changeset	85	ProcessMonitorV2 open
99d11fbee2af initial checkin penk parents: diff changeset	86
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	87	[exEnd]
4463 99d11fbee2af initial checkin penk parents: diff changeset	88
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	89	Starting the application withot any possibilities to change
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	90	the processes
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	91	[exBegin]
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	92	ProcessMonitorV2 openAllowNoModifications
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	93
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	94	[exEnd]
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	95
4463 99d11fbee2af initial checkin penk parents: diff changeset	96	more examples to be added:
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	97	[exBegin]
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	98	... add code fragment for
4463 99d11fbee2af initial checkin penk parents: diff changeset	99	... executable example here ...
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	100	[exEnd]
4463 99d11fbee2af initial checkin penk parents: diff changeset	101	"
99d11fbee2af initial checkin penk parents: diff changeset	102	!
99d11fbee2af initial checkin penk parents: diff changeset	103
99d11fbee2af initial checkin penk parents: diff changeset	104	history
99d11fbee2af initial checkin penk parents: diff changeset	105	"Created: / 14.1.2003 / 11:16:10 / penk"
99d11fbee2af initial checkin penk parents: diff changeset	106	! !
99d11fbee2af initial checkin penk parents: diff changeset	107
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	108	!ProcessMonitorV2 class methodsFor:'instance creation'!
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	109
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	110	openAllowNoModifications
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	111
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	112
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	113	\|application\|
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	114
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	115	application := self new.
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	116	application open.
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	117	application allowModifications value:false.
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	118	! !
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	119
4463 99d11fbee2af initial checkin penk parents: diff changeset	120	!ProcessMonitorV2 class methodsFor:'defaults'!
99d11fbee2af initial checkin penk parents: diff changeset	121
99d11fbee2af initial checkin penk parents: diff changeset	122	defaultLabel
99d11fbee2af initial checkin penk parents: diff changeset	123	^ 'Process Monitor'
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	124	!
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	125
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	126	resourcePackName
7874 defda0e80423 comment Claus Gittinger <cg@exept.de> parents: 7863 diff changeset	127	"return the name which is used as the fileNameBase of my resource file.
defda0e80423 comment Claus Gittinger <cg@exept.de> parents: 7863 diff changeset	128	Here, use the same resources as the (old) ProcessMonitor"
defda0e80423 comment Claus Gittinger <cg@exept.de> parents: 7863 diff changeset	129
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	130	^ 'ProcessMonitor'
4463 99d11fbee2af initial checkin penk parents: diff changeset	131	! !
99d11fbee2af initial checkin penk parents: diff changeset	132
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	133	!ProcessMonitorV2 class methodsFor:'help'!
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	134
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	135	aboutThisApplicationText
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	136	^ super aboutThisApplicationText ,
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	137	'\\Written by Christian Penk, eXept Software AG.' withCRs
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	138	! !
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	139
4463 99d11fbee2af initial checkin penk parents: diff changeset	140	!ProcessMonitorV2 class methodsFor:'help specs'!
99d11fbee2af initial checkin penk parents: diff changeset	141
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	142	flyByHelpSpec
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	143	"This resource specification was automatically generated
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	144	by the UIHelpTool of ST/X."
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	145
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	146	"Do not manually edit this!! If it is corrupted,
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	147	the UIHelpTool may not be able to read the specification."
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	148
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	149	"
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	150	UIHelpTool openOnClass:ProcessMonitorV2
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	151	"
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	152
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	153	<resource: #help>
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	154
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	155	^ super flyByHelpSpec addPairsFrom:#(
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	156
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	157	#Debug
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	158	'Debug'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	159
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	160	#Details
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	161	'Details'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	162
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	163	#Inspect
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	164	'Inspect'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	165
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	166	#'Lower Prio'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	167	'Lower Prio'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	168
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	169	#'Raise Prio'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	170	'Raise Prio'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	171
7809 ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	172	#RaiseWindow
9293 dcbf31f821ed changed: #flyByHelpSpec Claus Gittinger <cg@exept.de> parents: 9035 diff changeset	173	'Raise Application''s Window'
7809 ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	174
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	175	#Restart
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	176	'Restart'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	177
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	178	#Resume
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	179	'Resume'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	180
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	181	#Abort
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	182	'Abort'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	183
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	184	#Stop
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	185	'Stop'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	186
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	187	#Suspend
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	188	'Suspend'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	189
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	190	#Terminate
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	191	'Terminate'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	192
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	193	#'Terminate Group'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	194	'Terminate Group'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	195
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	196	#'Update Process List'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	197	'Update Process List'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	198
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	199	)
7809 ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	200
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	201	"Modified: / 05-06-2007 / 18:35:47 / cg"
4463 99d11fbee2af initial checkin penk parents: diff changeset	202	! !
99d11fbee2af initial checkin penk parents: diff changeset	203
99d11fbee2af initial checkin penk parents: diff changeset	204	!ProcessMonitorV2 class methodsFor:'image specs'!
99d11fbee2af initial checkin penk parents: diff changeset	205
9802 bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	206	defaultIcon
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	207	"This resource specification was automatically generated
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	208	by the ImageEditor of ST/X."
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	209
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	210	"Do not manually edit this!! If it is corrupted,
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	211	the ImageEditor may not be able to read the specification."
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	212
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	213	"
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	214	self defaultIcon inspect
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	215	ImageEditor openOnClass:self andSelector:#defaultIcon
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	216	Icon flushCachedIcons
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	217	"
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	218
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	219	<resource: #image>
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	220
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	221	^Icon
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	222	constantNamed:'ProcessMonitorV2 class defaultIcon'
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	223	ifAbsentPut:[(Depth1Image new) width: 32; height: 32; photometric:(#whiteIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	224	@@@@@G????9@@@@BP@@@@$O?>@I@@@@BP??8@$@@@@IC?? BP@@@@$@@@@I@@@@BP@@@@$M,@@IC[@@BP@@@@$@@@@I@@@@BP@@@@$@@@@I@@@@BP@@@@$@@
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	225	@@I????>@@@@@CLX7L0)QDPJTQDCL%FH #IQADH*TPQBJX7Y b') ; yourself]
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	226	!
bc9e5d0493ff set icon resource Stefan Vogel <sv@exept.de> parents: 9661 diff changeset	227
4463 99d11fbee2af initial checkin penk parents: diff changeset	228	detailsMenuIconDown
99d11fbee2af initial checkin penk parents: diff changeset	229	"This resource specification was automatically generated
99d11fbee2af initial checkin penk parents: diff changeset	230	by the ImageEditor of ST/X."
99d11fbee2af initial checkin penk parents: diff changeset	231
99d11fbee2af initial checkin penk parents: diff changeset	232	"Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin penk parents: diff changeset	233	the ImageEditor may not be able to read the specification."
99d11fbee2af initial checkin penk parents: diff changeset	234
99d11fbee2af initial checkin penk parents: diff changeset	235	"
99d11fbee2af initial checkin penk parents: diff changeset	236	self detailsMenuIconDown inspect
99d11fbee2af initial checkin penk parents: diff changeset	237	ImageEditor openOnClass:self andSelector:#detailsMenuIconDown
99d11fbee2af initial checkin penk parents: diff changeset	238	Icon flushCachedIcons
99d11fbee2af initial checkin penk parents: diff changeset	239	"
99d11fbee2af initial checkin penk parents: diff changeset	240
99d11fbee2af initial checkin penk parents: diff changeset	241	<resource: #image>
99d11fbee2af initial checkin penk parents: diff changeset	242
99d11fbee2af initial checkin penk parents: diff changeset	243	^Icon
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	244	constantNamed:#'ProcessMonitorV2 class detailsMenuIconDown'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	245	ifAbsentPut:[(Depth1Image new) width: 7; height: 5; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 7; height: 5; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@A@(UJ(b') ; yourself); yourself]
4463 99d11fbee2af initial checkin penk parents: diff changeset	246	!
99d11fbee2af initial checkin penk parents: diff changeset	247
99d11fbee2af initial checkin penk parents: diff changeset	248	detailsMenuIconUp
99d11fbee2af initial checkin penk parents: diff changeset	249	"This resource specification was automatically generated
99d11fbee2af initial checkin penk parents: diff changeset	250	by the ImageEditor of ST/X."
99d11fbee2af initial checkin penk parents: diff changeset	251
99d11fbee2af initial checkin penk parents: diff changeset	252	"Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin penk parents: diff changeset	253	the ImageEditor may not be able to read the specification."
99d11fbee2af initial checkin penk parents: diff changeset	254
99d11fbee2af initial checkin penk parents: diff changeset	255	"
99d11fbee2af initial checkin penk parents: diff changeset	256	self detailsMenuIconUp inspect
99d11fbee2af initial checkin penk parents: diff changeset	257	ImageEditor openOnClass:self andSelector:#detailsMenuIconUp
99d11fbee2af initial checkin penk parents: diff changeset	258	Icon flushCachedIcons
99d11fbee2af initial checkin penk parents: diff changeset	259	"
99d11fbee2af initial checkin penk parents: diff changeset	260
99d11fbee2af initial checkin penk parents: diff changeset	261	<resource: #image>
99d11fbee2af initial checkin penk parents: diff changeset	262
99d11fbee2af initial checkin penk parents: diff changeset	263	^Icon
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	264	constantNamed:#'ProcessMonitorV2 class detailsMenuIconUp'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	265	ifAbsentPut:[(Depth1Image new) width: 7; height: 5; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 7; height: 5; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'*%P(D@@b') ; yourself); yourself]
4463 99d11fbee2af initial checkin penk parents: diff changeset	266	!
99d11fbee2af initial checkin penk parents: diff changeset	267
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	268	process22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	269	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	270	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	271
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	272	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	273	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	274
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	275	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	276	self process22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	277	ImageEditor openOnClass:self andSelector:#process22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	278	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	279	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	280
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	281	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	282
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	283	^Icon
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	284	constantNamed:#'ProcessMonitorV2 class process22x22Icon'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	285	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	286	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	287	@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	288	APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA @@@@@APXFA TG@@@@@@@@B@ FA XG@@@@@@TFA XHB@@@@@@@@@@@A0\FA T@@@TFA XH@@@@@@@@@@@@@@@G
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	289	A XFAPTFA XH@@@@@@@@@@@@@@@@APXFA XFA XFB@@@@@@@@@@@@@@@APXHA0XFA XFAPXH@@@@@@@@@@@@@@\H@@@EA XG@@@GB@@@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	290	@@TH@@@@@@@@@@@@@@@@@@@@@@@@@@@EB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	291	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C?<@C?<@G?>@G?>@COL@@O@@@F@@@@@@@@@@@@@@') ; yourself); yourself]
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	292	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	293
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	294	processAbort22x22Icon
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	295	"This resource specification was automatically generated
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	296	by the ImageEditor of ST/X."
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	297
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	298	"Do not manually edit this!! If it is corrupted,
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	299	the ImageEditor may not be able to read the specification."
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	300
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	301	"
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	302	self processAbort22x22Icon inspect
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	303	ImageEditor openOnClass:self andSelector:#processAbort22x22Icon
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	304	Icon flushCachedIcons
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	305	"
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	306
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	307	<resource: #image>
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	308
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	309	^Icon
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	310	constantNamed:#'ProcessMonitorV2 class processAbort22x22Icon'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	311	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	312	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@ @@@@@@@@@@@@@@@@@@@@@@@@@@APH@@@@@@@@@@@@@@@@@
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	313	@@@BAP@@APLC@P@@APH@@@@@@@@@@@@@@PLEAPLC@0LEAPLA@@@@@@@@@@@@@@@B@0LC@0LC@0LA@@@@@@@@@@@@@@@@APLC@ DB@0LC@ @@@@@@@@@@@@@@
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	314	APLC@ D@@@TC@0LB@@@@@@@@@@@EAPLC@0D@@@@@APLC@0TB@@@@@@@@@PDC@0LB@@@@@@TC@0LA@P@@@@@@@@@@@ HC@0T@@@TC@0LA@@TE@@@@@@@@@@@B
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	315	@0LCAPTC@0LA@@TFA TE@@@@@@@@APLC@0LC@0LC@PTFA@PFAP@@@@@@APLA@ LC@0LCAPTFA@PDA@XE@@@@@@HA@@@E@0LB@@TFA@PDA@PFA @@@@@@@@TE
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	316	@@TA@@@EA XDA@PFAPT@@@@@@@@EA TE@P@@APTEA PDA @@@@@@@@@@@@TFAP@@@@TEA PDA T@@@@@@@@@@@@@A XEAPTFA PDA@X@@@@@@@@@@@@@@@TF
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	317	A XFA@PDA XE@@@@@@@@@@@@@@@@APTFA XFA TE@@@@@@@a') ; colorMapFromArray:#[0 0 0 127 127 127 161 161 165 194 194 194 255 0 0 255 255 255 192 0 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O?? C??8C??8G??<G??<C?_<@?_0@^_0@O? @O? @G?@') ; yourself); yourself]
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	318	!
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	319
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	320	processDebug22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	321	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	322	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	323
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	324	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	325	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	326
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	327	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	328	self processDebug22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	329	ImageEditor openOnClass:self andSelector:#processDebug22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	330	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	331	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	332
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	333	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	334
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	335	^Icon
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	336	constantNamed:#'ProcessMonitorV2 class processDebug22x22Icon'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	337	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	338	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@0@@@@@@@@@@@@@@@@@@@@@@@@@@A L@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	339	@@@CA @@A PD@P@@A L@@@@@@@@@@@@@@PPFA PDA@PFA PA@@@@@@@@@@@@@@@CA@PD@@@DA@PA@@@@@@@@@@@@@@@@A P@@0DC@@@D@0@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	340	A PD@0@@@@X@@@@@@@@@@@@@@@@FA PDA@D@@@@@@@HB@ HB@ @@@@@@@PDDA@@@@@@@@ HBAPTEAPTB@@@@@@@@@0@B@ @B@ HEAPTEAPTEAPH@@@@@@@HB
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	341	APTE@@HEAPTEAPTEAPTE@ @@@@@B@ TEAP@BAPTEAPTEAPTEAPH@@@@@@@HEAPT@@@@@@@@@@@@@@@@@@@@@@@HBAPTE@@HBAPTEAPTEAPTE@ @@@@@@@ HE
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	342	@ @B@ HEAPTEAPTE@ H@@@@@@@@@@@@@@@HB@ HB@ HB@ @@@@@@@@@@@@@@@@@@@@@B@ HB@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	343	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 127 127 127 128 0 0 161 161 165 194 194 194 255 0 0 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?= C??XO?? _=?0_??8O??<???<C??<G??<???<_??<@??8@G?0@L? @Q#X@FA ') ; yourself); yourself]
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	344	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	345
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	346	processInspect22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	347	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	348	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	349
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	350	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	351	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	352
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	353	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	354	self processInspect22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	355	ImageEditor openOnClass:self andSelector:#processInspect22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	356	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	357	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	358
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	359	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	360
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	361	^Icon
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	362	constantNamed:#'ProcessMonitorV2 class processInspect22x22Icon'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	363	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	364	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	365	@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA @@@@XH@@@@@@@@@@@@@@@@APXF@@@BCPH@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	366	APXF@@0MCP4MCP0@@@@@@@@@@@@EAPXFA @MCPTEAP4M@@TG@@@@@@@@B@ FA @BCPTEAP4MCPH@B@@@@@@@@@@@A0\@CP4EAP4MCP4M@@@@@@@@@@@@@@@G
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	367	@@HMAP4MCP4M@ @@@@@@@@@@@@@@APX@CP4MCP4MCP@@@@@@@@@@@@@@APXH@@0MCP4MCP0@BP@@@@@@@@@@@@\H@@@@@@HM@ @@@ @@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	368	@@T@@@@@B @K@0@@@@@@@@@@@@@@@@@EB@@@@@@@C ,C@@@@@@@@@@@@@@@@@@@@@@@@@@@NB0L@@@@@@@@@@@@@@@@@@@@@@@@@@@8K@0@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	369	@@@@@@@@@@@@C ,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 120 120 120 0 64 64 88 88 88 80 80 80 200 200 200 48 48 48]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_?? _?? O??@C?>@C?<@G?>@G??@CO/ @OG0@FC8@@A<@@@<@@@X') ; yourself); yourself]
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	370	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	371
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	372	processLowerPrio22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	373	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	374	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	375
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	376	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	377	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	378
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	379	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	380	self processLowerPrio22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	381	ImageEditor openOnClass:self andSelector:#processLowerPrio22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	382	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	383	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	384
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	385	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	386
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	387	^Icon
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	388	constantNamed:#'ProcessMonitorV2 class processLowerPrio22x22Icon'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	389	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	390	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	391	@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	392	APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA @@@@@APXFA TG@@@@@@@@B@ FA XG@@@@@@TEAPTEAPTE@@@@@@@@A0\FA T@@@TFAP@@@@@@AP@@@@@@@@@G
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	393	A XFAPTFA T@@@@@@@T@@@@@@@@@APXFA XFA XE@@@@@@@E@@@@@@@@APXHA0XFA XFAP@@@@@@AP@@@@@@@@\H@@@EA XEAPT@@@@@@@TEAP@@@@@@@@@@
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	394	@@THAP@@@@@@@@@@@@T@@@@@@@@@@@@EB@@E@@@@@@@@@@T@@@@@@@@@@@@@@@@@@@T@@@@@@@T@@@@@@@@@@@@@@@@@@@@@AP@@@@T@@@@@@@@@@@@@@@@@
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	395	@@@@@@@E@@T@@@@@@@@@@@@@@@@@@@@@@@@@@@T@@@@@@@@a') ; colorMapFromArray:#[0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9?0O??0C??0C??0G??0G??<CO?<@O?8@F_0@@O @@G@@@B@') ; yourself); yourself]
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	396	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	397
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	398	processRaisePrio22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	399	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	400	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	401
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	402	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	403	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	404
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	405	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	406	self processRaisePrio22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	407	ImageEditor openOnClass:self andSelector:#processRaisePrio22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	408	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	409	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	410
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	411	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	412
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	413	^Icon
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	414	constantNamed:#'ProcessMonitorV2 class processRaisePrio22x22Icon'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	415	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	416	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	417	@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	418	APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA @@@@@APXFA TG@@@@@@@@B@ FA XG@@@@@@TFA XEB@@@@@@@@@@@A0\FA T@@@TFA XE@@T@@@@@@@@@@@@G
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	419	A XFAPTFA XE@@@@AP@@@@@@@@@@APXFA XFA XE@@@@@@@E@@@@@@@@APXHA0XFA XE@@@@@@@@@@T@@@@@@@\H@@@EA XE@@@@@@@@@@@@AP@@@@@@@@@@
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	420	@@THAPTE@@@@@@@EAPT@@@@@@@@@@@@EB@@@AP@@@@@@AP@@@@@@@@@@@@@@@@@@@@T@@@@@@@T@@@@@@@@@@@@@@@@@@@@E@@@@@@@E@@@@@@@@@@@@@@@@
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	421	@@@@AP@@@@@@AP@@@@@@@@@@@@@@@@@@@@TEAPTEAPT@@@@a') ; colorMapFromArray:#[0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C?? C??0G??8G??<CO?<@O_0@F_0@@_0@@_0@@_0') ; yourself); yourself]
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	422	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	423
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	424	processRestart22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	425	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	426	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	427
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	428	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	429	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	430
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	431	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	432	self processRestart22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	433	ImageEditor openOnClass:self andSelector:#processRestart22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	434	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	435	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	436
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	437	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	438
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	439	^Icon
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	440	constantNamed:#'ProcessMonitorV2 class processRestart22x22Icon'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	441	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	442	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GAP@@@@@@@@@@@@@@@@@@@@@@@@@@A0T@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	443	@@@EA0@@A0XFA@@@A0T@@@@@@@@@@@@@A@XGA0XFA XGA0XD@@@@@@@@@@@@@@@EA XFA XF@@@@@@@@@@@@@@@@@@@@A0XFAPP@@@LC@0@@@P@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	444	A0XFAPP@@0LC@0@E@@@@@@@@@@@GA0XFA P@@@LC@0@FA \@@@@@@@@@A@PFA XE@@LC@0@FA XD@@@@@@@@@@@@APTFA @C@0L@A XD@@@@@@@@@@@@@@@E
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	445	@@LC@0LC@0L@@@@@@@@@@@@@@@@@A0X@@0LC@0L@@@@@@@@@@@@@@@@@A0XDAP@C@0L@@@@@@@@@@@@@@@@@@@TD@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	446	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	447	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 64 0 0 128 0 0 192 0 127 127 127 161 161 165 194 194 194 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?>@C?? O??0_?>P_?>HO?<@C?= C?30G?''8G7/<CCO0@PC0@HG @L_ @G?@@A<@') ; yourself); yourself]
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	448	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	449
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	450	processResume22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	451	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	452	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	453
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	454	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	455	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	456
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	457	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	458	self processResume22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	459	ImageEditor openOnClass:self andSelector:#processResume22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	460	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	461	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	462
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	463	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	464
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	465	^Icon
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	466	constantNamed:#'ProcessMonitorV2 class processResume22x22Icon'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	467	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	468	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	469	@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	470	APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA @@@@@APXFA TG@@@@@@@@B@ FA XG@@@@@@TE@@THB@@@@@@@@@@@A0\FA T@@@TFAP@@AP@@@@@@@@@@@@@G
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	471	A XFAPTFA T@@@@E@@@@@@@@@@@@APXFA XFA XE@@@@@@T@@@@@@@@@APXHA0XFA XFAP@@@@@@AP@@@@@@@@\H@@@EA XG@@T@@@@@@@@E@@@@@@@@@@@@
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	472	@@TH@@@E@@@@@@@@AP@@@@@@@@@@@@@EB@@@AP@@@@@@AP@@@@@@@@@@@@@@@@@@@@T@@@@@AP@@@@@@@@@@@@@@@@@@@@@E@@@@AP@@@@@@@@@@@@@@@@@@
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	473	@@@@AP@@AP@@@@@@@@@@@@@@@@@@@@@@@@T@AP@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C??@C?? G??0G??8CO_8@O_0@F_ @@_@@@^@@@\@') ; yourself); yourself]
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	474	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	475
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	476	processStop22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	477	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	478	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	479
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	480	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	481	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	482
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	483	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	484	self processStop22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	485	ImageEditor openOnClass:self andSelector:#processStop22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	486	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	487	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	488
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	489	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	490
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	491	^Icon
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	492	constantNamed:#'ProcessMonitorV2 class processStop22x22Icon'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	493	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	494	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	495	@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	496	APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA @@@@@APXFA TG@@@@@@@@B@ FA XG@@@@@@TFA XHB@@@@@@@@@@@A0\FA T@@@TFA XH@@@@@@@@@@@@@@@G
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	497	A XFAPTFAPTEAPTEAPTEAP@@@@@@APXFA XFA T@@@@EAP@@@@T@@@@@APXHA0XFA XE@@@@APT@@@@E@@@@@@\H@@@EA XGAP@@@@TE@@@@AP@@@@@@@@@@
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	498	@@TH@@T@@@@EAP@@@@T@@@@@@@@@@@@EB@@E@@@@APT@@@@E@@@@@@@@@@@@@@@@AP@@@@TE@@@@AP@@@@@@@@@@@@@@@@T@@@@EAP@@@@T@@@@@@@@@@@@@
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	499	@@@E@@@@APT@@@@E@@@@@@@@@@@@@@@@APTEAPTEAPTEAP@a') ; colorMapFromArray:#[0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _9? O??@C??<C??<G??<G??<CO?<@O?<@F?<@@?<@@?<@@?<') ; yourself); yourself]
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	500	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	501
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	502	processSuspend22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	503	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	504	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	505
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	506	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	507	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	508
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	509	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	510	self processSuspend22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	511	ImageEditor openOnClass:self andSelector:#processSuspend22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	512	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	513	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	514
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	515	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	516
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	517	^Icon
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	518	constantNamed:#'ProcessMonitorV2 class processSuspend22x22Icon'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	519	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	520	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	521	@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	522	APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA @@@@@APXFA TG@@@@@@@@B@ FA XG@@TEAPTEAPTEAPTEAPT@@@@@A0\FA TEAPTEAPTEAPTEAPTE@@@@@@@G
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	523	A XFAPTE@@@@@@@@@@@EAP@@@@@@APXFA TEAP@@@@@@@@@@APT@@@@@APXHA0XEAPT@@@@@@@@@@@TE@@@@@@\H@@@EAPTE@@@@@@@@@@@EAP@@@@@@@@@@
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	524	@@TEAP@@@@@@@@@@APT@@@@@@@@@@@@EAPT@@@@@@@@@@@TE@@@@@@@@@@@@APTE@@@@@@@@@@@EAP@@@@@@@@@@@@TEAP@@@@@@@@@@APT@@@@@@@@@@@@E
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	525	APTEAPTEAPTEAPTE@@@@@@@@@@@@APTEAPTEAPTEAPTEAP@a') ; colorMapFromArray:#[0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _??<O??<C??<C??<G??<G??<CO?<@O?<@G?<@G?<@G?<@G?<') ; yourself); yourself]
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	526	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	527
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	528	processTerminate22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	529	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	530	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	531
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	532	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	533	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	534
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	535	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	536	self processTerminate22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	537	ImageEditor openOnClass:self andSelector:#processTerminate22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	538	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	539	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	540
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	541	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	542
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	543	^Icon
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	544	constantNamed:#'ProcessMonitorV2 class processTerminate22x22Icon'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	545	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	546	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	547	@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	548	APXFA0 @@@TFA XG@@@@@@@@@@@EAPXFA @@@@@APXFA TGC@@@@@@@B@ FA XG@@@LC@TFA XHC@,K@@@@@@@@A0\FA TLB0,LC@XHC@,KBP@@@@@@@@@G
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	549	A XFAPTJB0,LB0,KBP@@@@@@@@@@APXFA XFA (KB0,KBP@@@@@@@@@@APXHA0XFA XFC@,KC@@@@@@@@@@@@@\H@@@EA XGC@,KB00@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	550	@@THC@,I@@(KC@@@@@@@@@@@@@@@@@@EB@0I@@@@B ,@@@@@@@@@@@@@@@@@@@0K@@@@@@@JB0@@@@@@@@@@@@@@@@@LBP@@@@@@@@,@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	551	C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 64 0 0 128 0 0 192 0 0 255 0 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@F@@@O@@COL@G?>@G?>@C?<@C?<@O??@_9? _;?0O??0C?? C??@G?>@G?>@CO?@@O#@@GA @C@ @B@@@@@@') ; yourself); yourself]
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	552	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	553
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	554	processTerminateGroup22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	555	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	556	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	557
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	558	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	559	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	560
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	561	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	562	self processTerminateGroup22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	563	ImageEditor openOnClass:self andSelector:#processTerminateGroup22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	564	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	565	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	566
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	567	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	568
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	569	^Icon
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	570	constantNamed:#'ProcessMonitorV2 class processTerminateGroup22x22Icon'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	571	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	572	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@@@@@@@@@@@TG@@@@@@@@@@@@@@@@@@@@A0T@@@TFA @@@TG@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	573	@@ FAPTF@@@FAPTFB@@@@@@@@@@@@@@@A0XF@@TG@@XFB@@@@@@@@@@@@@@@@@@FA @EA0@FA @@@@@@@@@@@@@@@@\E@@@EA XH@@@EA0@@@@@@@@@@AP@H
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	574	A TEA XFA TEA @A0@@@@@@@@ H@@\FA XFA XFA @B@ @@@@@@@@@@@@EA XGB@\FA XG@@@@@@@L@@@@@@@EA XGB@@@AP0LA \@@@@LB0,@@@TEA XF
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	575	B@@FA 0KB00LAP\LB0,I@@@HB@XFA \@A X@AP(KB00KB0,I@@@@@@@GA0XFAP@@APXFB ,KB0,I@@@@@@@@@@\FA XEAPXFA LB0,L@@@@@@@@@@@EA XF
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	576	A XFA XLB0,KC@@@@@@@@@@EA GA XFA XLB0$@B ,L@@@@@@@@A0 @@@TFA \@C@$H@@@JB0@@@@@@@@@@@@@@AP @C@,@@@@@@@(K@@@@@@@@@@@@@@TH
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	577	@@0I@@@@@@@@B0@@@@@@@@@@@@@@@@@L@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 128 128 128 160 160 160 195 195 195 220 220 220 255 255 255 194 194 194 161 161 165 127 127 127 64 0 0 128 0 0 192 0 0 255 0 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@L@@@^@@F^X@O?<@O?<@G?8@G?8@_?>@???@???@_?>P_?>8???8???0_?? G??@G??@O?? O?= F_80@_ P@M@@') ; yourself); yourself]
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	578	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	579
7809 ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	580	raiseWindow22x22Icon
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	581	"This resource specification was automatically generated
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	582	by the ImageEditor of ST/X."
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	583
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	584	"Do not manually edit this!! If it is corrupted,
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	585	the ImageEditor may not be able to read the specification."
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	586
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	587	"
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	588	self raiseWindow22x22Icon inspect
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	589	ImageEditor openOnClass:self andSelector:#raiseWindow22x22Icon
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	590	Icon flushCachedIcons
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	591	"
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	592
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	593	<resource: #image>
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	594
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	595	^Icon
8652 c7ab5e1b64ca * empty log message * Claus Gittinger <cg@exept.de> parents: 8651 diff changeset	596	constantNamed:'ProcessMonitorV2 class raiseWindow22x22Icon'
c7ab5e1b64ca * empty log message * Claus Gittinger <cg@exept.de> parents: 8651 diff changeset	597	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
7809 ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	598	@@@.K"8.K"8.K"8.K"8.K"8.K"8.K @@@@@@@ HB@ HB@ HB@ HB@ HB@B8@@@@@@@H+J2,+J2,+J2,+J2,+@ @.@@@@@@@BJ2,+J2,+J2,+J2,+J2 @K @@
8652 c7ab5e1b64ca * empty log message * Claus Gittinger <cg@exept.de> parents: 8651 diff changeset	599	@ HB@ HB@ HB@ HB@ HBJ2,"@B8@@@HB@ HB@ HB@ HB@ HB@",EF @.@@@B@ HB@ HB@ HB@ HB@" EHQ(@K @@@ HB@ HB@ HB@ HB@ H"AR$(@B8@@@H+
7809 ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	600	J2,+J2,+J2,+J2,!!JBD''J@@.@@@BJ2,+J2,+J2,+J2,+HR !!I2 @K @@@",+J2,+J2,+J2,+J2\(HRL @B8@@@H+J2,+J2,+J2,+J2,''JBT#H@@.@@@BJ2,+
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	601	J2,+J2,+J2,EI2 ''A"@@K @@@",+J2,+J2,+J2,EARL I0X @B8@@@H+J2,+J2,+J2,EAR$#HB\FH@@.@@@BJ2,+J2,+J2,EAR$)A"@F@2@@K @@@",+J2,+
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	602	J2,EAR$)HPX HB@Y@B8@@@H+J2,+J2,EAPT)HRDFH@@@@@@.@@@BJ2,EJR$)HRD!!CB\''@2@@@@@@K @@DRPGA2<^D@,KJ!!<-JB@Y@@@@@B8@@@@@@@@@@@@@
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	603	@@@@@@@@@@@@@@@.@@@@@@@@@@@@@@@@@@@@@@@@K"8.K @a') ; colorMapFromArray:#[160 200 248 175 200 248 0 48 168 208 208 224 207 216 240 240 240 248 223 216 224 80 136 208 240 232 240 175 208 248 176 208 248 64 112 192 239 232 232 255 248 176 255 248 24 255 248 152 79 120 192 48 120 208 159 192 248 255 248 88 160 192 248 255 248 48 255 248 96 144 184 248 240 144 24 15 56 160 63 88 176 191 216 248 240 208 24 255 248 136 79 120 200 63 104 184 48 80 176 239 232 240 31 72 176 223 216 232 80 144 208 224 224 240 255 248 200 224 224 232 48 88 176 240 240 240 64 104 184 255 248 248 47 112 208 63 96 184 236 233 216 79 128 200]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@A??0A??0A??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O??0O?>@O?>@O?>@@@@@@@@@') ; yourself); yourself]
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	604	!
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	605
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	606	terminateGroupIcon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	607	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	608	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	609
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	610	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	611	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	612
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	613	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	614	self terminateGroupIcon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	615	ImageEditor openOnClass:self andSelector:#terminateGroupIcon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	616	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	617	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	618
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	619	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	620
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	621	^Icon
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	622	constantNamed:#'ProcessMonitorV2 class terminateGroupIcon'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	623	ifAbsentPut:[(Depth8Image new) width: 22; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	624	@PDA@PXJB (JB (JB (JB TE@PDA@PDA@PXJB (JB (JB (JB (JA0TA@PD@@PXJB (JB (JB (JB (JB (JA D@@@HDB (J@ HJB (JB PDA@(JB X@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	625	@P\G@PDAA (JB XA@PDFA XA@@@@A DA@PDA@PXJB (F@PDA@PDA@PX@A \A@PD@@@@@@@@@A DJ@@@@@@@@@@XJB DA@@,KB0,K@@@A@@,KB0,KB0@AA XF
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	626	B (@B0,KB0,@@@,KB0,KB0@A@PDA@PXJB @KB0,KB0,KB0,KB0@A@PDA@PXJB (J@@,KB0,KB0,KB0@A@PD@@PXJB (JB (@B0,KB0,KB0@JA D@@@HDB (J
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	627	@ HJB @KB0,KB0@JB X@@@@@@P\G@PDAA @KB0,KB0,K@@XA@@@@@@DA@PDA@P@KB0,KB0,KB0,@@P@@@@@A@PDA@P@KB0,KB0@KB0,KB0@@@@@@@@DA@P@K
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	628	B0,KB0@@@@,KB0,K@@@@@@@@@@@KB0,KB0@A@@@@B0,KB0,@@@@@@@@@@@@@@@@A@P@@@@@@@@@@@@@@@@@@@@@@@@DA@P@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 48 48 48 56 59 56 64 68 64 88 92 88 128 128 128 160 160 160 192 192 192 216 219 216 239 244 239 248 252 248 160 0 0]; mask:((Depth1Image new) width: 22; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<_??8_??0O??0_??8???<???<???<???<???<_??8_??0O??0O??0O??0G?/8A?''<A?#<@G@@') ; yourself); yourself]
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	629	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	630
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	631	terminateIcon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	632	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	633	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	634
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	635	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	636	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	637
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	638	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	639	self terminateIcon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	640	ImageEditor openOnClass:self andSelector:#terminateIcon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	641	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	642	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	643
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	644	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	645
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	646	^Icon
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	647	constantNamed:#'ProcessMonitorV2 class terminateIcon'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	648	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	649	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@LC@@@@@@@C@ H@@@@@@@LB@ LC@@@C@ H@@@@@@@@@@@DB@ LB
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	650	@ H@@@@@@@@@@@@@@PHB@ H@@@@@@@@@@@@@@@@C@ HC@@@@@@@@@@@@@@@C@ HB@0@@@@@@@@@@@@@C@ @@@PHC@@@@@@@@@@@@@0@@@@@A@ @@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	651	@0H@@@@@@@DB@@@@@@@@@@L@@@@@@@@@@ @@@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[64 0 0 128 0 0 192 0 0 255 0 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@HCA0_O@_8@?@A8@O A7@FL@0XC@ H@@@@@@@b') ; yourself); yourself]
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	652	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	653
4463 99d11fbee2af initial checkin penk parents: diff changeset	654	viewDetailsIcon
99d11fbee2af initial checkin penk parents: diff changeset	655	"This resource specification was automatically generated
99d11fbee2af initial checkin penk parents: diff changeset	656	by the ImageEditor of ST/X."
99d11fbee2af initial checkin penk parents: diff changeset	657
99d11fbee2af initial checkin penk parents: diff changeset	658	"Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin penk parents: diff changeset	659	the ImageEditor may not be able to read the specification."
99d11fbee2af initial checkin penk parents: diff changeset	660
99d11fbee2af initial checkin penk parents: diff changeset	661	"
99d11fbee2af initial checkin penk parents: diff changeset	662	self viewDetailsIcon inspect
99d11fbee2af initial checkin penk parents: diff changeset	663	ImageEditor openOnClass:self andSelector:#viewDetailsIcon
99d11fbee2af initial checkin penk parents: diff changeset	664	Icon flushCachedIcons
99d11fbee2af initial checkin penk parents: diff changeset	665	"
99d11fbee2af initial checkin penk parents: diff changeset	666
99d11fbee2af initial checkin penk parents: diff changeset	667	<resource: #image>
99d11fbee2af initial checkin penk parents: diff changeset	668
99d11fbee2af initial checkin penk parents: diff changeset	669	^Icon
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	670	constantNamed:#'ProcessMonitorV2 class viewDetailsIcon'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	671	ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@]+X@@@@@]+X@@@@@]+X@@@@@]+X@@@@@@@@b') ; yourself); yourself]
4463 99d11fbee2af initial checkin penk parents: diff changeset	672	! !
99d11fbee2af initial checkin penk parents: diff changeset	673
99d11fbee2af initial checkin penk parents: diff changeset	674	!ProcessMonitorV2 class methodsFor:'interface specs'!
99d11fbee2af initial checkin penk parents: diff changeset	675
99d11fbee2af initial checkin penk parents: diff changeset	676	windowSpec
99d11fbee2af initial checkin penk parents: diff changeset	677	"This resource specification was automatically generated
99d11fbee2af initial checkin penk parents: diff changeset	678	by the UIPainter of ST/X."
99d11fbee2af initial checkin penk parents: diff changeset	679
99d11fbee2af initial checkin penk parents: diff changeset	680	"Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin penk parents: diff changeset	681	the UIPainter may not be able to read the specification."
99d11fbee2af initial checkin penk parents: diff changeset	682
99d11fbee2af initial checkin penk parents: diff changeset	683	"
99d11fbee2af initial checkin penk parents: diff changeset	684	UIPainter new openOnClass:ProcessMonitorV2 andSelector:#windowSpec
99d11fbee2af initial checkin penk parents: diff changeset	685	ProcessMonitorV2 new openInterface:#windowSpec
99d11fbee2af initial checkin penk parents: diff changeset	686	ProcessMonitorV2 open
99d11fbee2af initial checkin penk parents: diff changeset	687	"
99d11fbee2af initial checkin penk parents: diff changeset	688
99d11fbee2af initial checkin penk parents: diff changeset	689	<resource: #canvas>
99d11fbee2af initial checkin penk parents: diff changeset	690
9807 6ad85e2e00b3 changed: #windowSpec - fix used icon Stefan Vogel <sv@exept.de> parents: 9802 diff changeset	691	^
5938 482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	692	#(FullSpec
8195 20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	693	name: windowSpec
9807 6ad85e2e00b3 changed: #windowSpec - fix used icon Stefan Vogel <sv@exept.de> parents: 9802 diff changeset	694	window:
5938 482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	695	(WindowSpec
8195 20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	696	label: 'ProcessMonitor'
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	697	name: 'ProcessMonitor'
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	698	min: (Point 10 10)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	699	bounds: (Rectangle 0 0 791 358)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	700	menu: mainMenu
9807 6ad85e2e00b3 changed: #windowSpec - fix used icon Stefan Vogel <sv@exept.de> parents: 9802 diff changeset	701	icon: defaultIcon
8195 20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	702	)
9807 6ad85e2e00b3 changed: #windowSpec - fix used icon Stefan Vogel <sv@exept.de> parents: 9802 diff changeset	703	component:
5938 482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	704	(SpecCollection
8195 20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	705	collection: (
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	706	(MenuPanelSpec
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	707	name: 'ToolBar1'
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	708	layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	709	menu: toolBarMainMenu
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	710	textDefault: true
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	711	)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	712	(DataSetSpec
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	713	name: 'ProcessTable'
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	714	layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 -23 1)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	715	model: selectedProcesses
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	716	menu: tableMenu
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	717	hasHorizontalScrollBar: true
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	718	hasVerticalScrollBar: true
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	719	dataList: processList
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	720	useIndex: false
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	721	doubleClickSelector: doubleClickedAt:
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	722	columnHolder: tableColumns
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	723	multipleSelectOk: true
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	724	verticalSpacing: 0
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	725	postBuildCallback: postBuildProcessTable:
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	726	)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	727	(LabelSpec
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	728	label: 'Update Contents Delay (s):'
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	729	name: 'ContentsUpdateLabel'
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	730	layout: (LayoutFrame -593 1 -20 1 -402 1 0 1)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	731	translateLabel: true
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	732	adjust: right
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	733	)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	734	(ViewSpec
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	735	name: 'Box1'
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	736	layout: (LayoutFrame -396 1 -22 1 -306 1 0 1)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	737	level: 0
9807 6ad85e2e00b3 changed: #windowSpec - fix used icon Stefan Vogel <sv@exept.de> parents: 9802 diff changeset	738	component:
8195 20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	739	(SpecCollection
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	740	collection: (
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	741	(ArrowButtonSpec
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	742	name: 'ArrowButton3'
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	743	layout: (LayoutFrame 68 0 0 0 89 0 20 0)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	744	model: increaseupdateContentsDelayTime
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	745	enableChannel: enableIncreaseContentsDelayTime
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	746	isTriggerOnDown: true
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	747	autoRepeat: true
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	748	actionValue: ''
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	749	direction: up
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	750	)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	751	(InputFieldSpec
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	752	name: 'EntryField2'
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	753	layout: (LayoutFrame 22 0 0 0 66 0 20 0)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	754	model: updateContentsDelayTime
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	755	acceptOnReturn: true
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	756	acceptOnTab: true
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	757	acceptOnLostFocus: true
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	758	acceptOnPointerLeave: false
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	759	)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	760	(ArrowButtonSpec
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	761	name: 'ArrowButton4'
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	762	layout: (LayoutFrame 0 0 0 0 20 0 20 0)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	763	model: decreaseupdateContentsDelayTime
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	764	enableChannel: enableDecreaseContentsDelayTime
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	765	isTriggerOnDown: true
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	766	autoRepeat: true
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	767	actionValue: ''
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	768	direction: down
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	769	)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	770	)
9807 6ad85e2e00b3 changed: #windowSpec - fix used icon Stefan Vogel <sv@exept.de> parents: 9802 diff changeset	771
8195 20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	772	)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	773	)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	774	(LabelSpec
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	775	label: 'Update List Delay (s):'
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	776	name: 'ListUpdateLabel'
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	777	layout: (LayoutFrame -301 1 -20 1 -93 1 0 1)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	778	translateLabel: true
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	779	adjust: right
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	780	)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	781	(ViewSpec
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	782	name: 'Box2'
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	783	layout: (LayoutFrame -89 1 -21 1 1 1 1 1)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	784	level: 0
9807 6ad85e2e00b3 changed: #windowSpec - fix used icon Stefan Vogel <sv@exept.de> parents: 9802 diff changeset	785	component:
8195 20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	786	(SpecCollection
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	787	collection: (
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	788	(ArrowButtonSpec
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	789	name: 'ArrowButton5'
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	790	layout: (LayoutFrame 68 0 0 0 89 0 20 0)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	791	model: increaseupdateListDelayTime
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	792	enableChannel: enableIncreaseListDelayTime
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	793	isTriggerOnDown: true
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	794	autoRepeat: true
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	795	actionValue: ''
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	796	direction: up
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	797	)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	798	(InputFieldSpec
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	799	name: 'EntryField3'
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	800	layout: (LayoutFrame 22 0 0 0 66 0 20 0)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	801	model: updateListDelayTime
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	802	acceptOnReturn: true
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	803	acceptOnTab: true
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	804	acceptOnLostFocus: true
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	805	acceptOnPointerLeave: false
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	806	)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	807	(ArrowButtonSpec
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	808	name: 'ArrowButton6'
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	809	layout: (LayoutFrame 0 0 0 0 20 0 20 0)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	810	model: decreaseupdateListDelayTime
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	811	enableChannel: enableDecreaseListDelayTime
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	812	isTriggerOnDown: true
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	813	autoRepeat: true
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	814	actionValue: ''
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	815	direction: down
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	816	)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	817	)
9807 6ad85e2e00b3 changed: #windowSpec - fix used icon Stefan Vogel <sv@exept.de> parents: 9802 diff changeset	818
8195 20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	819	)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	820	)
20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	821	)
9807 6ad85e2e00b3 changed: #windowSpec - fix used icon Stefan Vogel <sv@exept.de> parents: 9802 diff changeset	822
8195 20edf1507e82 window label Claus Gittinger <cg@exept.de> parents: 8001 diff changeset	823	)
4463 99d11fbee2af initial checkin penk parents: diff changeset	824	)
99d11fbee2af initial checkin penk parents: diff changeset	825	! !
99d11fbee2af initial checkin penk parents: diff changeset	826
99d11fbee2af initial checkin penk parents: diff changeset	827	!ProcessMonitorV2 class methodsFor:'menu specs'!
99d11fbee2af initial checkin penk parents: diff changeset	828
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	829	applicationMenu
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	830	"This resource specification was automatically generated
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	831	by the MenuEditor of ST/X."
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	832
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	833	"Do not manually edit this!! If it is corrupted,
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	834	the MenuEditor may not be able to read the specification."
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	835
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	836	"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	837	MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#applicationMenu
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	838	(Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 applicationMenu)) startUp
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	839	"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	840
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	841	<resource: #menu>
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	842
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	843	^
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	844	#(Menu
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	845	(
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	846	(MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	847	enabled: hasSelectionWithApplicationProcessHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	848	label: 'Raise Applications Window'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	849	itemValue: raiseApplicationWindow
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	850	translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	851	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	852	(MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	853	enabled: hasSelectionWithApplicationProcessHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	854	label: 'Lower Applications Window'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	855	itemValue: lowerApplicationWindow
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	856	translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	857	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	858	(MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	859	label: '-'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	860	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	861	(MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	862	enabled: hasSelectionWithApplicationProcessHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	863	label: 'Close'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	864	itemValue: closeApplication
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	865	translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	866	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	867	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	868	nil
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	869	nil
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	870	)
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	871
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	872	"Modified: / 07-06-2007 / 12:44:21 / cg"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	873	!
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	874
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	875	debugMenu
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	876	"This resource specification was automatically generated
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	877	by the MenuEditor of ST/X."
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	878
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	879	"Do not manually edit this!! If it is corrupted,
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	880	the MenuEditor may not be able to read the specification."
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	881
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	882	"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	883	MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#debugMenu
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	884	(Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 debugMenu)) startUp
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	885	"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	886
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	887	<resource: #menu>
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	888
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	889	^
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	890	#(Menu
8651 56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	891	(
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	892	(MenuItem
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	893	enabled: hasSelectionHolder
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	894	label: 'Inspect Process'
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	895	itemValue: inspectSelection
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	896	translateLabel: true
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	897	)
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	898	(MenuItem
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	899	enabled: hasSelectionWithApplicationProcessHolder
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	900	label: 'Inspect Application'
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	901	itemValue: inspectApplication
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	902	translateLabel: true
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	903	)
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	904	(MenuItem
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	905	label: '-'
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	906	)
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	907	(MenuItem
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	908	enabled: hasSelectionWithApplicationProcessHolder
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	909	label: 'Browse Application'
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	910	itemValue: browseApplication
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	911	translateLabel: true
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	912	)
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	913	(MenuItem
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	914	label: '-'
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	915	isVisible: allowModificationsAndHasDebugger
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	916	)
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	917	(MenuItem
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	918	enabled: hasSelectionHolder
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	919	label: 'Debug'
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	920	itemValue: debugProcess
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	921	translateLabel: true
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	922	isVisible: allowModificationsAndHasDebugger
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	923	)
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	924	)
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	925	nil
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	926	nil
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	927	)
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	928
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	929	"Modified: / 07-06-2007 / 12:49:58 / cg"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	930	!
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	931
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	932	instrumentationMenu
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	933	"This resource specification was automatically generated
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	934	by the MenuEditor of ST/X."
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	935
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	936	"Do not manually edit this!! If it is corrupted,
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	937	the MenuEditor may not be able to read the specification."
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	938
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	939	"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	940	MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#instrumentationMenu
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	941	(Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 instrumentationMenu)) startUp
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	942	"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	943
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	944	<resource: #menu>
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	945
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	946	^
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	947	#(Menu
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	948	(
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	949	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	950	enabled: hasSelectionWithEnabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	951	label: 'Disable'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	952	itemValue: disableInstrumentation
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	953	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	954	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	955	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	956	enabled: hasSelectionWithDisabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	957	label: 'Enable'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	958	itemValue: enableInstrumentation
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	959	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	960	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	961	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	962	nil
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	963	nil
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	964	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	965	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	966
4463 99d11fbee2af initial checkin penk parents: diff changeset	967	mainMenu
99d11fbee2af initial checkin penk parents: diff changeset	968	"This resource specification was automatically generated
99d11fbee2af initial checkin penk parents: diff changeset	969	by the MenuEditor of ST/X."
99d11fbee2af initial checkin penk parents: diff changeset	970
99d11fbee2af initial checkin penk parents: diff changeset	971	"Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin penk parents: diff changeset	972	the MenuEditor may not be able to read the specification."
99d11fbee2af initial checkin penk parents: diff changeset	973
99d11fbee2af initial checkin penk parents: diff changeset	974	"
99d11fbee2af initial checkin penk parents: diff changeset	975	MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#mainMenu
99d11fbee2af initial checkin penk parents: diff changeset	976	(Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 mainMenu)) startUp
99d11fbee2af initial checkin penk parents: diff changeset	977	"
99d11fbee2af initial checkin penk parents: diff changeset	978
99d11fbee2af initial checkin penk parents: diff changeset	979	<resource: #menu>
99d11fbee2af initial checkin penk parents: diff changeset	980
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	981	^
7416 6c684d163ac8 #conditionalRight Claus Gittinger <cg@exept.de> parents: 7116 diff changeset	982	#(Menu
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	983	(
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	984	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	985	label: 'File'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	986	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	987	submenu:
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	988	(Menu
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	989	(
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	990	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	991	label: 'Exit'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	992	itemValue: closeRequest
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	993	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	994	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	995	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	996	nil
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	997	nil
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	998	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	999	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1000	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1001	label: 'Process'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1002	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1003	isVisible: allowModifications
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1004	submenuChannel: processMenu
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1005	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1006	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1007	label: 'Application'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1008	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1009	submenuChannel: applicationMenu
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1010	keepLinkedMenu: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1011	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1012	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1013	label: 'Debug'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1014	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1015	submenuChannel: debugMenu
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1016	keepLinkedMenu: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1017	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1018	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1019	label: 'Instrumentation'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1020	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1021	submenuChannel: instrumentationMenu
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1022	keepLinkedMenu: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1023	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1024	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1025	label: 'View'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1026	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1027	submenuChannel: viewDetailsMenuSpec
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1028	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1029	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1030	label: 'Help'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1031	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1032	startGroup: conditionalRight
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1033	submenu:
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1034	(Menu
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1035	(
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1036	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1037	label: 'Documentation'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1038	itemValue: openDocumentation
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1039	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1040	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1041	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1042	label: '-'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1043	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1044	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1045	label: 'About this Application...'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1046	itemValue: openAboutThisApplication
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1047	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1048	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1049	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1050	nil
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1051	nil
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1052	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1053	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1054	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1055	nil
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1056	nil
4463 99d11fbee2af initial checkin penk parents: diff changeset	1057	)
99d11fbee2af initial checkin penk parents: diff changeset	1058	!
99d11fbee2af initial checkin penk parents: diff changeset	1059
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1060	processMenu
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1061	"This resource specification was automatically generated
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1062	by the MenuEditor of ST/X."
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1063
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1064	"Do not manually edit this!! If it is corrupted,
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1065	the MenuEditor may not be able to read the specification."
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1066
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1067	"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1068	MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#processMenu
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1069	(Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 processMenu)) startUp
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1070	"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1071
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1072	<resource: #menu>
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1073
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1074	^
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1075	#(Menu
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1076	(
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1077	(MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1078	enabled: hasSelectionWithStoppedProcessHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1079	label: 'Resume'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1080	itemValue: resumeProcess
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1081	translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1082	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1083	(MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1084	enabled: hasSelectionHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1085	label: 'Suspend'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1086	itemValue: suspendProcess
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1087	translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1088	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1089	(MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1090	enabled: hasSelectionHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1091	label: 'Stop'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1092	itemValue: stopProcess
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1093	translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1094	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1095	(MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1096	label: '-'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1097	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1098	(MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1099	enabled: hasSelectionHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1100	label: 'Abort'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1101	itemValue: abortProcess
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1102	translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1103	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1104	(MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1105	enabled: hasSelectionHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1106	label: 'Terminate'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1107	itemValue: terminateProcess
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1108	translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1109	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1110	(MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1111	enabled: hasSelectionHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1112	label: 'Hard Terminate'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1113	itemValue: hardTerminateProcess
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1114	translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1115	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1116	(MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1117	enabled: hasSelectionHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1118	label: 'Terminate Group'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1119	itemValue: terminateProcessGroup
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1120	translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1121	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1122	(MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1123	enabled: selectionRestartable
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1124	label: 'Restart'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1125	itemValue: restartProcess
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1126	translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1127	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1128	(MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1129	label: '-'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1130	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1131	(MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1132	enabled: hasSelectionHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1133	label: 'Raise Prio'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1134	itemValue: raisePrio
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1135	translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1136	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1137	(MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1138	enabled: hasSelectionHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1139	label: 'Lower Prio'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1140	itemValue: lowerPrio
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1141	translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1142	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1143	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1144	nil
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1145	nil
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1146	)
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1147	!
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1148
4463 99d11fbee2af initial checkin penk parents: diff changeset	1149	tableMenu
99d11fbee2af initial checkin penk parents: diff changeset	1150	"This resource specification was automatically generated
99d11fbee2af initial checkin penk parents: diff changeset	1151	by the MenuEditor of ST/X."
99d11fbee2af initial checkin penk parents: diff changeset	1152
99d11fbee2af initial checkin penk parents: diff changeset	1153	"Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin penk parents: diff changeset	1154	the MenuEditor may not be able to read the specification."
99d11fbee2af initial checkin penk parents: diff changeset	1155
99d11fbee2af initial checkin penk parents: diff changeset	1156	"
99d11fbee2af initial checkin penk parents: diff changeset	1157	MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#tableMenu
99d11fbee2af initial checkin penk parents: diff changeset	1158	(Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 tableMenu)) startUp
99d11fbee2af initial checkin penk parents: diff changeset	1159	"
99d11fbee2af initial checkin penk parents: diff changeset	1160
99d11fbee2af initial checkin penk parents: diff changeset	1161	<resource: #menu>
99d11fbee2af initial checkin penk parents: diff changeset	1162
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1163	^
4463 99d11fbee2af initial checkin penk parents: diff changeset	1164	#(#Menu
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1165	#(
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1166	#(#MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1167	#enabled: #hasSelectionHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1168	#label: 'Debug'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1169	#itemValue: #debugProcess
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1170	#translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1171	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1172	#(#MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1173	#enabled: #hasSelectionHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1174	#label: 'Inspect'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1175	#itemValue: #inspectSelection
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1176	#translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1177	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1178	#(#MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1179	#enabled: #hasSelectionWithApplicationProcessHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1180	#label: 'Inspect Application'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1181	#itemValue: #inspectApplication
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1182	#translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1183	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1184	#(#MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1185	#enabled: #hasSelectionWithApplicationProcessHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1186	#label: 'Browse Application'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1187	#itemValue: #browseApplication
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1188	#translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1189	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1190	#(#MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1191	#label: '-'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1192	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1193	#(#MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1194	#enabled: #hasSelectionWithStoppedProcessHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1195	#label: 'Resume'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1196	#itemValue: #resumeProcess
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1197	#translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1198	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1199	#(#MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1200	#enabled: #hasSelectionHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1201	#label: 'Suspend'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1202	#itemValue: #suspendProcess
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1203	#translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1204	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1205	#(#MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1206	#enabled: #hasSelectionHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1207	#label: 'Stop'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1208	#itemValue: #stopProcess
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1209	#translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1210	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1211	#(#MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1212	#label: '-'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1213	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1214	#(#MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1215	#enabled: #hasSelectionHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1216	#label: 'Abort'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1217	#itemValue: #abortProcess
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1218	#translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1219	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1220	#(#MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1221	#enabled: #hasSelectionHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1222	#label: 'Terminate'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1223	#itemValue: #terminateProcess
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1224	#translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1225	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1226	#(#MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1227	#enabled: #hasSelectionHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1228	#label: 'Hard Terminate'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1229	#itemValue: #hardTerminateProcess
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1230	#translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1231	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1232	#(#MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1233	#enabled: #hasSelectionHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1234	#label: 'Terminate Group'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1235	#itemValue: #terminateProcessGroup
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1236	#translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1237	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1238	#(#MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1239	#enabled: #selectionRestartable
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1240	#label: 'Restart'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1241	#itemValue: #restartProcess
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1242	#translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1243	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1244	#(#MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1245	#label: '-'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1246	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1247	#(#MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1248	#enabled: #hasSelectionHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1249	#label: 'Raise Prio'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1250	#itemValue: #raisePrio
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1251	#translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1252	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1253	#(#MenuItem
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1254	#enabled: #hasSelectionHolder
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1255	#label: 'Lower Prio'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1256	#itemValue: #lowerPrio
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1257	#translateLabel: true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1258	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1259	)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1260	nil
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1261	nil
4463 99d11fbee2af initial checkin penk parents: diff changeset	1262	)
7809 ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	1263
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1264	"Modified: / 07-06-2007 / 12:49:47 / cg"
4463 99d11fbee2af initial checkin penk parents: diff changeset	1265	!
99d11fbee2af initial checkin penk parents: diff changeset	1266
99d11fbee2af initial checkin penk parents: diff changeset	1267	toolBarMainMenu
99d11fbee2af initial checkin penk parents: diff changeset	1268	"This resource specification was automatically generated
99d11fbee2af initial checkin penk parents: diff changeset	1269	by the MenuEditor of ST/X."
99d11fbee2af initial checkin penk parents: diff changeset	1270
99d11fbee2af initial checkin penk parents: diff changeset	1271	"Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin penk parents: diff changeset	1272	the MenuEditor may not be able to read the specification."
99d11fbee2af initial checkin penk parents: diff changeset	1273
99d11fbee2af initial checkin penk parents: diff changeset	1274	"
99d11fbee2af initial checkin penk parents: diff changeset	1275	MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#toolBarMainMenu
99d11fbee2af initial checkin penk parents: diff changeset	1276	(Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 toolBarMainMenu)) startUp
99d11fbee2af initial checkin penk parents: diff changeset	1277	"
99d11fbee2af initial checkin penk parents: diff changeset	1278
99d11fbee2af initial checkin penk parents: diff changeset	1279	<resource: #menu>
99d11fbee2af initial checkin penk parents: diff changeset	1280
7863 89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1281	^
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1282	#(Menu
7863 89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1283	(
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1284	(MenuItem
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1285	activeHelpKey: Inspect
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1286	enabled: hasSelectionHolder
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1287	label: 'Inspect'
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1288	itemValue: inspectSelection
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1289	translateLabel: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1290	isButton: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1291	isVisible: allowModifications
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1292	labelImage: (ResourceRetriever ProcessMonitorV2 processInspect22x22Icon)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1293	)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1294	(MenuItem
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1295	activeHelpKey: Debug
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1296	enabled: hasSelectionHolder
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1297	label: 'Debug'
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1298	itemValue: debugProcess
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1299	translateLabel: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1300	isButton: true
8651 56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	1301	isVisible: allowModificationsAndHasDebugger
7863 89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1302	labelImage: (ResourceRetriever ProcessMonitorV2 processDebug22x22Icon)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1303	)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1304	(MenuItem
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1305	activeHelpKey: RaiseWindow
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1306	enabled: hasSelectionWithApplicationProcessHolder
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1307	label: 'Raise Applications Window'
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1308	itemValue: raiseApplicationWindow
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1309	translateLabel: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1310	isButton: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1311	labelImage: (ResourceRetriever ProcessMonitorV2 raiseWindow22x22Icon)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1312	)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1313	(MenuItem
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1314	label: '-'
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1315	isVisible: allowModifications
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1316	)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1317	(MenuItem
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1318	activeHelpKey: Resume
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1319	enabled: hasSelectionWithStoppedProcessHolder
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1320	label: 'Resume'
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1321	itemValue: resumeProcess
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1322	translateLabel: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1323	isButton: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1324	isVisible: allowModifications
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1325	labelImage: (ResourceRetriever ProcessMonitorV2 processResume22x22Icon)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1326	)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1327	(MenuItem
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1328	activeHelpKey: Stop
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1329	enabled: hasSelectionHolder
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1330	label: 'Stop'
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1331	itemValue: stopProcess
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1332	translateLabel: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1333	isButton: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1334	isVisible: allowModifications
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1335	labelImage: (ResourceRetriever ProcessMonitorV2 processStop22x22Icon)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1336	)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1337	(MenuItem
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1338	activeHelpKey: Abort
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1339	enabled: hasSelectionHolder
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1340	label: 'Abort'
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1341	itemValue: abortProcess
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1342	translateLabel: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1343	isButton: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1344	isVisible: allowModifications
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1345	labelImage: (ResourceRetriever ProcessMonitorV2 processAbort22x22Icon)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1346	)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1347	(MenuItem
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1348	label: '-'
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1349	isVisible: allowModifications
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1350	)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1351	(MenuItem
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1352	activeHelpKey: Terminate
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1353	enabled: hasSelectionHolder
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1354	label: 'Terminate'
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1355	itemValue: terminateProcess
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1356	translateLabel: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1357	isButton: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1358	isVisible: allowModifications
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1359	labelImage: (ResourceRetriever ProcessMonitorV2 processTerminate22x22Icon)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1360	)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1361	(MenuItem
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1362	activeHelpKey: #'Terminate Group'
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1363	enabled: hasSelectionHolder
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1364	label: 'Terminate Group'
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1365	itemValue: terminateProcessGroup
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1366	translateLabel: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1367	isButton: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1368	isVisible: allowModifications
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1369	labelImage: (ResourceRetriever ProcessMonitorV2 processTerminateGroup22x22Icon)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1370	)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1371	(MenuItem
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1372	activeHelpKey: Restart
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1373	enabled: selectionRestartable
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1374	label: 'Restart'
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1375	itemValue: restartProcess
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1376	translateLabel: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1377	isButton: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1378	isVisible: allowModifications
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1379	labelImage: (ResourceRetriever ProcessMonitorV2 processRestart22x22Icon)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1380	)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1381	(MenuItem
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1382	label: '-'
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1383	isVisible: allowModifications
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1384	)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1385	(MenuItem
7921 9d681358d168 * empty log message * Claus Gittinger <cg@exept.de> parents: 7874 diff changeset	1386	activeHelpKey: #'Lower Prio'
9d681358d168 * empty log message * Claus Gittinger <cg@exept.de> parents: 7874 diff changeset	1387	enabled: hasSelectionHolder
9d681358d168 * empty log message * Claus Gittinger <cg@exept.de> parents: 7874 diff changeset	1388	label: 'Lower Prio'
9d681358d168 * empty log message * Claus Gittinger <cg@exept.de> parents: 7874 diff changeset	1389	itemValue: lowerPrio
9d681358d168 * empty log message * Claus Gittinger <cg@exept.de> parents: 7874 diff changeset	1390	translateLabel: true
9d681358d168 * empty log message * Claus Gittinger <cg@exept.de> parents: 7874 diff changeset	1391	isButton: true
9d681358d168 * empty log message * Claus Gittinger <cg@exept.de> parents: 7874 diff changeset	1392	isVisible: allowModifications
9d681358d168 * empty log message * Claus Gittinger <cg@exept.de> parents: 7874 diff changeset	1393	labelImage: (ResourceRetriever ProcessMonitorV2 processLowerPrio22x22Icon)
9d681358d168 * empty log message * Claus Gittinger <cg@exept.de> parents: 7874 diff changeset	1394	)
9d681358d168 * empty log message * Claus Gittinger <cg@exept.de> parents: 7874 diff changeset	1395	(MenuItem
7863 89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1396	activeHelpKey: #'Raise Prio'
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1397	enabled: hasSelectionHolder
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1398	label: 'Raise Prio'
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1399	itemValue: raisePrio
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1400	translateLabel: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1401	isButton: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1402	isVisible: allowModifications
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1403	labelImage: (ResourceRetriever ProcessMonitorV2 processRaisePrio22x22Icon)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1404	)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1405	(MenuItem
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1406	label: ''
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1407	isVisible: allowModifications
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1408	)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1409	(MenuItem
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1410	activeHelpKey: #'Update Process List'
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1411	label: 'Update'
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1412	itemValue: updateList
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1413	translateLabel: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1414	isButton: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1415	startGroup: right
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1416	labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1417	)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1418	(MenuItem
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1419	activeHelpKey: Details
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1420	label: 'View Details'
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1421	translateLabel: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1422	isButton: true
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1423	startGroup: right
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1424	submenuChannel: viewDetailsMenuSpec
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1425	labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1426	)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1427	)
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1428	nil
89f48359c0dd menu button order Claus Gittinger <cg@exept.de> parents: 7811 diff changeset	1429	nil
4463 99d11fbee2af initial checkin penk parents: diff changeset	1430	)
99d11fbee2af initial checkin penk parents: diff changeset	1431	!
99d11fbee2af initial checkin penk parents: diff changeset	1432
99d11fbee2af initial checkin penk parents: diff changeset	1433	viewDetailsMenuSpec
99d11fbee2af initial checkin penk parents: diff changeset	1434	"This resource specification was automatically generated
99d11fbee2af initial checkin penk parents: diff changeset	1435	by the MenuEditor of ST/X."
99d11fbee2af initial checkin penk parents: diff changeset	1436
99d11fbee2af initial checkin penk parents: diff changeset	1437	"Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin penk parents: diff changeset	1438	the MenuEditor may not be able to read the specification."
99d11fbee2af initial checkin penk parents: diff changeset	1439
99d11fbee2af initial checkin penk parents: diff changeset	1440	"
99d11fbee2af initial checkin penk parents: diff changeset	1441	MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#viewDetailsMenuSpec
99d11fbee2af initial checkin penk parents: diff changeset	1442	(Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 viewDetailsMenuSpec)) startUp
99d11fbee2af initial checkin penk parents: diff changeset	1443	"
99d11fbee2af initial checkin penk parents: diff changeset	1444
99d11fbee2af initial checkin penk parents: diff changeset	1445	<resource: #menu>
99d11fbee2af initial checkin penk parents: diff changeset	1446
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1447	^
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1448	#(Menu
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1449	(
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1450	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1451	label: 'Id'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1452	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1453	hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1454	indication: showProcessId
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1455	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1456	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1457	label: 'Group'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1458	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1459	hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1460	indication: showGroup
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1461	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1462	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1463	label: 'State'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1464	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1465	hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1466	indication: showState
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1467	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1468	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1469	label: 'Prio'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1470	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1471	hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1472	indication: showPrio
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1473	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1474	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1475	label: 'Used Stack'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1476	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1477	hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1478	indication: showUsedStack
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1479	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1480	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1481	label: 'Total Stack'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1482	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1483	hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1484	indication: showTotalStack
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1485	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1486	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1487	label: 'Current-Segment'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1488	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1489	hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1490	indication: showCurrentSegment
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1491	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1492	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1493	label: 'Switch'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1494	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1495	hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1496	indication: showSwitch
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1497	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1498	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1499	label: 'Where'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1500	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1501	hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1502	indication: showWhere
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1503	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1504	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1505	label: 'Instrumentation'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1506	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1507	hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1508	indication: showInstrumentation
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1509	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1510	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1511	label: 'Application'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1512	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1513	hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1514	indication: showApplication
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1515	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1516	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1517	label: 'Window Title'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1518	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1519	hideMenuOnActivated: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1520	indication: showWindowTitle
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1521	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1522	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1523	label: '-'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1524	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1525	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1526	label: 'Show Dead Processes'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1527	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1528	indication: showDead
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1529	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1530	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1531	label: '-'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1532	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1533	(MenuItem
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1534	label: 'Update'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1535	itemValue: updateView
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1536	translateLabel: true
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1537	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1538	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1539	nil
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1540	nil
4463 99d11fbee2af initial checkin penk parents: diff changeset	1541	)
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1542
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1543	"Modified: / 17-08-2011 / 11:27:36 / cg"
4463 99d11fbee2af initial checkin penk parents: diff changeset	1544	! !
99d11fbee2af initial checkin penk parents: diff changeset	1545
99d11fbee2af initial checkin penk parents: diff changeset	1546	!ProcessMonitorV2 class methodsFor:'tableColumns specs'!
99d11fbee2af initial checkin penk parents: diff changeset	1547
99d11fbee2af initial checkin penk parents: diff changeset	1548	tableColumns
99d11fbee2af initial checkin penk parents: diff changeset	1549	"This resource specification was automatically generated
99d11fbee2af initial checkin penk parents: diff changeset	1550	by the DataSetBuilder of ST/X."
99d11fbee2af initial checkin penk parents: diff changeset	1551
99d11fbee2af initial checkin penk parents: diff changeset	1552	"Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin penk parents: diff changeset	1553	the DataSetBuilder may not be able to read the specification."
99d11fbee2af initial checkin penk parents: diff changeset	1554
99d11fbee2af initial checkin penk parents: diff changeset	1555	"
99d11fbee2af initial checkin penk parents: diff changeset	1556	DataSetBuilder new openOnClass:ProcessMonitorV2 andSelector:#tableColumns
99d11fbee2af initial checkin penk parents: diff changeset	1557	"
99d11fbee2af initial checkin penk parents: diff changeset	1558
99d11fbee2af initial checkin penk parents: diff changeset	1559	<resource: #tableColumns>
99d11fbee2af initial checkin penk parents: diff changeset	1560
99d11fbee2af initial checkin penk parents: diff changeset	1561	^#(
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1562	(DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1563	label: 'Id'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1564	id: id
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1565	labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1566	labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1567	labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1568	labelActionArgument: 'idVal'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1569	width: 45
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1570	type: number
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1571	model: processId
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1572	canSelect: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1573	showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1574	showColSeparator: false
4463 99d11fbee2af initial checkin penk parents: diff changeset	1575	)
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1576	(DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1577	label: 'Group'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1578	id: group
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1579	labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1580	labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1581	labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1582	labelActionArgument: 'groupVal'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1583	width: 45
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1584	model: processGroup
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1585	canSelect: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1586	showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1587	showColSeparator: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1588	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1589	(DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1590	label: 'Name'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1591	id: name
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1592	labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1593	labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1594	labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1595	labelActionArgument: 'processName'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1596	width: 200
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1597	model: processName
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1598	canSelect: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1599	showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1600	showColSeparator: false
4463 99d11fbee2af initial checkin penk parents: diff changeset	1601	)
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1602	(DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1603	label: ''
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1604	id: instrumentation
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1605	labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1606	activeHelpKey: 'processInstrumentation'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1607	activeHelpKeyForLabel: 'processInstrumentation'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1608	labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1609	labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1610	labelActionArgument: 'processInstrumentation'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1611	model: processInstrumentation
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1612	menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1613	canSelect: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1614	showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1615	showColSeparator: false
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1616	)
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1617	(DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1618	label: ''
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1619	id: active
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1620	activeHelpKey: 'processWasActive'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1621	activeHelpKeyForLabel: 'processWasActive'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1622	labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1623	labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1624	labelActionArgument: 'processActive'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1625	width: 10
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1626	height: 5
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1627	model: processActive
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1628	menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1629	canSelect: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1630	showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1631	showColSeparator: false
9526 2825b947679d comment/format in: #fillItemInformationIn: Claus Gittinger <cg@exept.de> parents: 9480 diff changeset	1632	)
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1633	(DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1634	label: 'State'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1635	id: state
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1636	labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1637	activeHelpKey: 'processState'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1638	labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1639	labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1640	labelActionArgument: 'processState'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1641	width: 100
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1642	model: processState
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1643	menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1644	canSelect: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1645	showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1646	showColSeparator: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1647	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1648	(DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1649	label: 'Prio'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1650	id: prio
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1651	labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1652	activeHelpKey: 'processPriority'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1653	labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1654	labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1655	labelActionArgument: 'prioVal'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1656	width: 40
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1657	model: processPrio
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1658	menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1659	canSelect: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1660	showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1661	showColSeparator: false
4463 99d11fbee2af initial checkin penk parents: diff changeset	1662	)
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1663	(DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1664	label: 'Used Stack'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1665	id: usedStack
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1666	labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1667	activeHelpKey: 'processUsedStack'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1668	labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1669	labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1670	labelActionArgument: 'processUsedStack'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1671	columnAlignment: right
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1672	width: 75
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1673	type: number
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1674	model: processUsedStack
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1675	menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1676	canSelect: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1677	showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1678	showColSeparator: false
4463 99d11fbee2af initial checkin penk parents: diff changeset	1679	)
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1680	(DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1681	label: 'Total Stack'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1682	id: totalStack
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1683	labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1684	activeHelpKey: 'processTotalStack'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1685	labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1686	labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1687	labelActionArgument: 'processTotalStack'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1688	columnAlignment: right
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1689	width: 75
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1690	model: processTotalStack
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1691	menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1692	canSelect: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1693	showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1694	showColSeparator: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1695	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1696	(DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1697	label: 'Current-Segment'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1698	id: currentSegment
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1699	labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1700	labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1701	labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1702	labelActionArgument: 'processCurrentSegment'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1703	width: 110
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1704	model: processCurrentSegment
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1705	canSelect: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1706	showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1707	showColSeparator: false
4463 99d11fbee2af initial checkin penk parents: diff changeset	1708	)
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1709	(DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1710	label: 'Switch'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1711	id: switch
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1712	labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1713	labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1714	labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1715	labelActionArgument: 'processSwitch'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1716	columnAlignment: right
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1717	width: 55
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1718	type: number
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1719	model: processSwitch
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1720	canSelect: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1721	showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1722	showColSeparator: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1723	)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1724	(DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1725	label: 'Where'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1726	id: where
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1727	labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1728	activeHelpKey: 'processWhere'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1729	labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1730	labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1731	labelActionArgument: 'processWhere'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1732	model: processWhere
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1733	menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1734	canSelect: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1735	showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1736	showColSeparator: false
4463 99d11fbee2af initial checkin penk parents: diff changeset	1737	)
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1738	(DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1739	label: 'Application'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1740	id: application
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1741	labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1742	activeHelpKey: 'processApplication'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1743	labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1744	labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1745	labelActionArgument: 'processApplication'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1746	model: processApplication
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1747	menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1748	canSelect: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1749	showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1750	showColSeparator: false
4463 99d11fbee2af initial checkin penk parents: diff changeset	1751	)
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1752	(DataSetColumnSpec
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1753	label: 'Window Title'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1754	id: windowTitle
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1755	labelAlignment: left
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1756	activeHelpKey: 'processWindowTitle'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1757	labelButtonType: Button
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1758	labelActionSelector: sortProcessListBy:
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1759	labelActionArgument: 'processWindowTitle'
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1760	model: processWindowTitle
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1761	menuFromApplication: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1762	canSelect: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1763	showRowSeparator: false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1764	showColSeparator: false
4463 99d11fbee2af initial checkin penk parents: diff changeset	1765	)
99d11fbee2af initial checkin penk parents: diff changeset	1766	)
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1767
4463 99d11fbee2af initial checkin penk parents: diff changeset	1768	! !
99d11fbee2af initial checkin penk parents: diff changeset	1769
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1770	!ProcessMonitorV2 methodsFor:'accessing'!
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1771
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1772	visibleBlock
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1773	^ visibleBlock
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1774	!
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1775
8651 56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	1776	visibleBlock:aProcessVisibleFilterBlock
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	1777	visibleBlock := aProcessVisibleFilterBlock.
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1778	! !
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1779
4463 99d11fbee2af initial checkin penk parents: diff changeset	1780	!ProcessMonitorV2 methodsFor:'actions'!
99d11fbee2af initial checkin penk parents: diff changeset	1781
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1782	changeSelectionTo:aSelection
8408 d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	1783	\| newSelection \|
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1784
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1785	aSelection notNil ifTrue:[
8408 d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	1786	newSelection := OrderedCollection new.
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	1787	aSelection do:[:processItem \|
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	1788	\| index \|
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	1789
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	1790	index := processList findFirst:[:anItem \| (anItem processInstance == processItem processInstance)].
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	1791	index ~~ 0 ifTrue:[
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	1792	newSelection add:(processList at:index).
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	1793	].
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	1794	].
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	1795	self selectedProcesses value:newSelection
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1796	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1797	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1798
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1799	changeSelectionToProcesses:aProcessList
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1800
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1801	aProcessList notNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1802	\| newSelection \|
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1803	newSelection := OrderedCollection new.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1804	aProcessList do:[:aProcess \|
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1805	\| index \|
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1806	index := processList findFirst:[:anItem \| (anItem processInstance == aProcess)].
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1807	index ~~ 0 ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1808	newSelection add:(processList at:index).
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1809	].
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1810	].
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1811	self selectedProcesses value:newSelection
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1812	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1813	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1814
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1815	decreaseupdateContentsDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1816
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1817	self updateContentsDelayTime value:(self scaledUpdateContentsDelayTime - 0.1).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1818	self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1819	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1820
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1821	decreaseupdateListDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1822
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1823	self updateListDelayTime value:(self scaledUpdateListDelayTime - 0.1).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1824	self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1825	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1826
4463 99d11fbee2af initial checkin penk parents: diff changeset	1827	doubleClickedAt:anItemIndex
99d11fbee2af initial checkin penk parents: diff changeset	1828	"open a debugger on the selected process"
99d11fbee2af initial checkin penk parents: diff changeset	1829
99d11fbee2af initial checkin penk parents: diff changeset	1830	self debugProcess
99d11fbee2af initial checkin penk parents: diff changeset	1831	!
99d11fbee2af initial checkin penk parents: diff changeset	1832
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1833	evaluateEnableInDecreaseButtons
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1834
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1835	\| contDelaySmallerListDelay \|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1836
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1837	contDelaySmallerListDelay := (self scaledUpdateContentsDelayTime < (self scaledUpdateListDelayTime)).
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1838	self enableDecreaseContentsDelayTime value:((self scaledUpdateContentsDelayTime <= 0.5) not).
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1839	self enableDecreaseListDelayTime value:contDelaySmallerListDelay.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1840	self enableIncreaseContentsDelayTime value:contDelaySmallerListDelay.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1841	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1842
4463 99d11fbee2af initial checkin penk parents: diff changeset	1843	getProcessList
99d11fbee2af initial checkin penk parents: diff changeset	1844	"select processes to display.
99d11fbee2af initial checkin penk parents: diff changeset	1845	Subclasses may redefine this"
99d11fbee2af initial checkin penk parents: diff changeset	1846
99d11fbee2af initial checkin penk parents: diff changeset	1847	\|coll\|
99d11fbee2af initial checkin penk parents: diff changeset	1848
5690 024838c5f342 Fix bug 44: Process allSubInstances was called all the time causing Stefan Vogel <sv@exept.de> parents: 5538 diff changeset	1849	self showDead value ifTrue:[
9480 c89920e683af changed: #getProcessList Stefan Vogel <sv@exept.de> parents: 9410 diff changeset	1850	coll := Process allSubInstances asOrderedCollection.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1851	] ifFalse:[
9480 c89920e683af changed: #getProcessList Stefan Vogel <sv@exept.de> parents: 9410 diff changeset	1852	coll := ProcessorScheduler knownProcesses asOrderedCollection.
c89920e683af changed: #getProcessList Stefan Vogel <sv@exept.de> parents: 9410 diff changeset	1853	coll add:Processor scheduler.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1854	].
99d11fbee2af initial checkin penk parents: diff changeset	1855	^ coll
99d11fbee2af initial checkin penk parents: diff changeset	1856	!
99d11fbee2af initial checkin penk parents: diff changeset	1857
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1858	increaseupdateContentsDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1859
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1860	self updateContentsDelayTime value:(self scaledUpdateContentsDelayTime + 0.1).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1861	self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1862	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1863
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1864	increaseupdateListDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1865
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1866	self updateListDelayTime value:(self scaledUpdateListDelayTime + 0.1).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1867	self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1868	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1869
4463 99d11fbee2af initial checkin penk parents: diff changeset	1870	selectedProcessesDo:aBlock
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1871	\| sel proc\|
4463 99d11fbee2af initial checkin penk parents: diff changeset	1872
99d11fbee2af initial checkin penk parents: diff changeset	1873	sel := self selectedProcesses value.
99d11fbee2af initial checkin penk parents: diff changeset	1874	sel isNil ifTrue:[^ self].
99d11fbee2af initial checkin penk parents: diff changeset	1875
99d11fbee2af initial checkin penk parents: diff changeset	1876	sel do:[:processItem \|
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1877	proc := processItem processInstance.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1878	proc notNil ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1879	aBlock value:proc.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1880	].
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1881	].
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1882
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1883	"Modified: / 07-06-2007 / 12:38:25 / cg"
4463 99d11fbee2af initial checkin penk parents: diff changeset	1884	!
99d11fbee2af initial checkin penk parents: diff changeset	1885
99d11fbee2af initial checkin penk parents: diff changeset	1886	selectedProcessesSend:aSelector
99d11fbee2af initial checkin penk parents: diff changeset	1887	"send a message to all selected processes"
99d11fbee2af initial checkin penk parents: diff changeset	1888
99d11fbee2af initial checkin penk parents: diff changeset	1889	self selectedProcessesDo:[:p \|
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1890	p perform:aSelector
4463 99d11fbee2af initial checkin penk parents: diff changeset	1891	].
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1892
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1893	self updateList.
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1894
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	1895	"Modified: / 07-06-2007 / 12:38:29 / cg"
4463 99d11fbee2af initial checkin penk parents: diff changeset	1896	! !
99d11fbee2af initial checkin penk parents: diff changeset	1897
99d11fbee2af initial checkin penk parents: diff changeset	1898	!ProcessMonitorV2 methodsFor:'aspects'!
99d11fbee2af initial checkin penk parents: diff changeset	1899
99d11fbee2af initial checkin penk parents: diff changeset	1900	currentSortOrder
99d11fbee2af initial checkin penk parents: diff changeset	1901	"return/create the 'currentSortOrder' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1902
99d11fbee2af initial checkin penk parents: diff changeset	1903	currentSortOrder isNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1904	currentSortOrder := Dictionary new asValue.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1905	].
99d11fbee2af initial checkin penk parents: diff changeset	1906	^ currentSortOrder
99d11fbee2af initial checkin penk parents: diff changeset	1907	!
99d11fbee2af initial checkin penk parents: diff changeset	1908
99d11fbee2af initial checkin penk parents: diff changeset	1909	processList
99d11fbee2af initial checkin penk parents: diff changeset	1910
99d11fbee2af initial checkin penk parents: diff changeset	1911	processList isNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1912	processList := List new.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1913	].
99d11fbee2af initial checkin penk parents: diff changeset	1914	^ processList.
99d11fbee2af initial checkin penk parents: diff changeset	1915	!
99d11fbee2af initial checkin penk parents: diff changeset	1916
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1917	scaledUpdateContentsDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1918
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1919	^ self updateContentsDelayTime value asFloat asFixedPoint:1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1920	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1921
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1922	scaledUpdateListDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1923
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1924	^ self updateListDelayTime value asFloat asFixedPoint:1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1925	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1926
4463 99d11fbee2af initial checkin penk parents: diff changeset	1927	selectedProcesses
99d11fbee2af initial checkin penk parents: diff changeset	1928
99d11fbee2af initial checkin penk parents: diff changeset	1929	selectedProcesses isNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1930	selectedProcesses := ValueHolder new.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1931	selectedProcesses addDependent:self.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1932	].
99d11fbee2af initial checkin penk parents: diff changeset	1933	^ selectedProcesses.
99d11fbee2af initial checkin penk parents: diff changeset	1934	!
99d11fbee2af initial checkin penk parents: diff changeset	1935
99d11fbee2af initial checkin penk parents: diff changeset	1936	showDead
99d11fbee2af initial checkin penk parents: diff changeset	1937	"return/create the 'showDead' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1938
99d11fbee2af initial checkin penk parents: diff changeset	1939	showDead isNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1940	showDead := false asValue.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1941	showDead addDependent:self.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1942	].
99d11fbee2af initial checkin penk parents: diff changeset	1943	^ showDead
99d11fbee2af initial checkin penk parents: diff changeset	1944	!
99d11fbee2af initial checkin penk parents: diff changeset	1945
99d11fbee2af initial checkin penk parents: diff changeset	1946	sortBlock
99d11fbee2af initial checkin penk parents: diff changeset	1947
99d11fbee2af initial checkin penk parents: diff changeset	1948	sortBlock isNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1949	\| curSortOrder defaultSortInstance\|
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1950	defaultSortInstance := #idVal.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1951	sortBlock := [:a :b \|
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1952	((a perform:defaultSortInstance) < (b perform:defaultSortInstance))
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1953	].
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1954	curSortOrder := self currentSortOrder value.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1955	curSortOrder at:#column put:defaultSortInstance.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1956	curSortOrder at:#reverse put:true.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1957	].
99d11fbee2af initial checkin penk parents: diff changeset	1958	^ sortBlock
99d11fbee2af initial checkin penk parents: diff changeset	1959	!
99d11fbee2af initial checkin penk parents: diff changeset	1960
99d11fbee2af initial checkin penk parents: diff changeset	1961	tableColumns
99d11fbee2af initial checkin penk parents: diff changeset	1962
99d11fbee2af initial checkin penk parents: diff changeset	1963	tableColumns isNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1964	tableColumns := self class tableColumns asValue.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1965	].
99d11fbee2af initial checkin penk parents: diff changeset	1966	^ tableColumns.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1967	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1968
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1969	updateContentsDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1970
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1971	updateContentsDelayTime isNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1972	updateContentsDelayTime := updateDelay asValue.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1973	updateContentsDelayTime onChangeSend:#evaluateEnableInDecreaseButtons to:self.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1974	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1975	^ updateContentsDelayTime.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1976	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1977
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1978	updateListDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1979
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1980	updateListDelayTime isNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1981	updateListDelayTime := listUpdateDelay asValue.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	1982	updateListDelayTime onChangeSend:#evaluateEnableInDecreaseButtons to:self.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1983	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1984	^ updateListDelayTime.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1985	! !
99d11fbee2af initial checkin penk parents: diff changeset	1986
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1987	!ProcessMonitorV2 methodsFor:'aspects-column'!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1988
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1989	showApplication
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1990	"return/create the 'showApplication' value holder (automatically generated)"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1991
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1992	showApplication isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1993	showApplication := false asValue.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1994	showApplication onChangeSend:#viewedColumnsChanged to:self
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1995	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1996	^ showApplication
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1997
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1998	"Created: / 17-08-2011 / 10:46:56 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	1999	!
4463 99d11fbee2af initial checkin penk parents: diff changeset	2000
99d11fbee2af initial checkin penk parents: diff changeset	2001	showCurrentSegment
99d11fbee2af initial checkin penk parents: diff changeset	2002	"return/create the 'showCurrentSegment' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2003
99d11fbee2af initial checkin penk parents: diff changeset	2004	showCurrentSegment isNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2005	showCurrentSegment := showDetail asValue.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2006	showCurrentSegment onChangeSend:#viewedColumnsChanged to:self.
4463 99d11fbee2af initial checkin penk parents: diff changeset	2007	].
99d11fbee2af initial checkin penk parents: diff changeset	2008	^ showCurrentSegment
99d11fbee2af initial checkin penk parents: diff changeset	2009	!
99d11fbee2af initial checkin penk parents: diff changeset	2010
99d11fbee2af initial checkin penk parents: diff changeset	2011	showGroup
99d11fbee2af initial checkin penk parents: diff changeset	2012	"return/create the 'showGroup' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2013
99d11fbee2af initial checkin penk parents: diff changeset	2014	showGroup isNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2015	showGroup := true asValue.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2016	showGroup onChangeSend:#viewedColumnsChanged to:self.
4463 99d11fbee2af initial checkin penk parents: diff changeset	2017	].
99d11fbee2af initial checkin penk parents: diff changeset	2018	^ showGroup
99d11fbee2af initial checkin penk parents: diff changeset	2019	!
99d11fbee2af initial checkin penk parents: diff changeset	2020
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2021	showInstrumentation
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2022	"return/create the 'showInstrumentation' value holder (automatically generated)"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2023
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2024	showInstrumentation isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2025	showInstrumentation := true asValue.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2026	showInstrumentation onChangeSend:#viewedColumnsChanged to:self
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2027	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2028	^ showInstrumentation
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2029
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2030	"Created: / 17-08-2011 / 10:46:27 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2031	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2032
4463 99d11fbee2af initial checkin penk parents: diff changeset	2033	showPrio
99d11fbee2af initial checkin penk parents: diff changeset	2034	"return/create the 'showPrio' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2035
99d11fbee2af initial checkin penk parents: diff changeset	2036	showPrio isNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2037	showPrio := true asValue.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2038	showPrio onChangeSend:#viewedColumnsChanged to:self.
4463 99d11fbee2af initial checkin penk parents: diff changeset	2039	].
99d11fbee2af initial checkin penk parents: diff changeset	2040	^ showPrio
99d11fbee2af initial checkin penk parents: diff changeset	2041	!
99d11fbee2af initial checkin penk parents: diff changeset	2042
99d11fbee2af initial checkin penk parents: diff changeset	2043	showProcessId
99d11fbee2af initial checkin penk parents: diff changeset	2044
99d11fbee2af initial checkin penk parents: diff changeset	2045	showProcessId isNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2046	showProcessId := true asValue.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2047	showProcessId onChangeSend:#viewedColumnsChanged to:self
4463 99d11fbee2af initial checkin penk parents: diff changeset	2048	].
99d11fbee2af initial checkin penk parents: diff changeset	2049	^ showProcessId
99d11fbee2af initial checkin penk parents: diff changeset	2050	!
99d11fbee2af initial checkin penk parents: diff changeset	2051
99d11fbee2af initial checkin penk parents: diff changeset	2052	showState
99d11fbee2af initial checkin penk parents: diff changeset	2053	"return/create the 'showState' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2054
99d11fbee2af initial checkin penk parents: diff changeset	2055	showState isNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2056	showState := true asValue.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2057	showState onChangeSend:#viewedColumnsChanged to:self
4463 99d11fbee2af initial checkin penk parents: diff changeset	2058	].
99d11fbee2af initial checkin penk parents: diff changeset	2059	^ showState
99d11fbee2af initial checkin penk parents: diff changeset	2060	!
99d11fbee2af initial checkin penk parents: diff changeset	2061
99d11fbee2af initial checkin penk parents: diff changeset	2062	showSwitch
99d11fbee2af initial checkin penk parents: diff changeset	2063	"return/create the 'showSwitch' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2064
99d11fbee2af initial checkin penk parents: diff changeset	2065	showSwitch isNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2066	showSwitch := showDetail asValue.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2067	showSwitch onChangeSend:#viewedColumnsChanged to:self
4463 99d11fbee2af initial checkin penk parents: diff changeset	2068	].
99d11fbee2af initial checkin penk parents: diff changeset	2069	^ showSwitch
99d11fbee2af initial checkin penk parents: diff changeset	2070	!
99d11fbee2af initial checkin penk parents: diff changeset	2071
99d11fbee2af initial checkin penk parents: diff changeset	2072	showTotalStack
99d11fbee2af initial checkin penk parents: diff changeset	2073	"return/create the 'showTotalStack' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2074
99d11fbee2af initial checkin penk parents: diff changeset	2075	showTotalStack isNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2076	showTotalStack := showDetail asValue.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2077	showTotalStack onChangeSend:#viewedColumnsChanged to:self
4463 99d11fbee2af initial checkin penk parents: diff changeset	2078	].
99d11fbee2af initial checkin penk parents: diff changeset	2079	^ showTotalStack
99d11fbee2af initial checkin penk parents: diff changeset	2080	!
99d11fbee2af initial checkin penk parents: diff changeset	2081
99d11fbee2af initial checkin penk parents: diff changeset	2082	showUsedStack
99d11fbee2af initial checkin penk parents: diff changeset	2083	"return/create the 'showUsedStack' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2084
99d11fbee2af initial checkin penk parents: diff changeset	2085	showUsedStack isNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2086	showUsedStack := showDetail asValue.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2087	showUsedStack onChangeSend:#viewedColumnsChanged to:self
4463 99d11fbee2af initial checkin penk parents: diff changeset	2088	].
99d11fbee2af initial checkin penk parents: diff changeset	2089	^ showUsedStack
99d11fbee2af initial checkin penk parents: diff changeset	2090	!
99d11fbee2af initial checkin penk parents: diff changeset	2091
99d11fbee2af initial checkin penk parents: diff changeset	2092	showWhere
99d11fbee2af initial checkin penk parents: diff changeset	2093	"return/create the 'showWhere' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2094
99d11fbee2af initial checkin penk parents: diff changeset	2095	showWhere isNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2096	showWhere := true asValue.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2097	showWhere onChangeSend:#viewedColumnsChanged to:self
4463 99d11fbee2af initial checkin penk parents: diff changeset	2098	].
99d11fbee2af initial checkin penk parents: diff changeset	2099	^ showWhere
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2100	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2101
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2102	showWindowTitle
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2103	"return/create the 'showWindowTitle' value holder (automatically generated)"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2104
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2105	showWindowTitle isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2106	showWindowTitle := false asValue.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2107	showWindowTitle onChangeSend:#viewedColumnsChanged to:self
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2108	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2109	^ showWindowTitle
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2110
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2111	"Created: / 17-08-2011 / 10:46:47 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2112	! !
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2113
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2114	!ProcessMonitorV2 methodsFor:'aspects-menu enabling'!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2115
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2116	allowModifications
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2117
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2118	allowModifications isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2119	allowModifications := true asValue
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2120	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2121	^ allowModifications
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2122	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2123
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2124	allowModificationsAndHasDebugger
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2125	^ BlockValue
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2126	forLogical:(self allowModifications)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2127	and:[ Debugger notNil ]
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2128	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2129
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2130	enableDecreaseContentsDelayTime
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2131
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2132	enableDecreaseContentsDelayTime isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2133	enableDecreaseContentsDelayTime := true asValue.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2134	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2135	^ enableDecreaseContentsDelayTime.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2136	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2137
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2138	enableDecreaseListDelayTime
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2139
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2140	enableDecreaseListDelayTime isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2141	enableDecreaseListDelayTime := true asValue.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2142	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2143	^ enableDecreaseListDelayTime.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2144	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2145
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2146	enableIncreaseContentsDelayTime
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2147
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2148	enableIncreaseContentsDelayTime isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2149	enableIncreaseContentsDelayTime := true asValue.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2150	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2151	^ enableIncreaseContentsDelayTime.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2152	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2153
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2154	enableIncreaseListDelayTime
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2155
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2156	enableIncreaseListDelayTime isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2157	enableIncreaseListDelayTime := true asValue.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2158	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2159	^ enableIncreaseListDelayTime.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2160	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2161
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2162	hasSelection
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2163	^ self selectedProcesses value notEmptyOrNil
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2164
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2165	"Modified: / 05-06-2007 / 17:43:58 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2166	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2167
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2168	hasSelectionHolder
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2169	^ hasSelectionHolder
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2170
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2171	"Created: / 05-06-2007 / 17:41:54 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2172	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2173
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2174	hasSelectionWithApplicationProcess
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2175	^ self hasSelectionWithProcessForWhich:[:p \|self isApplicationProcess:p ]
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2176
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2177	"Created: / 05-06-2007 / 17:50:37 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2178	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2179
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2180	hasSelectionWithApplicationProcessHolder
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2181	^ hasSelectionWithApplicationProcessHolder
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2182
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2183	"Created: / 05-06-2007 / 17:50:31 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2184	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2185
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2186	hasSelectionWithDisabledInstrumentation
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2187	InstrumentationContext isNil ifTrue:[^ false].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2188
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2189	^ self hasSelectionWithProcessForWhich:[:p \| (InstrumentationContext forProcess:p) isNil ]
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2190
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2191	"Created: / 17-08-2011 / 11:42:19 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2192	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2193
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2194	hasSelectionWithDisabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2195	^ hasSelectionWithDisabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2196
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2197	"Created: / 17-08-2011 / 11:49:35 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2198	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2199
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2200	hasSelectionWithEnabledInstrumentation
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2201	InstrumentationContext isNil ifTrue:[^ false].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2202
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2203	^ self hasSelectionWithProcessForWhich:[:p \| (InstrumentationContext forProcess:p) notNil ]
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2204
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2205	"Created: / 17-08-2011 / 11:42:08 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2206	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2207
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2208	hasSelectionWithEnabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2209	^ hasSelectionWithEnabledInstrumentationHolder
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2210
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2211	"Created: / 17-08-2011 / 11:49:39 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2212	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2213
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2214	hasSelectionWithGUIProcess
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2215	^ self hasSelectionWithProcessForWhich:[:p \|p isGUIProcess ]
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2216
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2217	"Created: / 05-06-2007 / 17:52:10 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2218	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2219
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2220	hasSelectionWithGUIProcessHolder
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2221	^ hasSelectionWithGUIProcessHolder
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2222
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2223	"Created: / 05-06-2007 / 17:52:01 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2224	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2225
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2226	hasSelectionWithProcessForWhich:aBlock
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2227	^ self hasSelection
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2228	and:[ self selectedProcesses value contains:[:pItem \|
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2229	\|process\|
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2230
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2231	process := pItem processInstance.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2232	process notNil and:[ aBlock value:process ]] ]
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2233
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2234	"Created: / 05-06-2007 / 17:40:27 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2235	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2236
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2237	hasSelectionWithStoppedProcess
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2238	^ self hasSelectionWithProcessForWhich:[:p \|p isStopped ]
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2239
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2240	"Modified: / 05-06-2007 / 17:40:42 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2241	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2242
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2243	hasSelectionWithStoppedProcessHolder
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2244	^ hasSelectionWithStoppedProcessHolder
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2245
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2246	"Created: / 05-06-2007 / 17:42:41 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2247	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2248
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2249	selectionRestartable
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2250
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2251	selectionRestartable isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2252	selectionRestartable := ValueHolder new.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2253	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2254	^ selectionRestartable
4463 99d11fbee2af initial checkin penk parents: diff changeset	2255	! !
99d11fbee2af initial checkin penk parents: diff changeset	2256
99d11fbee2af initial checkin penk parents: diff changeset	2257	!ProcessMonitorV2 methodsFor:'change & update'!
99d11fbee2af initial checkin penk parents: diff changeset	2258
99d11fbee2af initial checkin penk parents: diff changeset	2259	selectionChanged
99d11fbee2af initial checkin penk parents: diff changeset	2260
7809 ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	2261	\|hasSelection allRestartable\|
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	2262
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	2263	hasSelection := self hasSelection.
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	2264
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2265	hasSelectionHolder value:hasSelection.
7809 ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	2266
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	2267	hasSelection ifFalse:[
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2268	self selectionRestartable value:false.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2269	hasSelectionWithStoppedProcessHolder value:false.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2270	hasSelectionWithApplicationProcessHolder value:false.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2271	hasSelectionWithGUIProcessHolder value:false.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2272	hasSelectionWithEnabledInstrumentationHolder value:false.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2273	hasSelectionWithDisabledInstrumentationHolder value:false.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2274	^ self
4463 99d11fbee2af initial checkin penk parents: diff changeset	2275	].
7809 ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	2276
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2277	hasSelectionWithStoppedProcessHolder value:self hasSelectionWithStoppedProcess.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2278	hasSelectionWithApplicationProcessHolder value:self hasSelectionWithApplicationProcess.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2279	hasSelectionWithGUIProcessHolder value:self hasSelectionWithGUIProcess.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2280	hasSelectionWithEnabledInstrumentationHolder value:self hasSelectionWithEnabledInstrumentation.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2281	hasSelectionWithDisabledInstrumentationHolder value:self hasSelectionWithDisabledInstrumentation.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2282
4463 99d11fbee2af initial checkin penk parents: diff changeset	2283	allRestartable := true.
99d11fbee2af initial checkin penk parents: diff changeset	2284	self selectedProcessesDo:[:p \|
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2285	p isRestartable ifFalse:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2286	allRestartable := false
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2287	].
4463 99d11fbee2af initial checkin penk parents: diff changeset	2288	].
99d11fbee2af initial checkin penk parents: diff changeset	2289	self selectionRestartable value:allRestartable.
99d11fbee2af initial checkin penk parents: diff changeset	2290	^ self.
7809 ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	2291
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2292	"Modified: / 17-08-2011 / 11:41:32 / cg"
4463 99d11fbee2af initial checkin penk parents: diff changeset	2293	!
99d11fbee2af initial checkin penk parents: diff changeset	2294
99d11fbee2af initial checkin penk parents: diff changeset	2295	update:something with:aParameter from:changedObject
99d11fbee2af initial checkin penk parents: diff changeset	2296	"Invoked when an object that I depend upon sends a change notification."
99d11fbee2af initial checkin penk parents: diff changeset	2297
99d11fbee2af initial checkin penk parents: diff changeset	2298	"stub code automatically generated - please change as required"
99d11fbee2af initial checkin penk parents: diff changeset	2299
4565 7162b6a896e6 * empty log message * penk parents: 4561 diff changeset	2300	changedObject == builder window ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2301	something == #visibility ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2302	self updateList.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2303	].
4565 7162b6a896e6 * empty log message * penk parents: 4561 diff changeset	2304	].
4463 99d11fbee2af initial checkin penk parents: diff changeset	2305	changedObject == self selectedProcesses ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2306	self selectionChanged.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2307	^ self
4463 99d11fbee2af initial checkin penk parents: diff changeset	2308	].
99d11fbee2af initial checkin penk parents: diff changeset	2309	changedObject == self showDead ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2310	self updateList.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2311	^ self
4463 99d11fbee2af initial checkin penk parents: diff changeset	2312	].
99d11fbee2af initial checkin penk parents: diff changeset	2313	super update:something with:aParameter from:changedObject
99d11fbee2af initial checkin penk parents: diff changeset	2314	!
99d11fbee2af initial checkin penk parents: diff changeset	2315
99d11fbee2af initial checkin penk parents: diff changeset	2316	viewedColumnsChanged
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2317	\| columns buffer locCurrentSortOrder currentSortOrderColumn currentSortOrderReverse oldSelection sel\|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2318
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2319	"/ remember the selected processes
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2320	sel := self selectedProcesses value.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2321	sel notNil ifTrue:[
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2322	oldSelection := OrderedCollection new.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2323	sel do:[:proItem\|
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2324	\|process\|
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2325
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2326	(process := proItem processInstance) notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2327	oldSelection add:process
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2328	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2329	].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2330	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2331	"/ Transcript showCR:'oldSelection on catch in viewedColumnsChanged', (oldSelection isNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
4463 99d11fbee2af initial checkin penk parents: diff changeset	2332	columns := OrderedCollection new.
99d11fbee2af initial checkin penk parents: diff changeset	2333	self class tableColumns do:[:el\|
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2334	columns add:(DataSetColumnSpec decodeFromLiteralArray:el).
4463 99d11fbee2af initial checkin penk parents: diff changeset	2335	].
99d11fbee2af initial checkin penk parents: diff changeset	2336	buffer := columns copy.
99d11fbee2af initial checkin penk parents: diff changeset	2337	locCurrentSortOrder := self currentSortOrder value.
99d11fbee2af initial checkin penk parents: diff changeset	2338	currentSortOrderColumn := locCurrentSortOrder at:#column ifAbsent:nil.
99d11fbee2af initial checkin penk parents: diff changeset	2339	currentSortOrderReverse := locCurrentSortOrder at:#reverse ifAbsent:nil.
99d11fbee2af initial checkin penk parents: diff changeset	2340	buffer do:[:col \|
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2341	\| id \|
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2342	id := col id.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2343	id notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2344	(col labelActionArgument notNil and:[col labelActionArgument asSymbol == currentSortOrderColumn]) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2345	\| label icon\|
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2346	label := col label.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2347	icon := currentSortOrderReverse ifTrue:[self class detailsMenuIconDown] ifFalse:[self class detailsMenuIconUp].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2348	col label:(LabelAndIcon label:label icon:icon).
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2349	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2350	#(
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2351	( #id #showProcessId)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2352	( #group #showGroup)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2353	( #prio #showPrio)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2354	( #currentSegment #showCurrentSegment)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2355	( #state #showState)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2356	( #switch #showSwitch)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2357	( #totalStack #showTotalStack)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2358	( #usedStack #showUsedStack)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2359	( #where #showWhere)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2360	( #application #showApplication)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2361	( #windowTitle #showWindowTitle)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2362	( #instrumentation #showInstrumentation)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2363	) pairsDo:[:colName :holderAccessorSelector \|
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2364	(id == colName and:[(self perform:holderAccessorSelector) value not]) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2365	columns remove:col.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2366	]
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2367	]
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2368	]
4463 99d11fbee2af initial checkin penk parents: diff changeset	2369	].
99d11fbee2af initial checkin penk parents: diff changeset	2370	updateSema critical:[
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2371	self tableColumns value:columns.
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2372	"/ self updateTable:nil.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2373	"/ Transcript showCR:'oldSelection on set in viewedColumnsChanged', (oldSelection isNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2374	self changeSelectionToProcesses:oldSelection.
4463 99d11fbee2af initial checkin penk parents: diff changeset	2375	].
7767 1547d2d2005c use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 7757 diff changeset	2376
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2377	"Modified: / 17-08-2011 / 11:11:21 / cg"
4463 99d11fbee2af initial checkin penk parents: diff changeset	2378	! !
99d11fbee2af initial checkin penk parents: diff changeset	2379
99d11fbee2af initial checkin penk parents: diff changeset	2380	!ProcessMonitorV2 methodsFor:'event handling'!
99d11fbee2af initial checkin penk parents: diff changeset	2381
99d11fbee2af initial checkin penk parents: diff changeset	2382	processEvent:anEvent
99d11fbee2af initial checkin penk parents: diff changeset	2383	"filter keyboard events.
99d11fbee2af initial checkin penk parents: diff changeset	2384	Return true, if I have eaten the event"
99d11fbee2af initial checkin penk parents: diff changeset	2385
99d11fbee2af initial checkin penk parents: diff changeset	2386	\|focusView key rawKey\|
99d11fbee2af initial checkin penk parents: diff changeset	2387
99d11fbee2af initial checkin penk parents: diff changeset	2388	anEvent isKeyPressEvent ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2389	focusView := anEvent targetView.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2390	key := anEvent key.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2391	rawKey := anEvent rawKey.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2392
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2393	(focusView == processList) ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2394	key == #InspectIt ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2395	self inspectSelection.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2396	^ true.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2397	].
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2398	]
4463 99d11fbee2af initial checkin penk parents: diff changeset	2399	].
99d11fbee2af initial checkin penk parents: diff changeset	2400	^ false
99d11fbee2af initial checkin penk parents: diff changeset	2401	! !
99d11fbee2af initial checkin penk parents: diff changeset	2402
99d11fbee2af initial checkin penk parents: diff changeset	2403	!ProcessMonitorV2 methodsFor:'initialization & release'!
99d11fbee2af initial checkin penk parents: diff changeset	2404
8651 56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	2405	commonPostOpen
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	2406
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	2407	super commonPostOpen.
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	2408
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	2409	builder window addDependent:self.
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	2410	self viewedColumnsChanged.
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	2411	self updateList.
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	2412	self startUpdateProcess.
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	2413	self selectionChanged.
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	2414	self sortProcessListBy:#idVal.
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	2415	self windowGroup addPreEventHook:self.
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	2416	!
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	2417
4463 99d11fbee2af initial checkin penk parents: diff changeset	2418	initialize
99d11fbee2af initial checkin penk parents: diff changeset	2419
99d11fbee2af initial checkin penk parents: diff changeset	2420	super initialize.
99d11fbee2af initial checkin penk parents: diff changeset	2421
7809 ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	2422	hasSelectionHolder := false asValue.
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	2423	hasSelectionWithStoppedProcessHolder := false asValue.
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	2424	hasSelectionWithApplicationProcessHolder := false asValue.
ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	2425	hasSelectionWithGUIProcessHolder := false asValue.
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2426	hasSelectionWithDisabledInstrumentationHolder := false asValue.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2427	hasSelectionWithEnabledInstrumentationHolder := false asValue.
7809 ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	2428
4463 99d11fbee2af initial checkin penk parents: diff changeset	2429	showDetail := (Smalltalk at:#SystemDebugging ifAbsent:false).
99d11fbee2af initial checkin penk parents: diff changeset	2430	updateSema := Semaphore forMutualExclusion.
99d11fbee2af initial checkin penk parents: diff changeset	2431	updateDelay := 0.5.
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2432	listUpdateDelay := 5.0.
4463 99d11fbee2af initial checkin penk parents: diff changeset	2433
99d11fbee2af initial checkin penk parents: diff changeset	2434	"/ event mode is no longer used;
99d11fbee2af initial checkin penk parents: diff changeset	2435	"/ this event support may vanish
99d11fbee2af initial checkin penk parents: diff changeset	2436	Processor isPureEventDriven ifTrue:[
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2437	updateBlock := [self updateStatus:nil].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2438	listUpdateBlock := [self updateList].
4463 99d11fbee2af initial checkin penk parents: diff changeset	2439	].
7809 ccba7bb6bfde +raise window function Claus Gittinger <cg@exept.de> parents: 7767 diff changeset	2440
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2441	"Modified: / 17-08-2011 / 11:39:13 / cg"
4463 99d11fbee2af initial checkin penk parents: diff changeset	2442	!
99d11fbee2af initial checkin penk parents: diff changeset	2443
99d11fbee2af initial checkin penk parents: diff changeset	2444	postBuildProcessTable:aWidget
99d11fbee2af initial checkin penk parents: diff changeset	2445
99d11fbee2af initial checkin penk parents: diff changeset	2446	processTable := aWidget scrolledView.
99d11fbee2af initial checkin penk parents: diff changeset	2447	processTable wantsFocusWithPointerEnter.
99d11fbee2af initial checkin penk parents: diff changeset	2448	!
99d11fbee2af initial checkin penk parents: diff changeset	2449
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2450	release
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2451	updateBlock notNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2452	Processor removeTimedBlock:updateBlock.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2453	updateBlock := nil.
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2454	].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2455	listUpdateBlock notNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2456	Processor removeTimedBlock:listUpdateBlock.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2457	listUpdateBlock := nil.
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2458	].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2459	updateProcess notNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2460	updateProcess terminate.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2461	updateProcess := nil.
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2462	].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2463	super release
6234 f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	2464	!
f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	2465
f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	2466	restarted
f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	2467	"restarted from snapshot"
f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	2468
f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	2469	super restarted.
f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	2470	self startUpdateProcess.
4463 99d11fbee2af initial checkin penk parents: diff changeset	2471	! !
99d11fbee2af initial checkin penk parents: diff changeset	2472
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	2473	!ProcessMonitorV2 methodsFor:'menu accessing'!
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	2474
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	2475	tableMenu
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	2476
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	2477	^[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2478	self tableMenuAccess
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	2479	]
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	2480	!
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	2481
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	2482	tableMenuAccess
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	2483	self allowModifications value ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2484	tableMenu isNil ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2485	tableMenu := Menu decodeFromLiteralArray:(self class tableMenu).
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2486	tableMenu receiver:self.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2487	tableMenu findGuiResourcesIn:self.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2488	].
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2489	^ tableMenu
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	2490	].
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	2491	^ nil
7767 1547d2d2005c use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 7757 diff changeset	2492
1547d2d2005c use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 7757 diff changeset	2493	"Modified: / 27-03-2007 / 08:43:43 / cg"
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	2494	! !
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	2495
4463 99d11fbee2af initial checkin penk parents: diff changeset	2496	!ProcessMonitorV2 methodsFor:'menu actions'!
99d11fbee2af initial checkin penk parents: diff changeset	2497
99d11fbee2af initial checkin penk parents: diff changeset	2498	abortProcess
99d11fbee2af initial checkin penk parents: diff changeset	2499	"abort (raise AbortSignal in) the selected process"
99d11fbee2af initial checkin penk parents: diff changeset	2500
99d11fbee2af initial checkin penk parents: diff changeset	2501	self selectedProcessesDo:[:p \|
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2502	p abort
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2503	].
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2504	self updateList.
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2505
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2506	"Modified: / 07-06-2007 / 12:38:42 / cg"
4463 99d11fbee2af initial checkin penk parents: diff changeset	2507	!
99d11fbee2af initial checkin penk parents: diff changeset	2508
99d11fbee2af initial checkin penk parents: diff changeset	2509	hardTerminateProcess
99d11fbee2af initial checkin penk parents: diff changeset	2510	"hard terminate the selected process"
99d11fbee2af initial checkin penk parents: diff changeset	2511
99d11fbee2af initial checkin penk parents: diff changeset	2512	self selectedProcessesSend:#terminateNoSignal
99d11fbee2af initial checkin penk parents: diff changeset	2513	!
99d11fbee2af initial checkin penk parents: diff changeset	2514
99d11fbee2af initial checkin penk parents: diff changeset	2515	lowerPrio
99d11fbee2af initial checkin penk parents: diff changeset	2516	"lower the selected processes priority"
99d11fbee2af initial checkin penk parents: diff changeset	2517
99d11fbee2af initial checkin penk parents: diff changeset	2518	self selectedProcessesDo:[:p \|
99d11fbee2af initial checkin penk parents: diff changeset	2519	p priority:(p priority - 1)
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2520	].
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2521	self updateList.
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2522
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2523	"Modified: / 07-06-2007 / 12:38:50 / cg"
4463 99d11fbee2af initial checkin penk parents: diff changeset	2524	!
99d11fbee2af initial checkin penk parents: diff changeset	2525
99d11fbee2af initial checkin penk parents: diff changeset	2526	openDocumentation
99d11fbee2af initial checkin penk parents: diff changeset	2527	"This method was generated by the Browser.
99d11fbee2af initial checkin penk parents: diff changeset	2528	It will be invoked when the menu-item 'help-documentation' is selected."
99d11fbee2af initial checkin penk parents: diff changeset	2529
99d11fbee2af initial checkin penk parents: diff changeset	2530	"/ change below as required ...
99d11fbee2af initial checkin penk parents: diff changeset	2531
99d11fbee2af initial checkin penk parents: diff changeset	2532	"/ to open an HTML viewer on some document (under 'doc/online/<language>/' ):
4561 893af000a82d * empty log message * Claus Gittinger <cg@exept.de> parents: 4505 diff changeset	2533	HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#PROCESSMONITOR'.
4463 99d11fbee2af initial checkin penk parents: diff changeset	2534
99d11fbee2af initial checkin penk parents: diff changeset	2535	"/ add application-specific help files under the 'doc/online/<language>/help/appName'
99d11fbee2af initial checkin penk parents: diff changeset	2536	"/ directory, and open a viewer with:
99d11fbee2af initial checkin penk parents: diff changeset	2537	"/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'.
99d11fbee2af initial checkin penk parents: diff changeset	2538	!
99d11fbee2af initial checkin penk parents: diff changeset	2539
99d11fbee2af initial checkin penk parents: diff changeset	2540	raisePrio
99d11fbee2af initial checkin penk parents: diff changeset	2541	"raise the selected processes priority"
99d11fbee2af initial checkin penk parents: diff changeset	2542
99d11fbee2af initial checkin penk parents: diff changeset	2543	self selectedProcessesDo:[:p \|
99d11fbee2af initial checkin penk parents: diff changeset	2544	p priority:(p priority + 1)
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2545	].
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2546	self updateList.
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2547
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2548	"Modified: / 07-06-2007 / 12:38:57 / cg"
4463 99d11fbee2af initial checkin penk parents: diff changeset	2549	!
99d11fbee2af initial checkin penk parents: diff changeset	2550
99d11fbee2af initial checkin penk parents: diff changeset	2551	restartProcess
99d11fbee2af initial checkin penk parents: diff changeset	2552	"abort (raise AbortSignal in) the selected process"
99d11fbee2af initial checkin penk parents: diff changeset	2553
99d11fbee2af initial checkin penk parents: diff changeset	2554	self selectedProcessesDo:[:p \|
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2555	p restart.
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2556	].
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2557	self updateList.
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2558
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2559	"Modified: / 07-06-2007 / 12:39:04 / cg"
4463 99d11fbee2af initial checkin penk parents: diff changeset	2560	!
99d11fbee2af initial checkin penk parents: diff changeset	2561
99d11fbee2af initial checkin penk parents: diff changeset	2562	resumeProcess
99d11fbee2af initial checkin penk parents: diff changeset	2563	"resume the selected process (i.e. let it run) "
99d11fbee2af initial checkin penk parents: diff changeset	2564
99d11fbee2af initial checkin penk parents: diff changeset	2565	self selectedProcessesSend:#resume
99d11fbee2af initial checkin penk parents: diff changeset	2566	!
99d11fbee2af initial checkin penk parents: diff changeset	2567
99d11fbee2af initial checkin penk parents: diff changeset	2568	stopProcess
99d11fbee2af initial checkin penk parents: diff changeset	2569	"stop the selected process - not even interrupts will wake it up"
99d11fbee2af initial checkin penk parents: diff changeset	2570
99d11fbee2af initial checkin penk parents: diff changeset	2571	self selectedProcessesSend:#stop
99d11fbee2af initial checkin penk parents: diff changeset	2572	!
99d11fbee2af initial checkin penk parents: diff changeset	2573
99d11fbee2af initial checkin penk parents: diff changeset	2574	suspendProcess
99d11fbee2af initial checkin penk parents: diff changeset	2575	"suspend the selected process - interrupts will let it run again"
99d11fbee2af initial checkin penk parents: diff changeset	2576
99d11fbee2af initial checkin penk parents: diff changeset	2577	self selectedProcessesSend:#suspend
99d11fbee2af initial checkin penk parents: diff changeset	2578	!
99d11fbee2af initial checkin penk parents: diff changeset	2579
99d11fbee2af initial checkin penk parents: diff changeset	2580	terminateProcess
99d11fbee2af initial checkin penk parents: diff changeset	2581	"terminate the selected process"
99d11fbee2af initial checkin penk parents: diff changeset	2582
99d11fbee2af initial checkin penk parents: diff changeset	2583	self selectedProcessesSend:#terminate.
99d11fbee2af initial checkin penk parents: diff changeset	2584	self updateList.
99d11fbee2af initial checkin penk parents: diff changeset	2585	!
99d11fbee2af initial checkin penk parents: diff changeset	2586
99d11fbee2af initial checkin penk parents: diff changeset	2587	terminateProcessGroup
99d11fbee2af initial checkin penk parents: diff changeset	2588	"terminate the selected process with all of its subprocesses"
99d11fbee2af initial checkin penk parents: diff changeset	2589
99d11fbee2af initial checkin penk parents: diff changeset	2590	self selectedProcessesSend:#terminateGroup.
99d11fbee2af initial checkin penk parents: diff changeset	2591	self updateList.
99d11fbee2af initial checkin penk parents: diff changeset	2592	! !
99d11fbee2af initial checkin penk parents: diff changeset	2593
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2594	!ProcessMonitorV2 methodsFor:'menu actions-application'!
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2595
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2596	closeApplication
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2597	"close the process(es) topView(s)"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2598
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2599	self selectedApplicationTopViewsDo:[:topView \| topView terminate]
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2600
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2601	"Created: / 07-06-2007 / 12:40:20 / cg"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2602	!
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2603
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2604	lowerApplicationWindow
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2605	"lower the selected process(es) topView(s)"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2606
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2607	self selectedApplicationTopViewsDo:[:topView \| topView lower]
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2608
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2609	"Created: / 07-06-2007 / 12:43:46 / cg"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2610	!
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2611
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2612	raiseApplicationWindow
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2613	"raise the selected process(es) topView(s)"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2614
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2615	self selectedApplicationTopViewsDo:[:topView \| topView raiseDeiconified]
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2616
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2617	"Created: / 05-06-2007 / 18:37:30 / cg"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2618	"Modified: / 07-06-2007 / 12:43:55 / cg"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2619	!
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2620
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2621	selectedApplicationTopViewsDo:aBlock
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2622	self selectedProcessesDo:[:eachProcess \|
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2623	\|wg app topView\|
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2624
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2625	wg := self windowGroupOfProcess:eachProcess.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2626	wg notNil ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2627	(topView := wg mainView) notNil ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2628	aBlock value:topView.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2629	]
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2630	]
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2631	]
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2632
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2633	"Created: / 07-06-2007 / 12:42:09 / cg"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2634	! !
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2635
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2636	!ProcessMonitorV2 methodsFor:'menu actions-debug'!
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2637
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2638	browseApplication
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2639	"open a browser on the selected process(es) application or topView"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2640
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2641	self selectedApplicationTopViewsDo:[:topView \|
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2642	\|app\|
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2643
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2644	(app := topView application) notNil ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2645	app class browse.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2646	] ifFalse:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2647	topView class browse.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2648	]
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2649	]
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2650
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2651	"Created: / 07-06-2007 / 12:48:05 / cg"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2652	!
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2653
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2654	debugProcess
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2655	"open a debugger on the selected process(es)"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2656
8651 56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	2657	Debugger isNil ifTrue:[ ^ self ].
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	2658
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2659	self selectedProcessesDo:[:p \|
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2660	Debugger openOn:p
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2661	]
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2662
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2663	"Modified: / 07-06-2007 / 12:34:43 / cg"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2664	!
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2665
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2666	debugWhenResumed
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2667	"open a debugger when the selected process(es) is resumed"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2668
8651 56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	2669	Debugger isNil ifTrue:[ ^ self ].
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	2670
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2671	self selectedProcessesDo:[:p \|
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2672	p addInterruptAction:[Debugger enter]
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2673	]
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2674
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2675	"Modified: / 07-06-2007 / 12:34:38 / cg"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2676	!
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2677
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2678	disableInstrumentation
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2679	InstrumentationContext isNil ifTrue:[^ self].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2680
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2681	self selectedProcessesDo:[:p \|
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2682	InstrumentationContext setInstrumentationContext:nil in:p
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2683	]
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2684
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2685	"Created: / 17-08-2011 / 11:50:36 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2686	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2687
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2688	enableInstrumentation
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2689	\|context\|
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2690
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2691	InstrumentationContext isNil ifTrue:[^ self].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2692
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2693	context := InstrumentationContext new.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2694	self selectedProcessesDo:[:p \|
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2695	InstrumentationContext setInstrumentationContext:context in:p
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2696	]
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2697
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2698	"Created: / 17-08-2011 / 11:50:12 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2699	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2700
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2701	inspectApplication
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2702	"open an inspector on the selected process(es) application or topView"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2703
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2704	self selectedApplicationTopViewsDo:[:topView \|
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2705	\|app\|
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2706
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2707	(app := topView application) notNil ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2708	app inspect.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2709	] ifFalse:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2710	topView inspect.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2711	]
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2712	]
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2713
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2714	"Modified: / 07-06-2007 / 12:46:42 / cg"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2715	!
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2716
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2717	inspectSelection
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2718	"open an inspector on the selected process"
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2719
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2720	self selectedProcessesSend:#inspect
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2721	! !
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2722
6609 8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2723	!ProcessMonitorV2 methodsFor:'private queries'!
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2724
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2725	isApplicationProcess:aProcess
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2726	^ (self windowGroupOfProcess:aProcess) notNil.
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2727	!
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2728
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2729	windowGroupOfProcess:aProcess
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2730	WindowGroup scheduledWindowGroups
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2731	do:[:eachGroup \|
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2732	(eachGroup process == aProcess) ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2733	eachGroup isModal ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2734	^ eachGroup previousGroup
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2735	].
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2736	^ eachGroup
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2737	]
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2738	].
6609 8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2739
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2740	^ nil
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2741	! !
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2742
4463 99d11fbee2af initial checkin penk parents: diff changeset	2743	!ProcessMonitorV2 methodsFor:'queries - table string'!
99d11fbee2af initial checkin penk parents: diff changeset	2744
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2745	getActiveStringFor:aProcess running:isRunning
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2746	\|stateCharacter\|
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2747
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2748	isRunning ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2749	stateCharacter := '*'.
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2750	] ifFalse:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2751	[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2752	(Processor scheduledProcesses includes:aProcess) ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2753	stateCharacter := '+'
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2754	] ifFalse:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2755	stateCharacter := ''.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2756	].
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2757	] valueUninterruptably.
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2758	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2759	^ stateCharacter.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2760	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2761
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2762	getApplicationFor:aProcess
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2763	\|wg app\|
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2764
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2765	wg := self windowGroupOfProcess:aProcess.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2766	wg notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2767	(app := wg application) notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2768	^ app.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2769	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2770	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2771	^ nil.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2772
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2773	"Created: / 17-08-2011 / 11:12:13 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2774	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2775
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2776	getApplicationStringFor:aProcess
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2777	\|app\|
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2778
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2779	(app := self getApplicationFor:aProcess) notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2780	^ app class name.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2781	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2782	^ ''.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2783
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2784	"Created: / 17-08-2011 / 10:58:50 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2785	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2786
4463 99d11fbee2af initial checkin penk parents: diff changeset	2787	getCurrentSegmentStringFor:con
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2788	\| contextCount c sender\|
4463 99d11fbee2af initial checkin penk parents: diff changeset	2789
99d11fbee2af initial checkin penk parents: diff changeset	2790	con notNil ifTrue:[
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2791	contextCount := 1.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2792	c := con.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2793	[(sender := c sender) notNil] whileTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2794	c := sender.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2795	contextCount := contextCount + 1.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2796	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2797	^ (((ObjectMemory addressOf:con) printStringRadix:16),
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2798	' .. ',
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2799	((ObjectMemory addressOf:c) printStringRadix:16)).
4463 99d11fbee2af initial checkin penk parents: diff changeset	2800	].
4504 e07fb8560de3 * empty log message * penk parents: 4502 diff changeset	2801	^ ''
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2802
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2803	"Modified (format): / 17-08-2011 / 10:57:23 / cg"
4463 99d11fbee2af initial checkin penk parents: diff changeset	2804	!
99d11fbee2af initial checkin penk parents: diff changeset	2805
99d11fbee2af initial checkin penk parents: diff changeset	2806	getGroupStringFor:aProcess
99d11fbee2af initial checkin penk parents: diff changeset	2807	\|gId\|
99d11fbee2af initial checkin penk parents: diff changeset	2808
99d11fbee2af initial checkin penk parents: diff changeset	2809	gId := aProcess processGroupId.
99d11fbee2af initial checkin penk parents: diff changeset	2810	((gId == aProcess id) or:[gId isNil]) ifTrue:[
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2811	"/ a group leader
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2812	^ '-'.
4463 99d11fbee2af initial checkin penk parents: diff changeset	2813	] ifFalse:[
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2814	^ gId.
4463 99d11fbee2af initial checkin penk parents: diff changeset	2815	].
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2816
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2817	"Modified (format): / 17-08-2011 / 10:57:33 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2818	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2819
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2820	getInstrumentationStringFor:aProcess
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2821	^ (InstrumentationContext forProcess:aProcess) isNil
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2822	ifTrue:['']
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2823	ifFalse:['Y']
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2824
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2825	"Created: / 17-08-2011 / 11:04:14 / cg"
4463 99d11fbee2af initial checkin penk parents: diff changeset	2826	!
99d11fbee2af initial checkin penk parents: diff changeset	2827
99d11fbee2af initial checkin penk parents: diff changeset	2828	getPrioStringFor:aProcess
99d11fbee2af initial checkin penk parents: diff changeset	2829	\|prioRange\|
99d11fbee2af initial checkin penk parents: diff changeset	2830
99d11fbee2af initial checkin penk parents: diff changeset	2831	Processor supportDynamicPriorities ifTrue:[
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2832	(prioRange := aProcess priorityRange) isNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2833	^ aProcess priority asString.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2834	] ifFalse:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2835	^ (aProcess priority asString,
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2836	' [',
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2837	prioRange start printString,
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2838	'..',
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2839	prioRange stop printString,
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2840	']').
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2841	].
4463 99d11fbee2af initial checkin penk parents: diff changeset	2842	].
4504 e07fb8560de3 * empty log message * penk parents: 4502 diff changeset	2843	^ ''
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2844
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2845	"Modified (format): / 17-08-2011 / 10:57:36 / cg"
4463 99d11fbee2af initial checkin penk parents: diff changeset	2846	!
99d11fbee2af initial checkin penk parents: diff changeset	2847
99d11fbee2af initial checkin penk parents: diff changeset	2848	getTotalStackStringFor:aProcess
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2849	\| tStackSize noOfSegs \|
4463 99d11fbee2af initial checkin penk parents: diff changeset	2850
99d11fbee2af initial checkin penk parents: diff changeset	2851	aProcess id == 0 ifTrue:[
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2852	^ 'unlimited'.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2853	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2854	((tStackSize := aProcess totalStackSize) notNil
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2855	and:[ (noOfSegs := aProcess numberOfStackSegments) notNil ]) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2856	^ (tStackSize printString),' (',(noOfSegs printString),')'
4463 99d11fbee2af initial checkin penk parents: diff changeset	2857	].
4504 e07fb8560de3 * empty log message * penk parents: 4502 diff changeset	2858	^ ''
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2859
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2860	"Modified: / 17-08-2011 / 10:56:17 / cg"
4463 99d11fbee2af initial checkin penk parents: diff changeset	2861	!
99d11fbee2af initial checkin penk parents: diff changeset	2862
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2863	getWhereStringFor:con running:isRunning
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2864	"retrieve a reasonable description of where the process is sitting around;
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2865	that is not the last context before the context switch, because that would
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2866	usually be too low level and non-descriptive; instead, walk up the sender chain to
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2867	a higher level waiter, such as a semaphore wait, a shared queue wait etc."
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2868
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2869	\|c found skipping rs rc r sel\|
881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2870
4463 99d11fbee2af initial checkin penk parents: diff changeset	2871	con notNil ifTrue:[
9661 947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2872	c := con.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2873	found := false.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2874	isRunning ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2875	"/ search for a semaphore-wait in the top 10 contexts
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2876	1 to:10 do:[:n \|
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2877	found ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2878	c notNil ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2879	(c receiver class == Semaphore) ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2880	c selector == #wait ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2881	found := true.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2882	].
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2883	c selector == #waitWithTimeout: ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2884	found := true.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2885	].
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2886	c selector == #waitWithTimeoutMs: ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2887	found := true.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2888	].
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2889	].
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2890	c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2891	]
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2892	]
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2893	].
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2894	].
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2895	found ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2896	"/ search for a non-processor, non-process
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2897	"/ receiver in the top 10 contexts
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2898	c := con.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2899	1 to:10 do:[:n \|
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2900	found ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2901	c notNil ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2902	((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2903	found := true.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2904	] ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2905	c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2906	]
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2907	]
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2908	]
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2909	]
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2910	].
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2911
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2912	"/ skip, until an interesting context is
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2913	"/ found.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2914	"/ this skips intermediate contexts, which lead
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2915	"/ to the sema-wait (for example, unwind blocks,
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2916	"/ delay-stuff etc.)
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2917	found ifFalse:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2918	c := con
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2919	].
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2920	skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2921	[ skipping ] whileTrue:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2922	skipping := false.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2923	(c notNil and:[ c receiver == Delay or:[ c receiver class == Delay ] ]) ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2924	c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2925	skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2926	].
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2927	(c notNil and:[ c receiver == Semaphore or:[ c receiver class == Semaphore ] ]) ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2928	c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2929	skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2930	].
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2931	[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2932	c notNil and:[ c receiver isBlock and:[ c selector startsWith:'value' ] ]
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2933	] whileTrue:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2934	c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2935	skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2936	].
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2937	[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2938	c notNil and:[ c receiver isBlock and:[ c selector = 'ensure:' ] ]
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2939	] whileTrue:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2940	c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2941	skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2942	].
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2943	[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2944	c notNil
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2945	and:[ c receiver == OperatingSystem and:[ c selector == #unblockInterrupts ] ]
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2946	] whileTrue:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2947	c := c sender.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2948	skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2949	].
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2950	[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2951	c notNil and:[ c isBlockContext ]
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2952	] whileTrue:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2953	c := c home.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2954	skipping := true.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2955	].
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2956	].
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2957	c notNil ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2958	sel := c selector.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2959	sel isNil ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2960	sel := '* unknown *'
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2961	].
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2962	r := c receiver.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2963	rc := r class.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2964	rs := rc name.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2965	(rc == SharedQueue
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2966	or:[rc == RecursionLock]) ifTrue:[
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2967	rs := rs , ' (', (r identityHash bitShift:-12) hexPrintString,') '.
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2968	].
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2969	^ (rs , '>>' , sel).
947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2970	]
4463 99d11fbee2af initial checkin penk parents: diff changeset	2971	].
4504 e07fb8560de3 * empty log message * penk parents: 4502 diff changeset	2972	^ ''
7810 881d8fda730f * empty log message * Claus Gittinger <cg@exept.de> parents: 7809 diff changeset	2973
9661 947e86d2fc7f changed: #getWhereStringFor:running: Claus Gittinger <cg@exept.de> parents: 9526 diff changeset	2974	"Modified: / 08-12-2010 / 18:23:59 / cg"
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2975	"Modified (comment): / 17-08-2011 / 10:53:01 / cg"
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2976	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2977
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2978	getWindowTitleFor:aProcess
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2979	\|wg topViews\|
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2980
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2981	wg := self windowGroupOfProcess:aProcess.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2982	wg notNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2983	(topViews := wg topViews) notEmptyOrNil ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2984	^ topViews first label.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2985	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2986	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2987	^ ''.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2988
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	2989	"Created: / 17-08-2011 / 11:01:21 / cg"
4463 99d11fbee2af initial checkin penk parents: diff changeset	2990	! !
99d11fbee2af initial checkin penk parents: diff changeset	2991
99d11fbee2af initial checkin penk parents: diff changeset	2992	!ProcessMonitorV2 methodsFor:'sorting'!
99d11fbee2af initial checkin penk parents: diff changeset	2993
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	2994	sortProcessListBy:instanceName
4463 99d11fbee2af initial checkin penk parents: diff changeset	2995	"method to sort the list of BugReport"
99d11fbee2af initial checkin penk parents: diff changeset	2996
99d11fbee2af initial checkin penk parents: diff changeset	2997	\| aSymbol isReverse cmpOp currentSortOrder\|
99d11fbee2af initial checkin penk parents: diff changeset	2998
99d11fbee2af initial checkin penk parents: diff changeset	2999	aSymbol := instanceName asSymbol.
99d11fbee2af initial checkin penk parents: diff changeset	3000	isReverse := false.
99d11fbee2af initial checkin penk parents: diff changeset	3001	currentSortOrder := self currentSortOrder value.
99d11fbee2af initial checkin penk parents: diff changeset	3002	currentSortOrder isEmpty ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3003	currentSortOrder at:#column put:aSymbol.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3004	currentSortOrder at:#reverse put:false.
4463 99d11fbee2af initial checkin penk parents: diff changeset	3005	] ifFalse:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3006	(currentSortOrder at:#column) = aSymbol ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3007	"/ same column like before - change sort order ifReverse is true
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3008	isReverse := currentSortOrder at:#reverse.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3009	currentSortOrder at:#reverse put:(isReverse not).
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3010	] ifFalse:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3011	"/ another column - remark column
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3012	currentSortOrder at:#column put:aSymbol.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3013	]
4463 99d11fbee2af initial checkin penk parents: diff changeset	3014	].
99d11fbee2af initial checkin penk parents: diff changeset	3015	(currentSortOrder at:#reverse) ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3016	cmpOp := #'>'
4463 99d11fbee2af initial checkin penk parents: diff changeset	3017	] ifFalse:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3018	cmpOp := #'<'
4463 99d11fbee2af initial checkin penk parents: diff changeset	3019	].
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3020	sortBlock := [:a :b \|
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3021	\|entry1 entry2\|
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3022
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3023	entry1 := (a perform:aSymbol) ? 0.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3024	entry2 := (b perform:aSymbol) ? 0.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3025	entry1 = entry2 ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3026	(a idVal < 0 and:[b idVal < 0]) ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3027	"/ two dead ones (take anything which remains constant)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3028	a processName ~= b processName ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3029	a processName < b processName
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3030	] ifFalse:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3031	a processInstance identityHash < b processInstance identityHash
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3032	]
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3033	] ifFalse:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3034	a idVal < b idVal
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3035	]
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3036	] ifFalse:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3037	entry1 perform:cmpOp with:entry2
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3038	]
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3039	].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3040	self viewedColumnsChanged.
4463 99d11fbee2af initial checkin penk parents: diff changeset	3041	! !
99d11fbee2af initial checkin penk parents: diff changeset	3042
99d11fbee2af initial checkin penk parents: diff changeset	3043	!ProcessMonitorV2 methodsFor:'update process'!
99d11fbee2af initial checkin penk parents: diff changeset	3044
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3045	fillItemInformationIn:processItem
8408 d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3046	\|state stateColor running con aProcess\|
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3047
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3048	aProcess := processItem processInstance.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3049	aProcess isNil ifTrue:[
8408 d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3050	^ self.
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3051	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3052
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3053	processItem processId:aProcess id.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3054	processItem idVal:aProcess id ? -1.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3055
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3056	processItem processGroup:(self getGroupStringFor:aProcess).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3057	processItem groupVal:(processItem processGroup isNumber ifTrue:[processItem processGroup] ifFalse:[-1]).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3058
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3059	processItem processName:aProcess name ? ''.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3060
8408 d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3061	state := aProcess state.
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3062	running := (state == #run and:[aProcess == Processor interruptedProcess]).
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3063
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3064	stateColor := (state == #run)
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3065	ifTrue:[ Color green darkened ]
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3066	ifFalse:[
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3067	(state == #debug or:[state == #stopped])
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3068	ifTrue:[ Color red ]
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3069	ifFalse:[ Color black ]].
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3070
9035 90950862113a no need for #asText to emphasize a string Claus Gittinger <cg@exept.de> parents: 8652 diff changeset	3071	processItem processState:(state asString colorizeAllWith:stateColor).
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3072	processItem processActive:(self getActiveStringFor:aProcess running:running).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3073
9526 2825b947679d comment/format in: #fillItemInformationIn: Claus Gittinger <cg@exept.de> parents: 9480 diff changeset	3074	"/ processItem processBlocked:(aProcess interruptsDisabled).
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3075	processItem prioVal:(aProcess priority).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3076	processItem processPrio:(self getPrioStringFor:aProcess).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3077
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3078	processItem processUsedStack:aProcess usedStackSize.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3079	processItem processTotalStack:(self getTotalStackStringFor:aProcess).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3080
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3081	con := aProcess suspendedContext.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3082	con isNil ifTrue:[
8408 d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3083	aProcess == Processor activeProcess ifTrue:[
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3084	con := thisContext
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3085	]
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3086	].
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3087	showWhere value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3088	processItem processWhere:(self getWhereStringFor:con running:running).
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3089	].
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3090	processItem processCurrentSegment:(self getCurrentSegmentStringFor:con).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3091	processItem processSwitch:(aProcess numberOfStackBoundaryHits).
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3092	showApplication ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3093	processItem processApplication:(self getApplicationStringFor:aProcess)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3094	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3095	showWindowTitle ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3096	processItem processWindowTitle:(self getWindowTitleFor:aProcess)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3097	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3098	showInstrumentation ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3099	processItem processInstrumentation:(self getInstrumentationStringFor:aProcess)
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3100	].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3101
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3102	"Modified: / 17-08-2011 / 11:04:32 / cg"
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3103	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3104
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3105	fillItemInformationIn:processItem with:aProcess inArray:weakArrayWithProcesses atIndex:processInstanceIndexInWeakArray
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3106
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3107	processItem weakArrayWithProcesses:weakArrayWithProcesses.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3108	processItem processInstanceIndexInWeakArray:processInstanceIndexInWeakArray.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3109	self fillItemInformationIn:processItem
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3110	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3111
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3112	startUpdateProcess
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3113	updateBlock notNil ifTrue:[
8651 56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3114	Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3115	Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3116	] ifFalse:[
9410 4cf82538c97e changed: #startUpdateProcess Stefan Vogel <sv@exept.de> parents: 9293 diff changeset	3117	"after a restart, updateProcess is a dead process"
4cf82538c97e changed: #startUpdateProcess Stefan Vogel <sv@exept.de> parents: 9293 diff changeset	3118	self assert:(updateProcess isNil or:[updateProcess isDead]).
8651 56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3119
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3120	updateProcess := [
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3121	[
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3122	\|id cnt myDelay\|
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3123
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3124	myDelay := Delay forSeconds:self scaledUpdateContentsDelayTime.
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3125
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3126	"
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3127	every updateDelay (0.5), we look which process runs;
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3128	every half second, the status is updated.
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3129	every listUpdateDelay (5s), the list of processes is
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3130	built up again
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3131	"
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3132	[true] whileTrue:[
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3133	((self scaledUpdateListDelayTime // self scaledUpdateContentsDelayTime) max:2) - 1 timesRepeat:[
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3134	myDelay wait.
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3135	self updateStatus:nil.
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3136	].
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3137	myDelay wait.
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3138	self updateList.
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3139	]
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3140	] valueOnUnwindDo:[
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3141	updateProcess := nil
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3142	]
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3143	] forkAt:(Processor userSchedulingPriority + 1).
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3144	updateProcess name:'monitor [' ,
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3145	Processor activeProcess id printString ,
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3146	'] update'.
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3147	"
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3148	raise my own priority
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3149	"
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3150	Processor activeProcess priority:(Processor userSchedulingPriority + 2)
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3151	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3152	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3153
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3154	updateChangedItem:oldItem newItem:newItem atIndex:index
8408 d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3155	\| colIdx newValue \|
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3156
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3157	colIdx := 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3158
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3159	oldItem weakArrayWithProcesses:newItem weakArrayWithProcesses.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3160	oldItem processInstanceIndexInWeakArray:newItem processInstanceIndexInWeakArray.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3161
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3162	"/ ID
8408 d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3163
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3164	oldItem processId ~= (newValue := newItem processId) ifTrue:[
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3165	oldItem processId:newValue.
d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3166	processTable invalidateRowAt:index colAt:colIdx.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3167	].
7757 935e3e45cca4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7466 diff changeset	3168
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3169	#(
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3170	( showGroup processGroup processGroup: )
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3171	( true processName processName: )
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3172	( showInstrumentation processInstrumentation processInstrumentation: )
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3173	( true processActive processActive: )
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3174	( showState processState processState: )
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3175	( showPrio processPrio processPrio: )
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3176	( showUsedStack processUsedStack processUsedStack: )
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3177	( showTotalStack processTotalStack processTotalStack: )
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3178	( showCurrentSegment processCurrentSegment processCurrentSegment: )
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3179	( showSwitch processSwitch processSwitch: )
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3180	( showWhere processWhere processWhere: )
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3181	( showApplication processApplication processApplication: )
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3182	( showWindowTitle processWindowTitle processWindowTitle: )
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3183
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3184	) do:[:eachAspect \|
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3185	\|showHolder showHolderValue colValueGetter colValueSetter\|
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3186
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3187	showHolder := eachAspect at:1.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3188	colValueGetter := eachAspect at:2.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3189	colValueSetter := eachAspect at:3.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3190
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3191	showHolderValue := (showHolder == true) or:[ (self perform:showHolder) value ].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3192	showHolderValue ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3193	colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3194	(oldItem perform:colValueGetter) ~= (newValue := (newItem perform:colValueGetter)) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3195	oldItem perform:colValueSetter with:newValue.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3196	processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3197	].
8408 d4725dafc068 * empty log message * Claus Gittinger <cg@exept.de> parents: 8195 diff changeset	3198	].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3199	].
7757 935e3e45cca4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7466 diff changeset	3200
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3201	"/ "/ GROUP
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3202	"/ self showGroup value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3203	"/ colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3204	"/ oldItem processGroup ~= (newValue := newItem processGroup) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3205	"/ oldItem processGroup:newValue.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3206	"/ processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3207	"/ ].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3208	"/ ].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3209
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3210	"/ "/ NAME
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3211	"/ colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3212	"/ oldItem processName ~= (newValue := newItem processName) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3213	"/ oldItem processName:newValue.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3214	"/ processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3215	"/ ].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3216
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3217	"/ "/ ACTIVE
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3218	"/ colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3219	"/ oldItem processActive ~= (newValue := newItem processActive) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3220	"/ oldItem processActive:newValue.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3221	"/ "/ (processTable columnAt:colIdx).
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3222	"/ processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3223	"/ ].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3224
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3225	"/ "/ STATE
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3226	"/ showState value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3227	"/ colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3228	"/ (oldItem processState sameStringAndEmphasisAs: (newValue := newItem processState)) ifFalse:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3229	"/ oldItem processState:newValue.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3230	"/ processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3231	"/ ].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3232	"/ ].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3233
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3234	"/ "/ PRIO
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3235	"/ showPrio value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3236	"/ colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3237	"/ oldItem processPrio ~= (newValue := newItem processPrio) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3238	"/ oldItem processPrio:newValue.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3239	"/ processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3240	"/ ].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3241	"/ ].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3242
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3243	"/ "/ USED STACK
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3244	"/ showUsedStack value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3245	"/ colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3246	"/ oldItem processUsedStack ~= (newValue := newItem processUsedStack) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3247	"/ oldItem processUsedStack:newValue.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3248	"/ processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3249	"/ ].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3250	"/ ].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3251
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3252	"/ "/ TOTAL STACK
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3253	"/ showTotalStack value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3254	"/ colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3255	"/ oldItem processTotalStack ~= (newValue := newItem processTotalStack) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3256	"/ oldItem processTotalStack:newValue.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3257	"/ processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3258	"/ ].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3259	"/ ].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3260
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3261	"/ "/ CURRENT SEGMENT
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3262	"/ showCurrentSegment value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3263	"/ colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3264	"/ oldItem processCurrentSegment ~= (newValue := newItem processCurrentSegment) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3265	"/ oldItem processCurrentSegment:newValue.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3266	"/ processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3267	"/ ].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3268	"/ ].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3269
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3270	"/ "/ Switch
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3271	"/ showSwitch value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3272	"/ colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3273	"/ oldItem processSwitch ~= (newValue := newItem processSwitch) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3274	"/ oldItem processSwitch:newValue.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3275	"/ processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3276	"/ ].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3277	"/ ].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3278
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3279	"/ "/ WHERE
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3280	"/ showWhere value ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3281	"/ colIdx := colIdx + 1.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3282	"/ oldItem processWhere ~= (newValue := newItem processWhere) ifTrue:[
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3283	"/ oldItem processWhere:newValue.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3284	"/ processTable invalidateRowAt:index colAt:colIdx.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3285	"/ ].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3286	"/ ].
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3287
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3288	"Modified: / 17-08-2011 / 11:47:01 / cg"
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3289	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3290
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3291	updateList
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3292
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3293	\|newList\|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3294
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3295	processTable shown ifTrue:[
8651 56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3296	newList := self getProcessList.
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3297	visibleBlock notNil ifTrue:[
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3298	newList := newList select:visibleBlock
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3299	].
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3300	self updateStatus:newList.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3301	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3302	updateBlock notNil ifTrue:[
8651 56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3303	Processor removeTimedBlock:listUpdateBlock.
56eb7da15507 * empty log message * Claus Gittinger <cg@exept.de> parents: 8408 diff changeset	3304	Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3305	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3306	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3307
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3308	updateStatus:newProcessList
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3309
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3310	\|startTime endTime deltaT\|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3311
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3312
5783 5ce97d85326d Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5764 diff changeset	3313	startTime := Timestamp now.
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3314	updateSema critical:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3315	self updateTable:newProcessList.
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3316	].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3317
5783 5ce97d85326d Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5764 diff changeset	3318	endTime := Timestamp now.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3319	deltaT := (endTime millisecondDeltaFrom:startTime) / 1000.0.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3320	"/ Transcript show:deltaT; show:' ' ; showCR:(self scaledUpdateContentsDelayTime / 10.0).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3321	deltaT > (self scaledUpdateContentsDelayTime / 5) ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3322	"/ the update took longer than 20% - make delay longer, to reduce cpu load.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3323	self updateContentsDelayTime value:(self scaledUpdateContentsDelayTime * 2).
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3324	"/ Transcript show:'+++ '; showCR:self scaledUpdateContentsDelayTime.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3325	] ifFalse:[
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	3326	"/ self scaledUpdateContentsDelayTime > 0.5 ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	3327	"/ deltaT < (self scaledUpdateContentsDelayTime / 20) ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	3328	"/ "/ the update took less than 5% - make delay smaller for better animation.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	3329	"/ self updateContentsDelayTime value:((self scaledUpdateContentsDelayTime / 2) max:0.5).
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	3330	"/ "/ Transcript show:'--- ';showCR:self scaledUpdateContentsDelayTime.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	3331	"/ ].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	3332	"/ ].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3333	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3334	updateBlock notNil ifTrue:[
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3335	Processor removeTimedBlock:updateBlock.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3336	Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3337	]
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3338	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3339
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3340	updateTable:newProcessList
6042 1ff91f63c1b7 * empty log message * Stefan Vogel <sv@exept.de> parents: 6010 diff changeset	3341	\|oldSelection newList sel diff weakProcessList\|
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3342
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3343	processTable shown ifTrue:[
5783 5ce97d85326d Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5764 diff changeset	3344	"/ Transcript showCR:('update the table', Timestamp now printString, 'with new list:', newProcessList notNil asString).
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3345	sel := self selectedProcesses value.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3346	sel notNil ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3347	oldSelection := OrderedCollection new.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3348	sel do:[:proItem\|
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3349	proItem processInstance notNil ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3350	oldSelection add:(proItem processInstance)
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3351	].
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3352	].
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3353	].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3354	"/ Transcript showCR:'oldSelection on catch in updateTable: ', (oldSelection isEmptyOrNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3355	newProcessList isNil ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3356	newList := OrderedCollection new.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3357	processList do:[:oldItem \|
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3358	\| newItem \|
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3359	(self showDead value
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3360	or:[oldItem processInstance notNil
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3361	and:[oldItem processInstance isDead not]]) ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3362	newItem := oldItem copy.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3363	self fillItemInformationIn:newItem.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3364	newList add:newItem.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3365	]
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3366	].
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3367	] ifFalse:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3368	"/ remove dead processes if not shown
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3369	newList := OrderedCollection new.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3370	weakProcessList := WeakArray withAll:newProcessList.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3371	weakProcessList keysAndValuesDo:[:indexInWeakArray :procOrNilOrZero \|
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3372	"/ in a weakarray, dead entries are 0
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3373	(procOrNilOrZero notNil and:[procOrNilOrZero ~~ 0]) ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3374	(procOrNilOrZero isDead not or:[self showDead value]) ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3375	\| processItem \|
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3376	processItem := ProcessItem new.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3377	self fillItemInformationIn:processItem with:procOrNilOrZero inArray:weakProcessList atIndex:indexInWeakArray.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3378	newList add:processItem.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3379	]
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3380	]
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3381	].
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3382	].
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3383	newList sort:self sortBlock.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3384	newList doWithIndex:[:newItem :index\|
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3385	\| oldItem \|
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3386	oldItem := processList at:index ifAbsent:nil.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3387	oldItem isNil ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3388	processList add:newItem beforeIndex:index
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3389	] ifFalse:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3390	self updateChangedItem:oldItem newItem:newItem atIndex:index
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3391	]
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3392	].
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3393	diff := processList size - newList size.
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3394	diff > 0 ifTrue:[
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3395	processList removeLast:diff
9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3396	].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3397	"/ Transcript showCR:'oldSelection on set in updateTable: ', (oldSelection isEmptyOrNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
7811 9d5855023789 * empty log message * Claus Gittinger <cg@exept.de> parents: 7810 diff changeset	3398	self changeSelectionToProcesses:oldSelection.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3399	].
4463 99d11fbee2af initial checkin penk parents: diff changeset	3400	! !
99d11fbee2af initial checkin penk parents: diff changeset	3401
99d11fbee2af initial checkin penk parents: diff changeset	3402	!ProcessMonitorV2::ProcessItem methodsFor:'accessing'!
99d11fbee2af initial checkin penk parents: diff changeset	3403
99d11fbee2af initial checkin penk parents: diff changeset	3404	groupVal
99d11fbee2af initial checkin penk parents: diff changeset	3405	"return the value of the instance variable 'groupVal' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	3406
99d11fbee2af initial checkin penk parents: diff changeset	3407	^ groupVal
99d11fbee2af initial checkin penk parents: diff changeset	3408	!
99d11fbee2af initial checkin penk parents: diff changeset	3409
99d11fbee2af initial checkin penk parents: diff changeset	3410	groupVal:something
99d11fbee2af initial checkin penk parents: diff changeset	3411	"set the value of the instance variable 'groupVal' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	3412
99d11fbee2af initial checkin penk parents: diff changeset	3413	groupVal := something.
99d11fbee2af initial checkin penk parents: diff changeset	3414	!
99d11fbee2af initial checkin penk parents: diff changeset	3415
99d11fbee2af initial checkin penk parents: diff changeset	3416	idVal
99d11fbee2af initial checkin penk parents: diff changeset	3417	"return the value of the instance variable 'idVal' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	3418
99d11fbee2af initial checkin penk parents: diff changeset	3419	^ idVal
99d11fbee2af initial checkin penk parents: diff changeset	3420	!
99d11fbee2af initial checkin penk parents: diff changeset	3421
99d11fbee2af initial checkin penk parents: diff changeset	3422	idVal:something
99d11fbee2af initial checkin penk parents: diff changeset	3423	"set the value of the instance variable 'idVal' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	3424
99d11fbee2af initial checkin penk parents: diff changeset	3425	idVal := something.
99d11fbee2af initial checkin penk parents: diff changeset	3426	!
99d11fbee2af initial checkin penk parents: diff changeset	3427
99d11fbee2af initial checkin penk parents: diff changeset	3428	prioVal
99d11fbee2af initial checkin penk parents: diff changeset	3429	"return the value of the instance variable 'prioVal' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	3430
99d11fbee2af initial checkin penk parents: diff changeset	3431	^ prioVal
99d11fbee2af initial checkin penk parents: diff changeset	3432	!
99d11fbee2af initial checkin penk parents: diff changeset	3433
99d11fbee2af initial checkin penk parents: diff changeset	3434	prioVal:something
99d11fbee2af initial checkin penk parents: diff changeset	3435	"set the value of the instance variable 'prioVal' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	3436
99d11fbee2af initial checkin penk parents: diff changeset	3437	prioVal := something.
99d11fbee2af initial checkin penk parents: diff changeset	3438	!
99d11fbee2af initial checkin penk parents: diff changeset	3439
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3440	processActive
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3441	"return the value of the instance variable 'processActive' (automatically generated)"
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3442
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3443	^ processActive
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3444	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3445
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3446	processActive:something
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3447	"set the value of the instance variable 'processActive' (automatically generated)"
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3448
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3449	processActive := something.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3450	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3451
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3452	processApplication
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3453	^ processApplication
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3454	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3455
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3456	processApplication:something
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3457	processApplication := something.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3458	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3459
9526 2825b947679d comment/format in: #fillItemInformationIn: Claus Gittinger <cg@exept.de> parents: 9480 diff changeset	3460	processBlocked
2825b947679d comment/format in: #fillItemInformationIn: Claus Gittinger <cg@exept.de> parents: 9480 diff changeset	3461	^ processBlocked
2825b947679d comment/format in: #fillItemInformationIn: Claus Gittinger <cg@exept.de> parents: 9480 diff changeset	3462
2825b947679d comment/format in: #fillItemInformationIn: Claus Gittinger <cg@exept.de> parents: 9480 diff changeset	3463	"Created: / 18-07-2010 / 23:52:26 / cg"
2825b947679d comment/format in: #fillItemInformationIn: Claus Gittinger <cg@exept.de> parents: 9480 diff changeset	3464	!
2825b947679d comment/format in: #fillItemInformationIn: Claus Gittinger <cg@exept.de> parents: 9480 diff changeset	3465
2825b947679d comment/format in: #fillItemInformationIn: Claus Gittinger <cg@exept.de> parents: 9480 diff changeset	3466	processBlocked:aBoolean
2825b947679d comment/format in: #fillItemInformationIn: Claus Gittinger <cg@exept.de> parents: 9480 diff changeset	3467	processBlocked := aBoolean.
2825b947679d comment/format in: #fillItemInformationIn: Claus Gittinger <cg@exept.de> parents: 9480 diff changeset	3468
2825b947679d comment/format in: #fillItemInformationIn: Claus Gittinger <cg@exept.de> parents: 9480 diff changeset	3469	"Created: / 18-07-2010 / 23:52:41 / cg"
2825b947679d comment/format in: #fillItemInformationIn: Claus Gittinger <cg@exept.de> parents: 9480 diff changeset	3470	!
2825b947679d comment/format in: #fillItemInformationIn: Claus Gittinger <cg@exept.de> parents: 9480 diff changeset	3471
4463 99d11fbee2af initial checkin penk parents: diff changeset	3472	processCurrentSegment
99d11fbee2af initial checkin penk parents: diff changeset	3473	"return the value of the instance variable 'processCurrentSegment' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	3474
99d11fbee2af initial checkin penk parents: diff changeset	3475	^ processCurrentSegment
99d11fbee2af initial checkin penk parents: diff changeset	3476	!
99d11fbee2af initial checkin penk parents: diff changeset	3477
99d11fbee2af initial checkin penk parents: diff changeset	3478	processCurrentSegment:something
99d11fbee2af initial checkin penk parents: diff changeset	3479	"set the value of the instance variable 'processCurrentSegment' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	3480
99d11fbee2af initial checkin penk parents: diff changeset	3481	processCurrentSegment := something.
99d11fbee2af initial checkin penk parents: diff changeset	3482	!
99d11fbee2af initial checkin penk parents: diff changeset	3483
99d11fbee2af initial checkin penk parents: diff changeset	3484	processGroup
99d11fbee2af initial checkin penk parents: diff changeset	3485	"return the value of the instance variable 'processGroup' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	3486
99d11fbee2af initial checkin penk parents: diff changeset	3487	^ processGroup
99d11fbee2af initial checkin penk parents: diff changeset	3488	!
99d11fbee2af initial checkin penk parents: diff changeset	3489
99d11fbee2af initial checkin penk parents: diff changeset	3490	processGroup:something
99d11fbee2af initial checkin penk parents: diff changeset	3491	"set the value of the instance variable 'processGroup' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	3492
99d11fbee2af initial checkin penk parents: diff changeset	3493	processGroup := something.
99d11fbee2af initial checkin penk parents: diff changeset	3494	!
99d11fbee2af initial checkin penk parents: diff changeset	3495
99d11fbee2af initial checkin penk parents: diff changeset	3496	processId
99d11fbee2af initial checkin penk parents: diff changeset	3497	"return the value of the instance variable 'processId' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	3498
99d11fbee2af initial checkin penk parents: diff changeset	3499	^ processId
99d11fbee2af initial checkin penk parents: diff changeset	3500	!
99d11fbee2af initial checkin penk parents: diff changeset	3501
99d11fbee2af initial checkin penk parents: diff changeset	3502	processId:something
99d11fbee2af initial checkin penk parents: diff changeset	3503	"set the value of the instance variable 'processId' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	3504
99d11fbee2af initial checkin penk parents: diff changeset	3505	processId := something.
99d11fbee2af initial checkin penk parents: diff changeset	3506	!
99d11fbee2af initial checkin penk parents: diff changeset	3507
99d11fbee2af initial checkin penk parents: diff changeset	3508	processInstance
99d11fbee2af initial checkin penk parents: diff changeset	3509	"return the value of the instance variable 'processInstance' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	3510
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3511	\|procOrNilOrZero\|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3512
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3513	procOrNilOrZero := weakArrayWithProcesses at:processInstanceIndexInWeakArray.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3514	procOrNilOrZero == 0 ifTrue:[^ nil].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3515	^ procOrNilOrZero
4463 99d11fbee2af initial checkin penk parents: diff changeset	3516	!
99d11fbee2af initial checkin penk parents: diff changeset	3517
99d11fbee2af initial checkin penk parents: diff changeset	3518	processInstance:something
99d11fbee2af initial checkin penk parents: diff changeset	3519	"set the value of the instance variable 'processInstance' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	3520
99d11fbee2af initial checkin penk parents: diff changeset	3521	processInstance := something.
99d11fbee2af initial checkin penk parents: diff changeset	3522	!
99d11fbee2af initial checkin penk parents: diff changeset	3523
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3524	processInstanceIndexInWeakArray
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3525	"return the value of the instance variable 'processInstanceIndexInWeakArray' (automatically generated)"
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3526
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3527	^ processInstanceIndexInWeakArray
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3528	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3529
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3530	processInstanceIndexInWeakArray:something
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3531	"set the value of the instance variable 'processInstanceIndexInWeakArray' (automatically generated)"
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3532
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3533	processInstanceIndexInWeakArray := something.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3534	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3535
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3536	processInstrumentation
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3537	^ processInstrumentation
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3538	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3539
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3540	processInstrumentation:something
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3541	processInstrumentation := something.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3542	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3543
4463 99d11fbee2af initial checkin penk parents: diff changeset	3544	processName
99d11fbee2af initial checkin penk parents: diff changeset	3545	"return the value of the instance variable 'processName' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	3546
99d11fbee2af initial checkin penk parents: diff changeset	3547	^ processName
99d11fbee2af initial checkin penk parents: diff changeset	3548	!
99d11fbee2af initial checkin penk parents: diff changeset	3549
99d11fbee2af initial checkin penk parents: diff changeset	3550	processName:something
99d11fbee2af initial checkin penk parents: diff changeset	3551	"set the value of the instance variable 'processName' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	3552
99d11fbee2af initial checkin penk parents: diff changeset	3553	processName := something.
99d11fbee2af initial checkin penk parents: diff changeset	3554	!
99d11fbee2af initial checkin penk parents: diff changeset	3555
99d11fbee2af initial checkin penk parents: diff changeset	3556	processPrio
99d11fbee2af initial checkin penk parents: diff changeset	3557	"return the value of the instance variable 'processPrio' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	3558
99d11fbee2af initial checkin penk parents: diff changeset	3559	^ processPrio
99d11fbee2af initial checkin penk parents: diff changeset	3560	!
99d11fbee2af initial checkin penk parents: diff changeset	3561
99d11fbee2af initial checkin penk parents: diff changeset	3562	processPrio:something
99d11fbee2af initial checkin penk parents: diff changeset	3563	processPrio := something.
99d11fbee2af initial checkin penk parents: diff changeset	3564	!
99d11fbee2af initial checkin penk parents: diff changeset	3565
99d11fbee2af initial checkin penk parents: diff changeset	3566	processState
99d11fbee2af initial checkin penk parents: diff changeset	3567	^ processState
99d11fbee2af initial checkin penk parents: diff changeset	3568	!
99d11fbee2af initial checkin penk parents: diff changeset	3569
99d11fbee2af initial checkin penk parents: diff changeset	3570	processState:something
99d11fbee2af initial checkin penk parents: diff changeset	3571	processState := something.
99d11fbee2af initial checkin penk parents: diff changeset	3572	!
99d11fbee2af initial checkin penk parents: diff changeset	3573
99d11fbee2af initial checkin penk parents: diff changeset	3574	processSwitch
99d11fbee2af initial checkin penk parents: diff changeset	3575	^ processSwitch
99d11fbee2af initial checkin penk parents: diff changeset	3576	!
99d11fbee2af initial checkin penk parents: diff changeset	3577
99d11fbee2af initial checkin penk parents: diff changeset	3578	processSwitch:something
99d11fbee2af initial checkin penk parents: diff changeset	3579	processSwitch := something.
99d11fbee2af initial checkin penk parents: diff changeset	3580	!
99d11fbee2af initial checkin penk parents: diff changeset	3581
99d11fbee2af initial checkin penk parents: diff changeset	3582	processTotalStack
99d11fbee2af initial checkin penk parents: diff changeset	3583	^ processTotalStack
99d11fbee2af initial checkin penk parents: diff changeset	3584	!
99d11fbee2af initial checkin penk parents: diff changeset	3585
99d11fbee2af initial checkin penk parents: diff changeset	3586	processTotalStack:something
99d11fbee2af initial checkin penk parents: diff changeset	3587	processTotalStack := something.
99d11fbee2af initial checkin penk parents: diff changeset	3588	!
99d11fbee2af initial checkin penk parents: diff changeset	3589
99d11fbee2af initial checkin penk parents: diff changeset	3590	processUsedStack
99d11fbee2af initial checkin penk parents: diff changeset	3591	^ processUsedStack
99d11fbee2af initial checkin penk parents: diff changeset	3592	!
99d11fbee2af initial checkin penk parents: diff changeset	3593
99d11fbee2af initial checkin penk parents: diff changeset	3594	processUsedStack:something
99d11fbee2af initial checkin penk parents: diff changeset	3595	processUsedStack := something.
99d11fbee2af initial checkin penk parents: diff changeset	3596	!
99d11fbee2af initial checkin penk parents: diff changeset	3597
99d11fbee2af initial checkin penk parents: diff changeset	3598	processWhere
99d11fbee2af initial checkin penk parents: diff changeset	3599	^ processWhere
99d11fbee2af initial checkin penk parents: diff changeset	3600	!
99d11fbee2af initial checkin penk parents: diff changeset	3601
99d11fbee2af initial checkin penk parents: diff changeset	3602	processWhere:something
99d11fbee2af initial checkin penk parents: diff changeset	3603	processWhere := something.
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3604	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3605
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3606	processWindowTitle
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3607	^ processWindowTitle
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3608	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3609
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3610	processWindowTitle:something
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3611	processWindowTitle := something.
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3612	!
2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3613
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3614	weakArrayWithProcesses
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3615	^ weakArrayWithProcesses
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3616	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3617
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3618	weakArrayWithProcesses:something
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	3619	weakArrayWithProcesses := something.
4463 99d11fbee2af initial checkin penk parents: diff changeset	3620	! !
99d11fbee2af initial checkin penk parents: diff changeset	3621
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3622	!ProcessMonitorV2::ProcessItem methodsFor:'printing'!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3623
8001 07add94fd83b Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7921 diff changeset	3624	printOn:aStream
07add94fd83b Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7921 diff changeset	3625	(self processName ? '') printOn:aStream.
07add94fd83b Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7921 diff changeset	3626	aStream nextPut:$[.
07add94fd83b Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7921 diff changeset	3627	(self processId ? '') printOn:aStream.
07add94fd83b Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7921 diff changeset	3628	aStream nextPut:$].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3629	! !
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	3630
4463 99d11fbee2af initial checkin penk parents: diff changeset	3631	!ProcessMonitorV2 class methodsFor:'documentation'!
99d11fbee2af initial checkin penk parents: diff changeset	3632
99d11fbee2af initial checkin penk parents: diff changeset	3633	version
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3634	^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.55 2011-08-17 13:22:29 cg Exp $'
9035 90950862113a no need for #asText to emphasize a string Claus Gittinger <cg@exept.de> parents: 8652 diff changeset	3635	!
90950862113a no need for #asText to emphasize a string Claus Gittinger <cg@exept.de> parents: 8652 diff changeset	3636
90950862113a no need for #asText to emphasize a string Claus Gittinger <cg@exept.de> parents: 8652 diff changeset	3637	version_CVS
10578 2ca84430d4a2 more view options + instrumentation menu Claus Gittinger <cg@exept.de> parents: 9807 diff changeset	3638	^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.55 2011-08-17 13:22:29 cg Exp $'
4463 99d11fbee2af initial checkin penk parents: diff changeset	3639	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 17 Aug 2011 15:22:29 +0200
changeset 10578	2ca84430d4a2
parent 9807	6ad85e2e00b3
child 10849	a8d0f262dfe7
permissions	-rw-r--r--