hg/stx-libtool: ProcessMonitorV2.st@feff4e2a1c4b (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
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	3	All Rights Reserved
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	"
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	12
4463 99d11fbee2af initial checkin penk parents: diff changeset	13	"{ Package: 'stx:libtool' }"
99d11fbee2af initial checkin penk parents: diff changeset	14
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	15	ApplicationModel subclass:#ProcessMonitorV2
4463 99d11fbee2af initial checkin penk parents: diff changeset	16	instanceVariableNames:'processList tableColumns selectedProcesses updateSema showDetail
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	17	hasSelection showProcessId showGroup showState showPrio
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	18	showUsedStack showTotalStack showCurrentSegment showSwitch
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	19	showWhere currentSortOrder processTable showDead sortBlock
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
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	24	updateProcess visibleBlock allowModifications tableMenu'
4463 99d11fbee2af initial checkin penk parents: diff changeset	25	classVariableNames:''
99d11fbee2af initial checkin penk parents: diff changeset	26	poolDictionaries:''
99d11fbee2af initial checkin penk parents: diff changeset	27	category:'Monitors-ST/X'
99d11fbee2af initial checkin penk parents: diff changeset	28	!
99d11fbee2af initial checkin penk parents: diff changeset	29
99d11fbee2af initial checkin penk parents: diff changeset	30	Object subclass:#ProcessItem
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	31	instanceVariableNames:'processId processGroup processName processActive processState
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	32	processPrio processUsedStack processTotalStack processWhere
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	33	processInstance weakArrayWithProcesses
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	34	processInstanceIndexInWeakArray processCurrentSegment
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	35	processSwitch prioVal idVal groupVal'
4463 99d11fbee2af initial checkin penk parents: diff changeset	36	classVariableNames:''
99d11fbee2af initial checkin penk parents: diff changeset	37	poolDictionaries:''
99d11fbee2af initial checkin penk parents: diff changeset	38	privateIn:ProcessMonitorV2
99d11fbee2af initial checkin penk parents: diff changeset	39	!
99d11fbee2af initial checkin penk parents: diff changeset	40
99d11fbee2af initial checkin penk parents: diff changeset	41	!ProcessMonitorV2 class methodsFor:'documentation'!
99d11fbee2af initial checkin penk parents: diff changeset	42
6300 4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	43	copyright
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	44	"
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	45	COPYRIGHT (c) 2003 by eXept Software AG
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	46	All Rights Reserved
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	47
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	48	This software is furnished under a license and may be used
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	49	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	50	inclusion of the above copyright notice. This software may not
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	51	be provided or otherwise made available to, or used by, any
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	52	other person. No title to or ownership of the software is
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	53	hereby transferred.
4132e93312b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6290 diff changeset	54	"
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
4463 99d11fbee2af initial checkin penk parents: diff changeset	57	documentation
99d11fbee2af initial checkin penk parents: diff changeset	58	"
99d11fbee2af initial checkin penk parents: diff changeset	59	documentation to be added.
99d11fbee2af initial checkin penk parents: diff changeset	60
99d11fbee2af initial checkin penk parents: diff changeset	61	[author:]
99d11fbee2af initial checkin penk parents: diff changeset	62	Christian Penk (penk@bierfix)
99d11fbee2af initial checkin penk parents: diff changeset	63
99d11fbee2af initial checkin penk parents: diff changeset	64	[instance variables:]
99d11fbee2af initial checkin penk parents: diff changeset	65
99d11fbee2af initial checkin penk parents: diff changeset	66	[class variables:]
99d11fbee2af initial checkin penk parents: diff changeset	67
99d11fbee2af initial checkin penk parents: diff changeset	68	[see also:]
99d11fbee2af initial checkin penk parents: diff changeset	69
99d11fbee2af initial checkin penk parents: diff changeset	70	"
99d11fbee2af initial checkin penk parents: diff changeset	71	!
99d11fbee2af initial checkin penk parents: diff changeset	72
99d11fbee2af initial checkin penk parents: diff changeset	73	examples
99d11fbee2af initial checkin penk parents: diff changeset	74	"
99d11fbee2af initial checkin penk parents: diff changeset	75	Starting the application:
99d11fbee2af initial checkin penk parents: diff changeset	76	[exBegin]
99d11fbee2af initial checkin penk parents: diff changeset	77	ProcessMonitorV2 open
99d11fbee2af initial checkin penk parents: diff changeset	78
99d11fbee2af initial checkin penk parents: diff changeset	79	[exEnd]
99d11fbee2af initial checkin penk parents: diff changeset	80
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	81	Starting the application withot any possibilities to change
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	82	the processes
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	83	[exBegin]
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	84	ProcessMonitorV2 openAllowNoModifications
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	85
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	86	[exEnd]
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	87
4463 99d11fbee2af initial checkin penk parents: diff changeset	88	more examples to be added:
99d11fbee2af initial checkin penk parents: diff changeset	89	[exBegin]
99d11fbee2af initial checkin penk parents: diff changeset	90	... add code fragment for
99d11fbee2af initial checkin penk parents: diff changeset	91	... executable example here ...
99d11fbee2af initial checkin penk parents: diff changeset	92	[exEnd]
99d11fbee2af initial checkin penk parents: diff changeset	93	"
99d11fbee2af initial checkin penk parents: diff changeset	94	!
99d11fbee2af initial checkin penk parents: diff changeset	95
99d11fbee2af initial checkin penk parents: diff changeset	96	history
99d11fbee2af initial checkin penk parents: diff changeset	97	"Created: / 14.1.2003 / 11:16:10 / penk"
99d11fbee2af initial checkin penk parents: diff changeset	98	! !
99d11fbee2af initial checkin penk parents: diff changeset	99
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	100	!ProcessMonitorV2 class methodsFor:'instance creation'!
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	101
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	102	openAllowNoModifications
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	103
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	104
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	105	\|application\|
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	106
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	107	application := self new.
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	108	application open.
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	109	application allowModifications value:false.
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	110	! !
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	111
4463 99d11fbee2af initial checkin penk parents: diff changeset	112	!ProcessMonitorV2 class methodsFor:'defaults'!
99d11fbee2af initial checkin penk parents: diff changeset	113
99d11fbee2af initial checkin penk parents: diff changeset	114	defaultIcon
99d11fbee2af initial checkin penk parents: diff changeset	115	\|i\|
99d11fbee2af initial checkin penk parents: diff changeset	116
99d11fbee2af initial checkin penk parents: diff changeset	117	i := Image fromFile:'ProcMon.xbm'.
99d11fbee2af initial checkin penk parents: diff changeset	118	i notNil ifTrue:[^ i].
99d11fbee2af initial checkin penk parents: diff changeset	119	^ super defaultIcon
99d11fbee2af initial checkin penk parents: diff changeset	120
99d11fbee2af initial checkin penk parents: diff changeset	121	"Modified: 23.1.1997 / 02:52:31 / cg"
99d11fbee2af initial checkin penk parents: diff changeset	122	!
99d11fbee2af initial checkin penk parents: diff changeset	123
99d11fbee2af initial checkin penk parents: diff changeset	124	defaultLabel
99d11fbee2af initial checkin penk parents: diff changeset	125	^ 'Process Monitor'
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	126	!
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	127
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	128	resourcePackName
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	129	^ 'ProcessMonitor'
4463 99d11fbee2af initial checkin penk parents: diff changeset	130	! !
99d11fbee2af initial checkin penk parents: diff changeset	131
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	132	!ProcessMonitorV2 class methodsFor:'help'!
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	133
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	134	aboutThisApplicationText
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	135	^ super aboutThisApplicationText ,
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	136	'\\Written by Christian Penk, eXept Software AG.' withCRs
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	137	! !
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	138
4463 99d11fbee2af initial checkin penk parents: diff changeset	139	!ProcessMonitorV2 class methodsFor:'help specs'!
99d11fbee2af initial checkin penk parents: diff changeset	140
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	141	flyByHelpSpec
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	142	"This resource specification was automatically generated
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	143	by the UIHelpTool of ST/X."
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	144
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	145	"Do not manually edit this!! If it is corrupted,
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	146	the UIHelpTool may not be able to read the specification."
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	147
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	UIHelpTool openOnClass:ProcessMonitorV2
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	150	"
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	<resource: #help>
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	153
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	154	^ super flyByHelpSpec addPairsFrom:#(
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	155
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	156	#Debug
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
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	159	#Details
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
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	162	#Inspect
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
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	165	#'Lower Prio'
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
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	168	#'Raise Prio'
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
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	171	#Restart
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	172	'Restart'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	173
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	174	#Resume
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	175	'Resume'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	176
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	177	#Abort
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	178	'Abort'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	179
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	180	#Stop
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	181	'Stop'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	182
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	183	#Suspend
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	184	'Suspend'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	185
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	186	#Terminate
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	187	'Terminate'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	188
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	189	#'Terminate Group'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	190	'Terminate Group'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	191
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	192	#'Update Process List'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	193	'Update Process List'
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	194
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	195	)
4463 99d11fbee2af initial checkin penk parents: diff changeset	196	! !
99d11fbee2af initial checkin penk parents: diff changeset	197
99d11fbee2af initial checkin penk parents: diff changeset	198	!ProcessMonitorV2 class methodsFor:'image specs'!
99d11fbee2af initial checkin penk parents: diff changeset	199
99d11fbee2af initial checkin penk parents: diff changeset	200	detailsMenuIconDown
99d11fbee2af initial checkin penk parents: diff changeset	201	"This resource specification was automatically generated
99d11fbee2af initial checkin penk parents: diff changeset	202	by the ImageEditor of ST/X."
99d11fbee2af initial checkin penk parents: diff changeset	203
99d11fbee2af initial checkin penk parents: diff changeset	204	"Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin penk parents: diff changeset	205	the ImageEditor may not be able to read the specification."
99d11fbee2af initial checkin penk parents: diff changeset	206
99d11fbee2af initial checkin penk parents: diff changeset	207	"
99d11fbee2af initial checkin penk parents: diff changeset	208	self detailsMenuIconDown inspect
99d11fbee2af initial checkin penk parents: diff changeset	209	ImageEditor openOnClass:self andSelector:#detailsMenuIconDown
99d11fbee2af initial checkin penk parents: diff changeset	210	Icon flushCachedIcons
99d11fbee2af initial checkin penk parents: diff changeset	211	"
99d11fbee2af initial checkin penk parents: diff changeset	212
99d11fbee2af initial checkin penk parents: diff changeset	213	<resource: #image>
99d11fbee2af initial checkin penk parents: diff changeset	214
99d11fbee2af initial checkin penk parents: diff changeset	215	^Icon
99d11fbee2af initial checkin penk parents: diff changeset	216	constantNamed:#'ProcessMonitorV2 class detailsMenuIconDown'
99d11fbee2af initial checkin penk parents: diff changeset	217	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]
99d11fbee2af initial checkin penk parents: diff changeset	218	!
99d11fbee2af initial checkin penk parents: diff changeset	219
99d11fbee2af initial checkin penk parents: diff changeset	220	detailsMenuIconUp
99d11fbee2af initial checkin penk parents: diff changeset	221	"This resource specification was automatically generated
99d11fbee2af initial checkin penk parents: diff changeset	222	by the ImageEditor of ST/X."
99d11fbee2af initial checkin penk parents: diff changeset	223
99d11fbee2af initial checkin penk parents: diff changeset	224	"Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin penk parents: diff changeset	225	the ImageEditor may not be able to read the specification."
99d11fbee2af initial checkin penk parents: diff changeset	226
99d11fbee2af initial checkin penk parents: diff changeset	227	"
99d11fbee2af initial checkin penk parents: diff changeset	228	self detailsMenuIconUp inspect
99d11fbee2af initial checkin penk parents: diff changeset	229	ImageEditor openOnClass:self andSelector:#detailsMenuIconUp
99d11fbee2af initial checkin penk parents: diff changeset	230	Icon flushCachedIcons
99d11fbee2af initial checkin penk parents: diff changeset	231	"
99d11fbee2af initial checkin penk parents: diff changeset	232
99d11fbee2af initial checkin penk parents: diff changeset	233	<resource: #image>
99d11fbee2af initial checkin penk parents: diff changeset	234
99d11fbee2af initial checkin penk parents: diff changeset	235	^Icon
99d11fbee2af initial checkin penk parents: diff changeset	236	constantNamed:#'ProcessMonitorV2 class detailsMenuIconUp'
99d11fbee2af initial checkin penk parents: diff changeset	237	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]
99d11fbee2af initial checkin penk parents: diff changeset	238	!
99d11fbee2af initial checkin penk parents: diff changeset	239
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	240	process22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	241	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	242	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	243
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	244	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	245	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	246
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	247	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	248	self process22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	249	ImageEditor openOnClass:self andSelector:#process22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	250	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	251	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	252
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	253	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	254
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	255	^Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	256	constantNamed:#'ProcessMonitorV2 class process22x22Icon'
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	257	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	258	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	259	@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	260	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	261	A XFAPTFA XH@@@@@@@@@@@@@@@@APXFA XFA XFB@@@@@@@@@@@@@@@APXHA0XFA XFAPXH@@@@@@@@@@@@@@\H@@@EA XG@@@GB@@@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	262	@@TH@@@@@@@@@@@@@@@@@@@@@@@@@@@EB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	263	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	264	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	265
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	266	processAbort22x22Icon
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	267	"This resource specification was automatically generated
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	268	by the ImageEditor of ST/X."
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	269
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	270	"Do not manually edit this!! If it is corrupted,
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	271	the ImageEditor may not be able to read the specification."
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	272
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	273	"
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	274	self processAbort22x22Icon inspect
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	275	ImageEditor openOnClass:self andSelector:#processAbort22x22Icon
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	276	Icon flushCachedIcons
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	277	"
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	278
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	279	<resource: #image>
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	280
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	281	^Icon
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	282	constantNamed:#'ProcessMonitorV2 class processAbort22x22Icon'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	283	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	284	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@ @@@@@@@@@@@@@@@@@@@@@@@@@@APH@@@@@@@@@@@@@@@@@
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	285	@@@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	286	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	287	@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	288	@@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	289	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	290	!
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	291
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	292	processDebug22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	293	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	294	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	295
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	296	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	297	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	298
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	299	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	300	self processDebug22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	301	ImageEditor openOnClass:self andSelector:#processDebug22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	302	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	303	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	304
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	305	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	306
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	307	^Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	308	constantNamed:#'ProcessMonitorV2 class processDebug22x22Icon'
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	309	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	310	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@0@@@@@@@@@@@@@@@@@@@@@@@@@@A L@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	311	@@@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	312	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	313	APTE@@HEAPTEAPTEAPTE@ @@@@@B@ TEAP@BAPTEAPTEAPTEAPH@@@@@@@HEAPT@@@@@@@@@@@@@@@@@@@@@@@HBAPTE@@HBAPTEAPTEAPTE@ @@@@@@@ HE
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	314	@ @B@ HEAPTEAPTE@ H@@@@@@@@@@@@@@@HB@ HB@ HB@ @@@@@@@@@@@@@@@@@@@@@B@ HB@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	315	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	316	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	317
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	318	processInspect22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	319	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	320	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	321
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	322	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	323	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	324
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	325	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	326	self processInspect22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	327	ImageEditor openOnClass:self andSelector:#processInspect22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	328	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	329	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	330
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	331	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	332
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	333	^Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	334	constantNamed:#'ProcessMonitorV2 class processInspect22x22Icon'
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	335	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	336	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	337	@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA @@@@XH@@@@@@@@@@@@@@@@APXF@@@BCPH@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	338	APXF@@0MCP4MCP0@@@@@@@@@@@@EAPXFA @MCPTEAP4M@@TG@@@@@@@@B@ FA @BCPTEAP4MCPH@B@@@@@@@@@@@A0\@CP4EAP4MCP4M@@@@@@@@@@@@@@@G
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	339	@@HMAP4MCP4M@ @@@@@@@@@@@@@@APX@CP4MCP4MCP@@@@@@@@@@@@@@APXH@@0MCP4MCP0@BP@@@@@@@@@@@@\H@@@@@@HM@ @@@ @@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	340	@@T@@@@@B @K@0@@@@@@@@@@@@@@@@@EB@@@@@@@C ,C@@@@@@@@@@@@@@@@@@@@@@@@@@@NB0L@@@@@@@@@@@@@@@@@@@@@@@@@@@8K@0@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	341	@@@@@@@@@@@@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	342	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	343
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	344	processLowerPrio22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	345	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	346	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	347
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	348	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	349	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	350
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	351	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	352	self processLowerPrio22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	353	ImageEditor openOnClass:self andSelector:#processLowerPrio22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	354	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	355	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	356
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	357	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	358
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	359	^Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	360	constantNamed:#'ProcessMonitorV2 class processLowerPrio22x22Icon'
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	361	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	362	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	363	@@@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	364	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	365	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	366	@@THAP@@@@@@@@@@@@T@@@@@@@@@@@@EB@@E@@@@@@@@@@T@@@@@@@@@@@@@@@@@@@T@@@@@@@T@@@@@@@@@@@@@@@@@@@@@AP@@@@T@@@@@@@@@@@@@@@@@
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	367	@@@@@@@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	368	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	369
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	370	processRaisePrio22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	371	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	372	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	373
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	374	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	375	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	376
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	377	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	378	self processRaisePrio22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	379	ImageEditor openOnClass:self andSelector:#processRaisePrio22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	380	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	381	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	382
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	383	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	384
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	385	^Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	386	constantNamed:#'ProcessMonitorV2 class processRaisePrio22x22Icon'
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	387	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	388	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	389	@@@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	390	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	391	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	392	@@THAPTE@@@@@@@EAPT@@@@@@@@@@@@EB@@@AP@@@@@@AP@@@@@@@@@@@@@@@@@@@@T@@@@@@@T@@@@@@@@@@@@@@@@@@@@E@@@@@@@E@@@@@@@@@@@@@@@@
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	393	@@@@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	394	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	395
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	396	processRestart22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	397	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	398	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	399
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	400	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	401	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	402
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	403	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	404	self processRestart22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	405	ImageEditor openOnClass:self andSelector:#processRestart22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	406	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	407	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	408
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	409	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	410
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	411	^Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	412	constantNamed:#'ProcessMonitorV2 class processRestart22x22Icon'
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	413	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	414	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GAP@@@@@@@@@@@@@@@@@@@@@@@@@@A0T@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	415	@@@EA0@@A0XFA@@@A0T@@@@@@@@@@@@@A@XGA0XFA XGA0XD@@@@@@@@@@@@@@@EA XFA XF@@@@@@@@@@@@@@@@@@@@A0XFAPP@@@LC@0@@@P@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	416	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	417	@@LC@0LC@0L@@@@@@@@@@@@@@@@@A0X@@0LC@0L@@@@@@@@@@@@@@@@@A0XDAP@C@0L@@@@@@@@@@@@@@@@@@@TD@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	418	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	419	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	420	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	421
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	422	processResume22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	423	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	424	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	425
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	426	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	427	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	428
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	429	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	430	self processResume22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	431	ImageEditor openOnClass:self andSelector:#processResume22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	432	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	433	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	434
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	435	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	436
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	437	^Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	438	constantNamed:#'ProcessMonitorV2 class processResume22x22Icon'
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	439	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	440	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	441	@@@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	442	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	443	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	444	@@TH@@@E@@@@@@@@AP@@@@@@@@@@@@@EB@@@AP@@@@@@AP@@@@@@@@@@@@@@@@@@@@T@@@@@AP@@@@@@@@@@@@@@@@@@@@@E@@@@AP@@@@@@@@@@@@@@@@@@
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	445	@@@@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	446	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	447
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	448	processStop22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	449	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	450	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	451
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	452	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	453	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	454
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	455	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	456	self processStop22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	457	ImageEditor openOnClass:self andSelector:#processStop22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	458	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	459	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	460
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	461	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	462
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	463	^Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	464	constantNamed:#'ProcessMonitorV2 class processStop22x22Icon'
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	465	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	466	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	467	@@@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	468	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	469	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	470	@@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	471	@@@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	472	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	473
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	474	processSuspend22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	475	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	476	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	477
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	478	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	479	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	480
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	481	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	482	self processSuspend22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	483	ImageEditor openOnClass:self andSelector:#processSuspend22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	484	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	485	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	486
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	487	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	488
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	489	^Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	490	constantNamed:#'ProcessMonitorV2 class processSuspend22x22Icon'
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	491	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	492	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	493	@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	494	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	495	A XFAPTE@@@@@@@@@@@EAP@@@@@@APXFA TEAP@@@@@@@@@@APT@@@@@APXHA0XEAPT@@@@@@@@@@@TE@@@@@@\H@@@EAPTE@@@@@@@@@@@EAP@@@@@@@@@@
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	496	@@TEAP@@@@@@@@@@APT@@@@@@@@@@@@EAPT@@@@@@@@@@@TE@@@@@@@@@@@@APTE@@@@@@@@@@@EAP@@@@@@@@@@@@TEAP@@@@@@@@@@APT@@@@@@@@@@@@E
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	497	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	498	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	499
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	500	processTerminate22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	501	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	502	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	503
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	504	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	505	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	506
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	507	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	508	self processTerminate22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	509	ImageEditor openOnClass:self andSelector:#processTerminate22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	510	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	511	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	512
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	513	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	514
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	515	^Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	516	constantNamed:#'ProcessMonitorV2 class processTerminate22x22Icon'
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	517	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	518	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA0@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	519	@@@GAP@@APXFB@@@AP\@@@@@@@@@@@@@B@XEAPXFA XEAPXH@@@@@@@@@@@@@@@GA XFA XFA XH@@@@@@@@@@@@@@@@APXFA0 GA XFA0@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	520	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	521	A XFAPTJB0,LB0,KBP@@@@@@@@@@APXFA XFA (KB0,KBP@@@@@@@@@@APXHA0XFA XFC@,KC@@@@@@@@@@@@@\H@@@EA XGC@,KB00@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	522	@@THC@,I@@(KC@@@@@@@@@@@@@@@@@@EB@0I@@@@B ,@@@@@@@@@@@@@@@@@@@0K@@@@@@@JB0@@@@@@@@@@@@@@@@@LBP@@@@@@@@,@@@@@@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	523	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	524	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	525
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	526	processTerminateGroup22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	527	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	528	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	529
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	530	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	531	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	532
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	533	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	534	self processTerminateGroup22x22Icon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	535	ImageEditor openOnClass:self andSelector:#processTerminateGroup22x22Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	536	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	537	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	538
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	539	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	540
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	541	^Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	542	constantNamed:#'ProcessMonitorV2 class processTerminateGroup22x22Icon'
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	543	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	544	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AP\@@@@@@@@@@@@@@@@@@@@@@@@@@@TG@@@@@@@@@@@@@@@@@@@@A0T@@@TFA @@@TG@@@@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	545	@@ FAPTF@@@FAPTFB@@@@@@@@@@@@@@@A0XF@@TG@@XFB@@@@@@@@@@@@@@@@@@FA @EA0@FA @@@@@@@@@@@@@@@@\E@@@EA XH@@@EA0@@@@@@@@@@AP@H
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	546	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	547	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	548	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	549	@@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	550	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	551
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	552	terminateGroupIcon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	553	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	554	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	555
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	556	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	557	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	558
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	559	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	560	self terminateGroupIcon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	561	ImageEditor openOnClass:self andSelector:#terminateGroupIcon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	562	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	563	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	564
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	565	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	566
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	567	^Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	568	constantNamed:#'ProcessMonitorV2 class terminateGroupIcon'
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	569	ifAbsentPut:[(Depth8Image new) width: 22; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	570	@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	571	@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	572	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	573	@ 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	574	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	575	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	576
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	577	terminateIcon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	578	"This resource specification was automatically generated
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	579	by the ImageEditor of ST/X."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	580
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	581	"Do not manually edit this!! If it is corrupted,
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	582	the ImageEditor may not be able to read the specification."
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	583
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	584	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	585	self terminateIcon inspect
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	586	ImageEditor openOnClass:self andSelector:#terminateIcon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	587	Icon flushCachedIcons
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	588	"
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	589
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	590	<resource: #image>
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	591
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	592	^Icon
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	593	constantNamed:#'ProcessMonitorV2 class terminateIcon'
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	594	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	595	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@LC@@@@@@@C@ H@@@@@@@LB@ LC@@@C@ H@@@@@@@@@@@DB@ LB
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	596	@ H@@@@@@@@@@@@@@PHB@ H@@@@@@@@@@@@@@@@C@ HC@@@@@@@@@@@@@@@C@ HB@0@@@@@@@@@@@@@C@ @@@PHC@@@@@@@@@@@@@0@@@@@A@ @@@@@@@@@@
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	597	@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	598	!
cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	599
4463 99d11fbee2af initial checkin penk parents: diff changeset	600	viewDetailsIcon
99d11fbee2af initial checkin penk parents: diff changeset	601	"This resource specification was automatically generated
99d11fbee2af initial checkin penk parents: diff changeset	602	by the ImageEditor of ST/X."
99d11fbee2af initial checkin penk parents: diff changeset	603
99d11fbee2af initial checkin penk parents: diff changeset	604	"Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin penk parents: diff changeset	605	the ImageEditor may not be able to read the specification."
99d11fbee2af initial checkin penk parents: diff changeset	606
99d11fbee2af initial checkin penk parents: diff changeset	607	"
99d11fbee2af initial checkin penk parents: diff changeset	608	self viewDetailsIcon inspect
99d11fbee2af initial checkin penk parents: diff changeset	609	ImageEditor openOnClass:self andSelector:#viewDetailsIcon
99d11fbee2af initial checkin penk parents: diff changeset	610	Icon flushCachedIcons
99d11fbee2af initial checkin penk parents: diff changeset	611	"
99d11fbee2af initial checkin penk parents: diff changeset	612
99d11fbee2af initial checkin penk parents: diff changeset	613	<resource: #image>
99d11fbee2af initial checkin penk parents: diff changeset	614
99d11fbee2af initial checkin penk parents: diff changeset	615	^Icon
99d11fbee2af initial checkin penk parents: diff changeset	616	constantNamed:#'ProcessMonitorV2 class viewDetailsIcon'
99d11fbee2af initial checkin penk parents: diff changeset	617	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]
99d11fbee2af initial checkin penk parents: diff changeset	618	! !
99d11fbee2af initial checkin penk parents: diff changeset	619
99d11fbee2af initial checkin penk parents: diff changeset	620	!ProcessMonitorV2 class methodsFor:'interface specs'!
99d11fbee2af initial checkin penk parents: diff changeset	621
99d11fbee2af initial checkin penk parents: diff changeset	622	windowSpec
99d11fbee2af initial checkin penk parents: diff changeset	623	"This resource specification was automatically generated
99d11fbee2af initial checkin penk parents: diff changeset	624	by the UIPainter of ST/X."
99d11fbee2af initial checkin penk parents: diff changeset	625
99d11fbee2af initial checkin penk parents: diff changeset	626	"Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin penk parents: diff changeset	627	the UIPainter may not be able to read the specification."
99d11fbee2af initial checkin penk parents: diff changeset	628
99d11fbee2af initial checkin penk parents: diff changeset	629	"
99d11fbee2af initial checkin penk parents: diff changeset	630	UIPainter new openOnClass:ProcessMonitorV2 andSelector:#windowSpec
99d11fbee2af initial checkin penk parents: diff changeset	631	ProcessMonitorV2 new openInterface:#windowSpec
99d11fbee2af initial checkin penk parents: diff changeset	632	ProcessMonitorV2 open
99d11fbee2af initial checkin penk parents: diff changeset	633	"
99d11fbee2af initial checkin penk parents: diff changeset	634
99d11fbee2af initial checkin penk parents: diff changeset	635	<resource: #canvas>
99d11fbee2af initial checkin penk parents: diff changeset	636
99d11fbee2af initial checkin penk parents: diff changeset	637	^
5938 482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	638	#(FullSpec
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	639	name: windowSpec
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	640	window:
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	641	(WindowSpec
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	642	label: 'ProcessMonitorV2'
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	643	name: 'ProcessMonitorV2'
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	644	min: (Point 10 10)
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	645	bounds: (Rectangle 0 0 791 358)
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	646	menu: mainMenu
4463 99d11fbee2af initial checkin penk parents: diff changeset	647	)
5938 482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	648	component:
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	649	(SpecCollection
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	650	collection: (
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	651	(MenuPanelSpec
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	652	name: 'ToolBar1'
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	653	layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	654	menu: toolBarMainMenu
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	655	textDefault: true
4463 99d11fbee2af initial checkin penk parents: diff changeset	656	)
5938 482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	657	(DataSetSpec
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	658	name: 'ProcessTable'
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	659	layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 -23 1)
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	660	model: selectedProcesses
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	661	menu: tableMenu
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	662	hasHorizontalScrollBar: true
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	663	hasVerticalScrollBar: true
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	664	dataList: processList
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	665	useIndex: false
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	666	doubleClickSelector: doubleClickedAt:
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	667	columnHolder: tableColumns
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	668	multipleSelectOk: true
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	669	verticalSpacing: 0
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	670	postBuildCallback: postBuildProcessTable:
4463 99d11fbee2af initial checkin penk parents: diff changeset	671	)
5938 482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	672	(LabelSpec
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	673	label: 'Update Contents Delay (s):'
6240 b583ba54db3a icons Claus Gittinger <cg@exept.de> parents: 6239 diff changeset	674	name: 'ContentsUpdateLabel'
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	675	layout: (LayoutFrame -593 1 -20 1 -402 1 0 1)
5938 482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	676	translateLabel: true
482ef199ebdb Do not set maxExtent (to 1024x768). Stefan Vogel <sv@exept.de> parents: 5783 diff changeset	677	adjust: right
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	678	)
6010 96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	679	(ViewSpec
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	680	name: 'Box1'
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	681	layout: (LayoutFrame -396 1 -22 1 -306 1 0 1)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6300 diff changeset	682	level: 0
6010 96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	683	component:
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	684	(SpecCollection
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	685	collection: (
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	686	(ArrowButtonSpec
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	687	name: 'ArrowButton3'
6240 b583ba54db3a icons Claus Gittinger <cg@exept.de> parents: 6239 diff changeset	688	layout: (LayoutFrame 68 0 0 0 89 0 20 0)
6010 96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	689	model: increaseupdateContentsDelayTime
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	690	enableChannel: enableIncreaseContentsDelayTime
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	691	isTriggerOnDown: true
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	692	autoRepeat: true
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	693	actionValue: ''
6240 b583ba54db3a icons Claus Gittinger <cg@exept.de> parents: 6239 diff changeset	694	direction: up
6010 96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	695	)
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	696	(InputFieldSpec
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	697	name: 'EntryField2'
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	698	layout: (LayoutFrame 22 0 0 0 66 0 20 0)
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	699	model: updateContentsDelayTime
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	700	acceptOnReturn: true
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	701	acceptOnTab: true
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	702	acceptOnLostFocus: true
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	703	acceptOnPointerLeave: false
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	704	)
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	705	(ArrowButtonSpec
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	706	name: 'ArrowButton4'
6240 b583ba54db3a icons Claus Gittinger <cg@exept.de> parents: 6239 diff changeset	707	layout: (LayoutFrame 0 0 0 0 20 0 20 0)
6010 96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	708	model: decreaseupdateContentsDelayTime
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	709	enableChannel: enableDecreaseContentsDelayTime
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	710	isTriggerOnDown: true
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	711	autoRepeat: true
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	712	actionValue: ''
6240 b583ba54db3a icons Claus Gittinger <cg@exept.de> parents: 6239 diff changeset	713	direction: down
6010 96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	714	)
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	715	)
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	716
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	717	)
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	718	)
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	719	(LabelSpec
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	720	label: 'Update List Delay (s):'
6240 b583ba54db3a icons Claus Gittinger <cg@exept.de> parents: 6239 diff changeset	721	name: 'ListUpdateLabel'
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	722	layout: (LayoutFrame -301 1 -20 1 -93 1 0 1)
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	723	translateLabel: true
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	724	adjust: right
b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	725	)
6010 96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	726	(ViewSpec
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	727	name: 'Box2'
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	728	layout: (LayoutFrame -89 1 -21 1 1 1 1 1)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6300 diff changeset	729	level: 0
6010 96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	730	component:
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	731	(SpecCollection
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	732	collection: (
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	733	(ArrowButtonSpec
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	734	name: 'ArrowButton5'
6240 b583ba54db3a icons Claus Gittinger <cg@exept.de> parents: 6239 diff changeset	735	layout: (LayoutFrame 68 0 0 0 89 0 20 0)
6010 96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	736	model: increaseupdateListDelayTime
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	737	enableChannel: enableIncreaseListDelayTime
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	738	isTriggerOnDown: true
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	739	autoRepeat: true
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	740	actionValue: ''
6240 b583ba54db3a icons Claus Gittinger <cg@exept.de> parents: 6239 diff changeset	741	direction: up
6010 96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	742	)
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	743	(InputFieldSpec
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	744	name: 'EntryField3'
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	745	layout: (LayoutFrame 22 0 0 0 66 0 20 0)
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	746	model: updateListDelayTime
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	747	acceptOnReturn: true
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	748	acceptOnTab: true
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	749	acceptOnLostFocus: true
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	750	acceptOnPointerLeave: false
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	751	)
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	752	(ArrowButtonSpec
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	753	name: 'ArrowButton6'
6240 b583ba54db3a icons Claus Gittinger <cg@exept.de> parents: 6239 diff changeset	754	layout: (LayoutFrame 0 0 0 0 20 0 20 0)
6010 96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	755	model: decreaseupdateListDelayTime
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	756	enableChannel: enableDecreaseListDelayTime
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	757	isTriggerOnDown: true
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	758	autoRepeat: true
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	759	actionValue: ''
6240 b583ba54db3a icons Claus Gittinger <cg@exept.de> parents: 6239 diff changeset	760	direction: down
6010 96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	761	)
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	762	)
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	763
96badd4eebec * empty log message * Claus Gittinger <cg@exept.de> parents: 5938 diff changeset	764	)
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	765	)
4463 99d11fbee2af initial checkin penk parents: diff changeset	766	)
99d11fbee2af initial checkin penk parents: diff changeset	767
99d11fbee2af initial checkin penk parents: diff changeset	768	)
99d11fbee2af initial checkin penk parents: diff changeset	769	)
99d11fbee2af initial checkin penk parents: diff changeset	770	! !
99d11fbee2af initial checkin penk parents: diff changeset	771
99d11fbee2af initial checkin penk parents: diff changeset	772	!ProcessMonitorV2 class methodsFor:'menu specs'!
99d11fbee2af initial checkin penk parents: diff changeset	773
99d11fbee2af initial checkin penk parents: diff changeset	774	mainMenu
99d11fbee2af initial checkin penk parents: diff changeset	775	"This resource specification was automatically generated
99d11fbee2af initial checkin penk parents: diff changeset	776	by the MenuEditor of ST/X."
99d11fbee2af initial checkin penk parents: diff changeset	777
99d11fbee2af initial checkin penk parents: diff changeset	778	"Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin penk parents: diff changeset	779	the MenuEditor may not be able to read the specification."
99d11fbee2af initial checkin penk parents: diff changeset	780
99d11fbee2af initial checkin penk parents: diff changeset	781	"
99d11fbee2af initial checkin penk parents: diff changeset	782	MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#mainMenu
99d11fbee2af initial checkin penk parents: diff changeset	783	(Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 mainMenu)) startUp
99d11fbee2af initial checkin penk parents: diff changeset	784	"
99d11fbee2af initial checkin penk parents: diff changeset	785
99d11fbee2af initial checkin penk parents: diff changeset	786	<resource: #menu>
99d11fbee2af initial checkin penk parents: diff changeset	787
99d11fbee2af initial checkin penk parents: diff changeset	788	^
99d11fbee2af initial checkin penk parents: diff changeset	789	#(#Menu
99d11fbee2af initial checkin penk parents: diff changeset	790	#(
99d11fbee2af initial checkin penk parents: diff changeset	791	#(#MenuItem
4502 7d40e78aa5b4 menu penk parents: 4501 diff changeset	792	#label: 'File'
4463 99d11fbee2af initial checkin penk parents: diff changeset	793	#translateLabel: true
4502 7d40e78aa5b4 menu penk parents: 4501 diff changeset	794	#submenu:
7d40e78aa5b4 menu penk parents: 4501 diff changeset	795	#(#Menu
7d40e78aa5b4 menu penk parents: 4501 diff changeset	796	#(
7d40e78aa5b4 menu penk parents: 4501 diff changeset	797	#(#MenuItem
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	798	#label: 'Print'
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	799	#itemValue: #printProcessList
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	800	#translateLabel: true
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	801	)
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	802	#(#MenuItem
4668 06f80f545390 * empty log message * Claus Gittinger <cg@exept.de> parents: 4649 diff changeset	803	#label: '-'
06f80f545390 * empty log message * Claus Gittinger <cg@exept.de> parents: 4649 diff changeset	804	)
06f80f545390 * empty log message * Claus Gittinger <cg@exept.de> parents: 4649 diff changeset	805	#(#MenuItem
4502 7d40e78aa5b4 menu penk parents: 4501 diff changeset	806	#label: 'Exit'
7d40e78aa5b4 menu penk parents: 4501 diff changeset	807	#itemValue: #closeRequest
7d40e78aa5b4 menu penk parents: 4501 diff changeset	808	#translateLabel: true
7d40e78aa5b4 menu penk parents: 4501 diff changeset	809	)
7d40e78aa5b4 menu penk parents: 4501 diff changeset	810	)
7d40e78aa5b4 menu penk parents: 4501 diff changeset	811	nil
7d40e78aa5b4 menu penk parents: 4501 diff changeset	812	nil
7d40e78aa5b4 menu penk parents: 4501 diff changeset	813	)
7d40e78aa5b4 menu penk parents: 4501 diff changeset	814	)
7d40e78aa5b4 menu penk parents: 4501 diff changeset	815	#(#MenuItem
7d40e78aa5b4 menu penk parents: 4501 diff changeset	816	#label: 'Process'
7d40e78aa5b4 menu penk parents: 4501 diff changeset	817	#translateLabel: true
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	818	#isVisible: #allowModifications
4502 7d40e78aa5b4 menu penk parents: 4501 diff changeset	819	#submenuChannel: #tableMenu
7d40e78aa5b4 menu penk parents: 4501 diff changeset	820	)
7d40e78aa5b4 menu penk parents: 4501 diff changeset	821	#(#MenuItem
7d40e78aa5b4 menu penk parents: 4501 diff changeset	822	#label: 'View'
7d40e78aa5b4 menu penk parents: 4501 diff changeset	823	#translateLabel: true
7d40e78aa5b4 menu penk parents: 4501 diff changeset	824	#submenuChannel: #viewDetailsMenuSpec
4463 99d11fbee2af initial checkin penk parents: diff changeset	825	)
99d11fbee2af initial checkin penk parents: diff changeset	826	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	827	#label: 'Help'
99d11fbee2af initial checkin penk parents: diff changeset	828	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	829	#startGroup: #right
99d11fbee2af initial checkin penk parents: diff changeset	830	#submenu:
99d11fbee2af initial checkin penk parents: diff changeset	831	#(#Menu
99d11fbee2af initial checkin penk parents: diff changeset	832	#(
99d11fbee2af initial checkin penk parents: diff changeset	833	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	834	#label: 'Documentation'
99d11fbee2af initial checkin penk parents: diff changeset	835	#itemValue: #openDocumentation
99d11fbee2af initial checkin penk parents: diff changeset	836	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	837	)
99d11fbee2af initial checkin penk parents: diff changeset	838	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	839	#label: '-'
99d11fbee2af initial checkin penk parents: diff changeset	840	)
99d11fbee2af initial checkin penk parents: diff changeset	841	#(#MenuItem
6648 3b7d52e1de3a * empty log message * Claus Gittinger <cg@exept.de> parents: 6609 diff changeset	842	#label: 'About this Application...'
4463 99d11fbee2af initial checkin penk parents: diff changeset	843	#itemValue: #openAboutThisApplication
99d11fbee2af initial checkin penk parents: diff changeset	844	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	845	)
99d11fbee2af initial checkin penk parents: diff changeset	846	)
99d11fbee2af initial checkin penk parents: diff changeset	847	nil
99d11fbee2af initial checkin penk parents: diff changeset	848	nil
99d11fbee2af initial checkin penk parents: diff changeset	849	)
99d11fbee2af initial checkin penk parents: diff changeset	850	)
99d11fbee2af initial checkin penk parents: diff changeset	851	)
99d11fbee2af initial checkin penk parents: diff changeset	852	nil
99d11fbee2af initial checkin penk parents: diff changeset	853	nil
99d11fbee2af initial checkin penk parents: diff changeset	854	)
99d11fbee2af initial checkin penk parents: diff changeset	855	!
99d11fbee2af initial checkin penk parents: diff changeset	856
99d11fbee2af initial checkin penk parents: diff changeset	857	tableMenu
99d11fbee2af initial checkin penk parents: diff changeset	858	"This resource specification was automatically generated
99d11fbee2af initial checkin penk parents: diff changeset	859	by the MenuEditor of ST/X."
99d11fbee2af initial checkin penk parents: diff changeset	860
99d11fbee2af initial checkin penk parents: diff changeset	861	"Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin penk parents: diff changeset	862	the MenuEditor may not be able to read the specification."
99d11fbee2af initial checkin penk parents: diff changeset	863
99d11fbee2af initial checkin penk parents: diff changeset	864	"
99d11fbee2af initial checkin penk parents: diff changeset	865	MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#tableMenu
99d11fbee2af initial checkin penk parents: diff changeset	866	(Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 tableMenu)) startUp
99d11fbee2af initial checkin penk parents: diff changeset	867	"
99d11fbee2af initial checkin penk parents: diff changeset	868
99d11fbee2af initial checkin penk parents: diff changeset	869	<resource: #menu>
99d11fbee2af initial checkin penk parents: diff changeset	870
99d11fbee2af initial checkin penk parents: diff changeset	871	^
99d11fbee2af initial checkin penk parents: diff changeset	872	#(#Menu
99d11fbee2af initial checkin penk parents: diff changeset	873	#(
99d11fbee2af initial checkin penk parents: diff changeset	874	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	875	#enabled: #hasSelection
99d11fbee2af initial checkin penk parents: diff changeset	876	#label: 'Inspect'
99d11fbee2af initial checkin penk parents: diff changeset	877	#itemValue: #inspectSelection
99d11fbee2af initial checkin penk parents: diff changeset	878	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	879	)
99d11fbee2af initial checkin penk parents: diff changeset	880	#(#MenuItem
6609 8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	881	#enabled: #hasSelectionAndProcessIsApplicationProcess
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	882	#label: 'Inspect Application or TopView'
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	883	#itemValue: #inspectApplication
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	884	#translateLabel: true
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	885	)
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	886	#(#MenuItem
4463 99d11fbee2af initial checkin penk parents: diff changeset	887	#enabled: #hasSelection
99d11fbee2af initial checkin penk parents: diff changeset	888	#label: 'Debug'
99d11fbee2af initial checkin penk parents: diff changeset	889	#itemValue: #debugProcess
99d11fbee2af initial checkin penk parents: diff changeset	890	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	891	)
99d11fbee2af initial checkin penk parents: diff changeset	892	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	893	#label: '-'
99d11fbee2af initial checkin penk parents: diff changeset	894	)
99d11fbee2af initial checkin penk parents: diff changeset	895	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	896	#enabled: #hasSelection
99d11fbee2af initial checkin penk parents: diff changeset	897	#label: 'Resume'
99d11fbee2af initial checkin penk parents: diff changeset	898	#itemValue: #resumeProcess
99d11fbee2af initial checkin penk parents: diff changeset	899	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	900	)
99d11fbee2af initial checkin penk parents: diff changeset	901	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	902	#enabled: #hasSelection
99d11fbee2af initial checkin penk parents: diff changeset	903	#label: 'Suspend'
99d11fbee2af initial checkin penk parents: diff changeset	904	#itemValue: #suspendProcess
99d11fbee2af initial checkin penk parents: diff changeset	905	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	906	)
99d11fbee2af initial checkin penk parents: diff changeset	907	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	908	#enabled: #hasSelection
99d11fbee2af initial checkin penk parents: diff changeset	909	#label: 'Stop'
99d11fbee2af initial checkin penk parents: diff changeset	910	#itemValue: #stopProcess
99d11fbee2af initial checkin penk parents: diff changeset	911	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	912	)
99d11fbee2af initial checkin penk parents: diff changeset	913	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	914	#label: '-'
99d11fbee2af initial checkin penk parents: diff changeset	915	)
99d11fbee2af initial checkin penk parents: diff changeset	916	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	917	#enabled: #hasSelection
99d11fbee2af initial checkin penk parents: diff changeset	918	#label: 'Abort'
99d11fbee2af initial checkin penk parents: diff changeset	919	#itemValue: #abortProcess
99d11fbee2af initial checkin penk parents: diff changeset	920	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	921	)
99d11fbee2af initial checkin penk parents: diff changeset	922	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	923	#enabled: #hasSelection
99d11fbee2af initial checkin penk parents: diff changeset	924	#label: 'Terminate'
99d11fbee2af initial checkin penk parents: diff changeset	925	#itemValue: #terminateProcess
99d11fbee2af initial checkin penk parents: diff changeset	926	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	927	)
99d11fbee2af initial checkin penk parents: diff changeset	928	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	929	#enabled: #hasSelection
99d11fbee2af initial checkin penk parents: diff changeset	930	#label: 'Hard Terminate'
99d11fbee2af initial checkin penk parents: diff changeset	931	#itemValue: #hardTerminateProcess
99d11fbee2af initial checkin penk parents: diff changeset	932	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	933	)
99d11fbee2af initial checkin penk parents: diff changeset	934	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	935	#enabled: #hasSelection
99d11fbee2af initial checkin penk parents: diff changeset	936	#label: 'Terminate Group'
99d11fbee2af initial checkin penk parents: diff changeset	937	#itemValue: #terminateProcessGroup
99d11fbee2af initial checkin penk parents: diff changeset	938	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	939	)
99d11fbee2af initial checkin penk parents: diff changeset	940	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	941	#enabled: #selectionRestartable
99d11fbee2af initial checkin penk parents: diff changeset	942	#label: 'Restart'
99d11fbee2af initial checkin penk parents: diff changeset	943	#itemValue: #restartProcess
99d11fbee2af initial checkin penk parents: diff changeset	944	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	945	)
99d11fbee2af initial checkin penk parents: diff changeset	946	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	947	#label: '-'
99d11fbee2af initial checkin penk parents: diff changeset	948	)
99d11fbee2af initial checkin penk parents: diff changeset	949	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	950	#enabled: #hasSelection
99d11fbee2af initial checkin penk parents: diff changeset	951	#label: 'Raise Prio'
99d11fbee2af initial checkin penk parents: diff changeset	952	#itemValue: #raisePrio
99d11fbee2af initial checkin penk parents: diff changeset	953	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	954	)
99d11fbee2af initial checkin penk parents: diff changeset	955	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	956	#enabled: #hasSelection
99d11fbee2af initial checkin penk parents: diff changeset	957	#label: 'Lower Prio'
99d11fbee2af initial checkin penk parents: diff changeset	958	#itemValue: #lowerPrio
99d11fbee2af initial checkin penk parents: diff changeset	959	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	960	)
99d11fbee2af initial checkin penk parents: diff changeset	961	)
99d11fbee2af initial checkin penk parents: diff changeset	962	nil
99d11fbee2af initial checkin penk parents: diff changeset	963	nil
99d11fbee2af initial checkin penk parents: diff changeset	964	)
99d11fbee2af initial checkin penk parents: diff changeset	965	!
99d11fbee2af initial checkin penk parents: diff changeset	966
99d11fbee2af initial checkin penk parents: diff changeset	967	toolBarMainMenu
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:#toolBarMainMenu
99d11fbee2af initial checkin penk parents: diff changeset	976	(Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 toolBarMainMenu)) 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
99d11fbee2af initial checkin penk parents: diff changeset	981	^
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	982	#(Menu
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	983	(
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	984	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	985	activeHelpKey: Inspect
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	986	enabled: hasSelection
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	987	label: 'Inspect'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	988	itemValue: inspectSelection
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	989	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	990	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	991	isVisible: allowModifications
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	992	labelImage: (ResourceRetriever ProcessMonitorV2 processInspect22x22Icon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	993	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	994	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	995	activeHelpKey: Debug
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	996	enabled: hasSelection
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	997	label: 'Debug'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	998	itemValue: debugProcess
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	999	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1000	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1001	isVisible: allowModifications
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1002	labelImage: (ResourceRetriever ProcessMonitorV2 processDebug22x22Icon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1003	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1004	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1005	label: '-'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1006	isVisible: allowModifications
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1007	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1008	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1009	activeHelpKey: Resume
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1010	enabled: hasSelection
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1011	label: 'Resume'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1012	itemValue: resumeProcess
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1013	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1014	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1015	isVisible: allowModifications
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1016	labelImage: (ResourceRetriever ProcessMonitorV2 processResume22x22Icon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1017	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1018	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1019	activeHelpKey: Stop
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1020	enabled: hasSelection
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1021	label: 'Stop'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1022	itemValue: stopProcess
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1023	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1024	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1025	isVisible: allowModifications
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1026	labelImage: (ResourceRetriever ProcessMonitorV2 processStop22x22Icon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1027	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1028	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1029	activeHelpKey: Abort
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1030	enabled: hasSelection
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1031	label: 'Abort'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1032	itemValue: abortProcess
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1033	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1034	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1035	isVisible: allowModifications
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1036	labelImage: (ResourceRetriever ProcessMonitorV2 processAbort22x22Icon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1037	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1038	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1039	label: '-'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1040	isVisible: allowModifications
4463 99d11fbee2af initial checkin penk parents: diff changeset	1041	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1042	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1043	activeHelpKey: Terminate
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1044	enabled: hasSelection
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1045	label: 'Terminate'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1046	itemValue: terminateProcess
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1047	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1048	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1049	isVisible: allowModifications
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1050	labelImage: (ResourceRetriever ProcessMonitorV2 processTerminate22x22Icon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1051	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1052	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1053	activeHelpKey: #'Terminate Group'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1054	enabled: hasSelection
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1055	label: 'Terminate Group'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1056	itemValue: terminateProcessGroup
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1057	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1058	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1059	isVisible: allowModifications
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1060	labelImage: (ResourceRetriever ProcessMonitorV2 processTerminateGroup22x22Icon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1061	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1062	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1063	activeHelpKey: Restart
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1064	enabled: selectionRestartable
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1065	label: 'Restart'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1066	itemValue: restartProcess
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1067	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1068	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1069	isVisible: allowModifications
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1070	labelImage: (ResourceRetriever ProcessMonitorV2 processRestart22x22Icon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1071	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1072	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1073	label: '-'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1074	isVisible: allowModifications
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1075	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1076	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1077	activeHelpKey: #'Raise Prio'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1078	enabled: hasSelection
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1079	label: 'Raise Prio'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1080	itemValue: raisePrio
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1081	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1082	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1083	isVisible: allowModifications
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1084	labelImage: (ResourceRetriever ProcessMonitorV2 processRaisePrio22x22Icon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1085	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1086	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1087	activeHelpKey: #'Lower Prio'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1088	enabled: hasSelection
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1089	label: 'Lower Prio'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1090	itemValue: lowerPrio
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1091	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1092	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1093	isVisible: allowModifications
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1094	labelImage: (ResourceRetriever ProcessMonitorV2 processLowerPrio22x22Icon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1095	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1096	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1097	label: ''
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1098	isVisible: allowModifications
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1099	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1100	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1101	activeHelpKey: #'Update Process List'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1102	label: 'Update'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1103	itemValue: updateList
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1104	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1105	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1106	startGroup: right
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1107	labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1108	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1109	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1110	label: 'Print'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1111	itemValue: printProcessList
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1112	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1113	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1114	startGroup: right
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1115	labelImage: (ResourceRetriever ToolbarIconLibrary printerIcon)
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1116	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1117	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1118	activeHelpKey: Details
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1119	label: 'View Details'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1120	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1121	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1122	startGroup: right
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1123	submenuChannel: viewDetailsMenuSpec
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1124	labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
4463 99d11fbee2af initial checkin penk parents: diff changeset	1125	)
99d11fbee2af initial checkin penk parents: diff changeset	1126	)
99d11fbee2af initial checkin penk parents: diff changeset	1127	nil
99d11fbee2af initial checkin penk parents: diff changeset	1128	nil
99d11fbee2af initial checkin penk parents: diff changeset	1129	)
99d11fbee2af initial checkin penk parents: diff changeset	1130	!
99d11fbee2af initial checkin penk parents: diff changeset	1131
99d11fbee2af initial checkin penk parents: diff changeset	1132	viewDetailsMenuSpec
99d11fbee2af initial checkin penk parents: diff changeset	1133	"This resource specification was automatically generated
99d11fbee2af initial checkin penk parents: diff changeset	1134	by the MenuEditor of ST/X."
99d11fbee2af initial checkin penk parents: diff changeset	1135
99d11fbee2af initial checkin penk parents: diff changeset	1136	"Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin penk parents: diff changeset	1137	the MenuEditor may not be able to read the specification."
99d11fbee2af initial checkin penk parents: diff changeset	1138
99d11fbee2af initial checkin penk parents: diff changeset	1139	"
99d11fbee2af initial checkin penk parents: diff changeset	1140	MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#viewDetailsMenuSpec
99d11fbee2af initial checkin penk parents: diff changeset	1141	(Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 viewDetailsMenuSpec)) startUp
99d11fbee2af initial checkin penk parents: diff changeset	1142	"
99d11fbee2af initial checkin penk parents: diff changeset	1143
99d11fbee2af initial checkin penk parents: diff changeset	1144	<resource: #menu>
99d11fbee2af initial checkin penk parents: diff changeset	1145
99d11fbee2af initial checkin penk parents: diff changeset	1146	^
99d11fbee2af initial checkin penk parents: diff changeset	1147	#(#Menu
99d11fbee2af initial checkin penk parents: diff changeset	1148	#(
99d11fbee2af initial checkin penk parents: diff changeset	1149	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	1150	#label: 'Id'
99d11fbee2af initial checkin penk parents: diff changeset	1151	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	1152	#hideMenuOnActivated: false
99d11fbee2af initial checkin penk parents: diff changeset	1153	#indication: #showProcessId
99d11fbee2af initial checkin penk parents: diff changeset	1154	)
99d11fbee2af initial checkin penk parents: diff changeset	1155	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	1156	#label: 'Group'
99d11fbee2af initial checkin penk parents: diff changeset	1157	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	1158	#hideMenuOnActivated: false
99d11fbee2af initial checkin penk parents: diff changeset	1159	#indication: #showGroup
99d11fbee2af initial checkin penk parents: diff changeset	1160	)
99d11fbee2af initial checkin penk parents: diff changeset	1161	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	1162	#label: 'State'
99d11fbee2af initial checkin penk parents: diff changeset	1163	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	1164	#hideMenuOnActivated: false
99d11fbee2af initial checkin penk parents: diff changeset	1165	#indication: #showState
99d11fbee2af initial checkin penk parents: diff changeset	1166	)
99d11fbee2af initial checkin penk parents: diff changeset	1167	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	1168	#label: 'Prio'
99d11fbee2af initial checkin penk parents: diff changeset	1169	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	1170	#hideMenuOnActivated: false
99d11fbee2af initial checkin penk parents: diff changeset	1171	#indication: #showPrio
99d11fbee2af initial checkin penk parents: diff changeset	1172	)
99d11fbee2af initial checkin penk parents: diff changeset	1173	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	1174	#label: 'Used Stack'
99d11fbee2af initial checkin penk parents: diff changeset	1175	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	1176	#hideMenuOnActivated: false
99d11fbee2af initial checkin penk parents: diff changeset	1177	#indication: #showUsedStack
99d11fbee2af initial checkin penk parents: diff changeset	1178	)
99d11fbee2af initial checkin penk parents: diff changeset	1179	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	1180	#label: 'Total Stack'
99d11fbee2af initial checkin penk parents: diff changeset	1181	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	1182	#hideMenuOnActivated: false
99d11fbee2af initial checkin penk parents: diff changeset	1183	#indication: #showTotalStack
99d11fbee2af initial checkin penk parents: diff changeset	1184	)
99d11fbee2af initial checkin penk parents: diff changeset	1185	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	1186	#label: 'Current-Segment'
99d11fbee2af initial checkin penk parents: diff changeset	1187	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	1188	#hideMenuOnActivated: false
99d11fbee2af initial checkin penk parents: diff changeset	1189	#indication: #showCurrentSegment
99d11fbee2af initial checkin penk parents: diff changeset	1190	)
99d11fbee2af initial checkin penk parents: diff changeset	1191	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	1192	#label: 'Switch'
99d11fbee2af initial checkin penk parents: diff changeset	1193	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	1194	#hideMenuOnActivated: false
99d11fbee2af initial checkin penk parents: diff changeset	1195	#indication: #showSwitch
99d11fbee2af initial checkin penk parents: diff changeset	1196	)
99d11fbee2af initial checkin penk parents: diff changeset	1197	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	1198	#label: 'Where'
99d11fbee2af initial checkin penk parents: diff changeset	1199	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	1200	#hideMenuOnActivated: false
99d11fbee2af initial checkin penk parents: diff changeset	1201	#indication: #showWhere
99d11fbee2af initial checkin penk parents: diff changeset	1202	)
99d11fbee2af initial checkin penk parents: diff changeset	1203	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	1204	#label: '-'
99d11fbee2af initial checkin penk parents: diff changeset	1205	)
99d11fbee2af initial checkin penk parents: diff changeset	1206	#(#MenuItem
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	1207	#label: 'Show Dead Processes'
4463 99d11fbee2af initial checkin penk parents: diff changeset	1208	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	1209	#indication: #showDead
99d11fbee2af initial checkin penk parents: diff changeset	1210	)
4502 7d40e78aa5b4 menu penk parents: 4501 diff changeset	1211	#(#MenuItem
7d40e78aa5b4 menu penk parents: 4501 diff changeset	1212	#label: '-'
7d40e78aa5b4 menu penk parents: 4501 diff changeset	1213	)
7d40e78aa5b4 menu penk parents: 4501 diff changeset	1214	#(#MenuItem
7d40e78aa5b4 menu penk parents: 4501 diff changeset	1215	#label: 'Update'
7d40e78aa5b4 menu penk parents: 4501 diff changeset	1216	#itemValue: #updateView
7d40e78aa5b4 menu penk parents: 4501 diff changeset	1217	#translateLabel: true
7d40e78aa5b4 menu penk parents: 4501 diff changeset	1218	)
4463 99d11fbee2af initial checkin penk parents: diff changeset	1219	)
99d11fbee2af initial checkin penk parents: diff changeset	1220	nil
99d11fbee2af initial checkin penk parents: diff changeset	1221	nil
99d11fbee2af initial checkin penk parents: diff changeset	1222	)
99d11fbee2af initial checkin penk parents: diff changeset	1223	! !
99d11fbee2af initial checkin penk parents: diff changeset	1224
99d11fbee2af initial checkin penk parents: diff changeset	1225	!ProcessMonitorV2 class methodsFor:'tableColumns specs'!
99d11fbee2af initial checkin penk parents: diff changeset	1226
99d11fbee2af initial checkin penk parents: diff changeset	1227	tableColumns
99d11fbee2af initial checkin penk parents: diff changeset	1228	"This resource specification was automatically generated
99d11fbee2af initial checkin penk parents: diff changeset	1229	by the DataSetBuilder of ST/X."
99d11fbee2af initial checkin penk parents: diff changeset	1230
99d11fbee2af initial checkin penk parents: diff changeset	1231	"Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin penk parents: diff changeset	1232	the DataSetBuilder may not be able to read the specification."
99d11fbee2af initial checkin penk parents: diff changeset	1233
99d11fbee2af initial checkin penk parents: diff changeset	1234	"
99d11fbee2af initial checkin penk parents: diff changeset	1235	DataSetBuilder new openOnClass:ProcessMonitorV2 andSelector:#tableColumns
99d11fbee2af initial checkin penk parents: diff changeset	1236	"
99d11fbee2af initial checkin penk parents: diff changeset	1237
99d11fbee2af initial checkin penk parents: diff changeset	1238	<resource: #tableColumns>
99d11fbee2af initial checkin penk parents: diff changeset	1239
99d11fbee2af initial checkin penk parents: diff changeset	1240	^#(
99d11fbee2af initial checkin penk parents: diff changeset	1241	#(#DataSetColumnSpec
99d11fbee2af initial checkin penk parents: diff changeset	1242	#label: 'Id'
99d11fbee2af initial checkin penk parents: diff changeset	1243	#id: #id
99d11fbee2af initial checkin penk parents: diff changeset	1244	#labelAlignment: #left
99d11fbee2af initial checkin penk parents: diff changeset	1245	#labelButtonType: #Button
99d11fbee2af initial checkin penk parents: diff changeset	1246	#labelActionSelector: #sortProcessListBy:
99d11fbee2af initial checkin penk parents: diff changeset	1247	#labelActionArgument: 'idVal'
99d11fbee2af initial checkin penk parents: diff changeset	1248	#width: 45
99d11fbee2af initial checkin penk parents: diff changeset	1249	#type: #number
99d11fbee2af initial checkin penk parents: diff changeset	1250	#model: #processId
99d11fbee2af initial checkin penk parents: diff changeset	1251	#canSelect: false
99d11fbee2af initial checkin penk parents: diff changeset	1252	#showRowSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1253	#showColSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1254	)
99d11fbee2af initial checkin penk parents: diff changeset	1255	#(#DataSetColumnSpec
99d11fbee2af initial checkin penk parents: diff changeset	1256	#label: 'Group'
99d11fbee2af initial checkin penk parents: diff changeset	1257	#id: #group
99d11fbee2af initial checkin penk parents: diff changeset	1258	#labelAlignment: #left
99d11fbee2af initial checkin penk parents: diff changeset	1259	#labelButtonType: #Button
99d11fbee2af initial checkin penk parents: diff changeset	1260	#labelActionSelector: #sortProcessListBy:
99d11fbee2af initial checkin penk parents: diff changeset	1261	#labelActionArgument: 'groupVal'
99d11fbee2af initial checkin penk parents: diff changeset	1262	#width: 45
99d11fbee2af initial checkin penk parents: diff changeset	1263	#model: #processGroup
99d11fbee2af initial checkin penk parents: diff changeset	1264	#canSelect: false
99d11fbee2af initial checkin penk parents: diff changeset	1265	#showRowSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1266	#showColSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1267	)
99d11fbee2af initial checkin penk parents: diff changeset	1268	#(#DataSetColumnSpec
99d11fbee2af initial checkin penk parents: diff changeset	1269	#label: 'Name'
99d11fbee2af initial checkin penk parents: diff changeset	1270	#id: #name
99d11fbee2af initial checkin penk parents: diff changeset	1271	#labelAlignment: #left
99d11fbee2af initial checkin penk parents: diff changeset	1272	#labelButtonType: #Button
99d11fbee2af initial checkin penk parents: diff changeset	1273	#labelActionSelector: #sortProcessListBy:
99d11fbee2af initial checkin penk parents: diff changeset	1274	#labelActionArgument: 'processName'
99d11fbee2af initial checkin penk parents: diff changeset	1275	#width: 200
99d11fbee2af initial checkin penk parents: diff changeset	1276	#model: #processName
99d11fbee2af initial checkin penk parents: diff changeset	1277	#canSelect: false
99d11fbee2af initial checkin penk parents: diff changeset	1278	#showRowSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1279	#showColSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1280	)
99d11fbee2af initial checkin penk parents: diff changeset	1281	#(#DataSetColumnSpec
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1282	#label: ''
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1283	#id: #active
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1284	#labelButtonType: #Button
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1285	#labelActionSelector: #sortProcessListBy:
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1286	#labelActionArgument: 'processActive'
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1287	#width: 10
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1288	#height: 5
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1289	#model: #processActive
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1290	#canSelect: false
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1291	#showRowSeparator: false
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1292	#showColSeparator: false
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1293	)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1294	#(#DataSetColumnSpec
4463 99d11fbee2af initial checkin penk parents: diff changeset	1295	#label: 'State'
99d11fbee2af initial checkin penk parents: diff changeset	1296	#id: #state
99d11fbee2af initial checkin penk parents: diff changeset	1297	#labelAlignment: #left
99d11fbee2af initial checkin penk parents: diff changeset	1298	#labelButtonType: #Button
99d11fbee2af initial checkin penk parents: diff changeset	1299	#labelActionSelector: #sortProcessListBy:
99d11fbee2af initial checkin penk parents: diff changeset	1300	#labelActionArgument: 'processState'
99d11fbee2af initial checkin penk parents: diff changeset	1301	#width: 100
99d11fbee2af initial checkin penk parents: diff changeset	1302	#model: #processState
99d11fbee2af initial checkin penk parents: diff changeset	1303	#canSelect: false
99d11fbee2af initial checkin penk parents: diff changeset	1304	#showRowSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1305	#showColSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1306	)
99d11fbee2af initial checkin penk parents: diff changeset	1307	#(#DataSetColumnSpec
99d11fbee2af initial checkin penk parents: diff changeset	1308	#label: 'Prio'
99d11fbee2af initial checkin penk parents: diff changeset	1309	#id: #prio
99d11fbee2af initial checkin penk parents: diff changeset	1310	#labelAlignment: #left
99d11fbee2af initial checkin penk parents: diff changeset	1311	#labelButtonType: #Button
99d11fbee2af initial checkin penk parents: diff changeset	1312	#labelActionSelector: #sortProcessListBy:
99d11fbee2af initial checkin penk parents: diff changeset	1313	#labelActionArgument: 'prioVal'
99d11fbee2af initial checkin penk parents: diff changeset	1314	#width: 40
99d11fbee2af initial checkin penk parents: diff changeset	1315	#model: #processPrio
99d11fbee2af initial checkin penk parents: diff changeset	1316	#canSelect: false
99d11fbee2af initial checkin penk parents: diff changeset	1317	#showRowSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1318	#showColSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1319	)
99d11fbee2af initial checkin penk parents: diff changeset	1320	#(#DataSetColumnSpec
99d11fbee2af initial checkin penk parents: diff changeset	1321	#label: 'Used Stack'
99d11fbee2af initial checkin penk parents: diff changeset	1322	#id: #usedStack
99d11fbee2af initial checkin penk parents: diff changeset	1323	#labelAlignment: #left
99d11fbee2af initial checkin penk parents: diff changeset	1324	#labelButtonType: #Button
99d11fbee2af initial checkin penk parents: diff changeset	1325	#labelActionSelector: #sortProcessListBy:
99d11fbee2af initial checkin penk parents: diff changeset	1326	#labelActionArgument: 'processUsedStack'
99d11fbee2af initial checkin penk parents: diff changeset	1327	#columnAlignment: #right
99d11fbee2af initial checkin penk parents: diff changeset	1328	#width: 75
99d11fbee2af initial checkin penk parents: diff changeset	1329	#type: #number
99d11fbee2af initial checkin penk parents: diff changeset	1330	#model: #processUsedStack
99d11fbee2af initial checkin penk parents: diff changeset	1331	#canSelect: false
99d11fbee2af initial checkin penk parents: diff changeset	1332	#showRowSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1333	#showColSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1334	)
99d11fbee2af initial checkin penk parents: diff changeset	1335	#(#DataSetColumnSpec
99d11fbee2af initial checkin penk parents: diff changeset	1336	#label: 'Total Stack'
99d11fbee2af initial checkin penk parents: diff changeset	1337	#id: #totalStack
99d11fbee2af initial checkin penk parents: diff changeset	1338	#labelAlignment: #left
99d11fbee2af initial checkin penk parents: diff changeset	1339	#labelButtonType: #Button
99d11fbee2af initial checkin penk parents: diff changeset	1340	#labelActionSelector: #sortProcessListBy:
99d11fbee2af initial checkin penk parents: diff changeset	1341	#labelActionArgument: 'processTotalStack'
99d11fbee2af initial checkin penk parents: diff changeset	1342	#columnAlignment: #right
99d11fbee2af initial checkin penk parents: diff changeset	1343	#width: 75
99d11fbee2af initial checkin penk parents: diff changeset	1344	#model: #processTotalStack
99d11fbee2af initial checkin penk parents: diff changeset	1345	#canSelect: false
99d11fbee2af initial checkin penk parents: diff changeset	1346	#showRowSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1347	#showColSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1348	)
99d11fbee2af initial checkin penk parents: diff changeset	1349	#(#DataSetColumnSpec
99d11fbee2af initial checkin penk parents: diff changeset	1350	#label: 'Current-Segment'
99d11fbee2af initial checkin penk parents: diff changeset	1351	#id: #currentSegment
99d11fbee2af initial checkin penk parents: diff changeset	1352	#labelAlignment: #left
99d11fbee2af initial checkin penk parents: diff changeset	1353	#labelButtonType: #Button
99d11fbee2af initial checkin penk parents: diff changeset	1354	#labelActionSelector: #sortProcessListBy:
99d11fbee2af initial checkin penk parents: diff changeset	1355	#labelActionArgument: 'processCurrentSegment'
99d11fbee2af initial checkin penk parents: diff changeset	1356	#width: 110
99d11fbee2af initial checkin penk parents: diff changeset	1357	#model: #processCurrentSegment
99d11fbee2af initial checkin penk parents: diff changeset	1358	#canSelect: false
99d11fbee2af initial checkin penk parents: diff changeset	1359	#showRowSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1360	#showColSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1361	)
99d11fbee2af initial checkin penk parents: diff changeset	1362	#(#DataSetColumnSpec
99d11fbee2af initial checkin penk parents: diff changeset	1363	#label: 'Switch'
99d11fbee2af initial checkin penk parents: diff changeset	1364	#id: #switch
99d11fbee2af initial checkin penk parents: diff changeset	1365	#labelAlignment: #left
99d11fbee2af initial checkin penk parents: diff changeset	1366	#labelButtonType: #Button
99d11fbee2af initial checkin penk parents: diff changeset	1367	#labelActionSelector: #sortProcessListBy:
99d11fbee2af initial checkin penk parents: diff changeset	1368	#labelActionArgument: 'processSwitch'
99d11fbee2af initial checkin penk parents: diff changeset	1369	#columnAlignment: #right
99d11fbee2af initial checkin penk parents: diff changeset	1370	#width: 55
99d11fbee2af initial checkin penk parents: diff changeset	1371	#type: #number
99d11fbee2af initial checkin penk parents: diff changeset	1372	#model: #processSwitch
99d11fbee2af initial checkin penk parents: diff changeset	1373	#canSelect: false
99d11fbee2af initial checkin penk parents: diff changeset	1374	#showRowSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1375	#showColSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1376	)
99d11fbee2af initial checkin penk parents: diff changeset	1377	#(#DataSetColumnSpec
99d11fbee2af initial checkin penk parents: diff changeset	1378	#label: 'Where'
99d11fbee2af initial checkin penk parents: diff changeset	1379	#id: #where
99d11fbee2af initial checkin penk parents: diff changeset	1380	#labelAlignment: #left
99d11fbee2af initial checkin penk parents: diff changeset	1381	#labelButtonType: #Button
99d11fbee2af initial checkin penk parents: diff changeset	1382	#labelActionSelector: #sortProcessListBy:
99d11fbee2af initial checkin penk parents: diff changeset	1383	#labelActionArgument: 'processWhere'
99d11fbee2af initial checkin penk parents: diff changeset	1384	#model: #processWhere
99d11fbee2af initial checkin penk parents: diff changeset	1385	#canSelect: false
99d11fbee2af initial checkin penk parents: diff changeset	1386	#showRowSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1387	#showColSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1388	)
99d11fbee2af initial checkin penk parents: diff changeset	1389	)
99d11fbee2af initial checkin penk parents: diff changeset	1390	! !
99d11fbee2af initial checkin penk parents: diff changeset	1391
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1392	!ProcessMonitorV2 methodsFor:'accessing'!
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1393
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1394	visibleBlock
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1395	"return the value of the instance variable 'visibleBlock' (automatically generated)"
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1396
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1397	^ visibleBlock
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1398	!
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1399
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1400	visibleBlock:something
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1401	"set the value of the instance variable 'visibleBlock' (automatically generated)"
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1402
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1403	visibleBlock := something.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1404	! !
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1405
4463 99d11fbee2af initial checkin penk parents: diff changeset	1406	!ProcessMonitorV2 methodsFor:'actions'!
99d11fbee2af initial checkin penk parents: diff changeset	1407
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1408	changeSelectionTo:aSelection
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1409
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1410	aSelection notNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1411	\| newSelection \|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1412	newSelection := OrderedCollection new.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1413	aSelection do:[:processItem \|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1414	\| index \|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1415	index := processList findFirst:[:anItem \| (anItem processInstance == processItem processInstance)].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1416	index ~~ 0 ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1417	newSelection add:(processList at:index).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1418	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1419	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1420	self selectedProcesses value:newSelection
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1421	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1422	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1423
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1424	changeSelectionToProcesses:aProcessList
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1425
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1426	aProcessList notNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1427	\| newSelection \|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1428	newSelection := OrderedCollection new.
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1429	aProcessList do:[:aProcess \|
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1430	\| index \|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1431	index := processList findFirst:[:anItem \| (anItem processInstance == aProcess)].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1432	index ~~ 0 ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1433	newSelection add:(processList at:index).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1434	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1435	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1436	self selectedProcesses value:newSelection
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1437	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1438	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1439
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1440	decreaseupdateContentsDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1441
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1442	self updateContentsDelayTime value:(self scaledUpdateContentsDelayTime - 0.1).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1443	self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1444	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1445
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1446	decreaseupdateListDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1447
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1448	self updateListDelayTime value:(self scaledUpdateListDelayTime - 0.1).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1449	self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1450	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1451
4463 99d11fbee2af initial checkin penk parents: diff changeset	1452	doubleClickedAt:anItemIndex
99d11fbee2af initial checkin penk parents: diff changeset	1453	"open a debugger on the selected process"
99d11fbee2af initial checkin penk parents: diff changeset	1454
99d11fbee2af initial checkin penk parents: diff changeset	1455	self debugProcess
99d11fbee2af initial checkin penk parents: diff changeset	1456	!
99d11fbee2af initial checkin penk parents: diff changeset	1457
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1458	evaluateEnableInDecreaseButtons
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1459
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1460	\| contDelaySmallerListDelay \|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1461
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1462	contDelaySmallerListDelay := (self scaledUpdateContentsDelayTime < (self scaledUpdateListDelayTime)).
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1463	self enableDecreaseContentsDelayTime value:((self scaledUpdateContentsDelayTime <= 0.5) not).
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1464	self enableDecreaseListDelayTime value:contDelaySmallerListDelay.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1465	self enableIncreaseContentsDelayTime value:contDelaySmallerListDelay.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1466	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1467
4463 99d11fbee2af initial checkin penk parents: diff changeset	1468	getProcessList
99d11fbee2af initial checkin penk parents: diff changeset	1469	"select processes to display.
99d11fbee2af initial checkin penk parents: diff changeset	1470	Subclasses may redefine this"
99d11fbee2af initial checkin penk parents: diff changeset	1471
99d11fbee2af initial checkin penk parents: diff changeset	1472	\|coll\|
99d11fbee2af initial checkin penk parents: diff changeset	1473
5690 024838c5f342 Fix bug 44: Process allSubInstances was called all the time causing Stefan Vogel <sv@exept.de> parents: 5538 diff changeset	1474	self showDead value ifTrue:[
4463 99d11fbee2af initial checkin penk parents: diff changeset	1475	coll := Process allSubInstances asOrderedCollection.
99d11fbee2af initial checkin penk parents: diff changeset	1476	] ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	1477	coll := ProcessorScheduler knownProcesses asOrderedCollection.
99d11fbee2af initial checkin penk parents: diff changeset	1478	].
99d11fbee2af initial checkin penk parents: diff changeset	1479	^ coll
99d11fbee2af initial checkin penk parents: diff changeset	1480	!
99d11fbee2af initial checkin penk parents: diff changeset	1481
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1482	increaseupdateContentsDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1483
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1484	self updateContentsDelayTime value:(self scaledUpdateContentsDelayTime + 0.1).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1485	self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1486	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1487
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1488	increaseupdateListDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1489
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1490	self updateListDelayTime value:(self scaledUpdateListDelayTime + 0.1).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1491	self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1492	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1493
4463 99d11fbee2af initial checkin penk parents: diff changeset	1494	selectedProcessesDo:aBlock
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1495	\| sel proc\|
4463 99d11fbee2af initial checkin penk parents: diff changeset	1496
99d11fbee2af initial checkin penk parents: diff changeset	1497	sel := self selectedProcesses value.
99d11fbee2af initial checkin penk parents: diff changeset	1498	sel isNil ifTrue:[^ self].
99d11fbee2af initial checkin penk parents: diff changeset	1499
99d11fbee2af initial checkin penk parents: diff changeset	1500	sel do:[:processItem \|
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1501	proc := processItem processInstance.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1502	proc notNil ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1503	aBlock value:proc.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1504	].
4463 99d11fbee2af initial checkin penk parents: diff changeset	1505	]
99d11fbee2af initial checkin penk parents: diff changeset	1506	!
99d11fbee2af initial checkin penk parents: diff changeset	1507
99d11fbee2af initial checkin penk parents: diff changeset	1508	selectedProcessesSend:aSelector
99d11fbee2af initial checkin penk parents: diff changeset	1509	"send a message to all selected processes"
99d11fbee2af initial checkin penk parents: diff changeset	1510
99d11fbee2af initial checkin penk parents: diff changeset	1511	self selectedProcessesDo:[:p \|
99d11fbee2af initial checkin penk parents: diff changeset	1512	p perform:aSelector
99d11fbee2af initial checkin penk parents: diff changeset	1513	].
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1514	self updateList.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1515	! !
99d11fbee2af initial checkin penk parents: diff changeset	1516
99d11fbee2af initial checkin penk parents: diff changeset	1517	!ProcessMonitorV2 methodsFor:'aspects'!
99d11fbee2af initial checkin penk parents: diff changeset	1518
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1519	allowModifications
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1520
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1521	allowModifications isNil ifTrue:[
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1522	allowModifications := true asValue
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1523	].
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1524	^ allowModifications
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1525	!
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1526
4463 99d11fbee2af initial checkin penk parents: diff changeset	1527	currentSortOrder
99d11fbee2af initial checkin penk parents: diff changeset	1528	"return/create the 'currentSortOrder' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1529
99d11fbee2af initial checkin penk parents: diff changeset	1530	currentSortOrder isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1531	currentSortOrder := Dictionary new asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1532	].
99d11fbee2af initial checkin penk parents: diff changeset	1533	^ currentSortOrder
99d11fbee2af initial checkin penk parents: diff changeset	1534	!
99d11fbee2af initial checkin penk parents: diff changeset	1535
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1536	enableDecreaseContentsDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1537
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1538	enableDecreaseContentsDelayTime isNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1539	enableDecreaseContentsDelayTime := true asValue.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1540	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1541	^ enableDecreaseContentsDelayTime.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1542	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1543
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1544	enableDecreaseListDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1545
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1546	enableDecreaseListDelayTime isNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1547	enableDecreaseListDelayTime := true asValue.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1548	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1549	^ enableDecreaseListDelayTime.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1550	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1551
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1552	enableIncreaseContentsDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1553
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1554	enableIncreaseContentsDelayTime isNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1555	enableIncreaseContentsDelayTime := true asValue.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1556	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1557	^ enableIncreaseContentsDelayTime.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1558	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1559
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1560	enableIncreaseListDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1561
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1562	enableIncreaseListDelayTime isNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1563	enableIncreaseListDelayTime := true asValue.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1564	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1565	^ enableIncreaseListDelayTime.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1566	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1567
4463 99d11fbee2af initial checkin penk parents: diff changeset	1568	hasSelection
99d11fbee2af initial checkin penk parents: diff changeset	1569
99d11fbee2af initial checkin penk parents: diff changeset	1570	hasSelection isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1571	hasSelection := ValueHolder new.
99d11fbee2af initial checkin penk parents: diff changeset	1572	].
99d11fbee2af initial checkin penk parents: diff changeset	1573	^ hasSelection
99d11fbee2af initial checkin penk parents: diff changeset	1574	!
99d11fbee2af initial checkin penk parents: diff changeset	1575
6609 8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	1576	hasSelectionAndProcessIsApplicationProcess
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	1577	^ [ hasSelection value
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	1578	and:[ self selectedProcesses value contains:[:pItem \|
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	1579	\|process\|
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	1580
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	1581	process := pItem processInstance.
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	1582	process notNil and:[ self isApplicationProcess:process ]] ] ]
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	1583	!
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	1584
4463 99d11fbee2af initial checkin penk parents: diff changeset	1585	processList
99d11fbee2af initial checkin penk parents: diff changeset	1586
99d11fbee2af initial checkin penk parents: diff changeset	1587	processList isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1588	processList := List new.
99d11fbee2af initial checkin penk parents: diff changeset	1589	].
99d11fbee2af initial checkin penk parents: diff changeset	1590	^ processList.
99d11fbee2af initial checkin penk parents: diff changeset	1591	!
99d11fbee2af initial checkin penk parents: diff changeset	1592
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1593	scaledUpdateContentsDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1594
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1595	^ self updateContentsDelayTime value asFloat asFixedPoint:1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1596	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1597
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1598	scaledUpdateListDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1599
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1600	^ self updateListDelayTime value asFloat asFixedPoint:1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1601	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1602
4463 99d11fbee2af initial checkin penk parents: diff changeset	1603	selectedProcesses
99d11fbee2af initial checkin penk parents: diff changeset	1604
99d11fbee2af initial checkin penk parents: diff changeset	1605	selectedProcesses isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1606	selectedProcesses := ValueHolder new.
99d11fbee2af initial checkin penk parents: diff changeset	1607	selectedProcesses addDependent:self.
99d11fbee2af initial checkin penk parents: diff changeset	1608	].
99d11fbee2af initial checkin penk parents: diff changeset	1609	^ selectedProcesses.
99d11fbee2af initial checkin penk parents: diff changeset	1610	!
99d11fbee2af initial checkin penk parents: diff changeset	1611
99d11fbee2af initial checkin penk parents: diff changeset	1612	selectionRestartable
99d11fbee2af initial checkin penk parents: diff changeset	1613
99d11fbee2af initial checkin penk parents: diff changeset	1614	selectionRestartable isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1615	selectionRestartable := ValueHolder new.
99d11fbee2af initial checkin penk parents: diff changeset	1616	].
99d11fbee2af initial checkin penk parents: diff changeset	1617	^ selectionRestartable
99d11fbee2af initial checkin penk parents: diff changeset	1618	!
99d11fbee2af initial checkin penk parents: diff changeset	1619
99d11fbee2af initial checkin penk parents: diff changeset	1620	showDead
99d11fbee2af initial checkin penk parents: diff changeset	1621	"return/create the 'showDead' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1622
99d11fbee2af initial checkin penk parents: diff changeset	1623	showDead isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1624	showDead := false asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1625	showDead addDependent:self.
99d11fbee2af initial checkin penk parents: diff changeset	1626	].
99d11fbee2af initial checkin penk parents: diff changeset	1627	^ showDead
99d11fbee2af initial checkin penk parents: diff changeset	1628	!
99d11fbee2af initial checkin penk parents: diff changeset	1629
99d11fbee2af initial checkin penk parents: diff changeset	1630	sortBlock
99d11fbee2af initial checkin penk parents: diff changeset	1631
99d11fbee2af initial checkin penk parents: diff changeset	1632	sortBlock isNil ifTrue:[
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1633	\| curSortOrder defaultSortInstance\|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1634	defaultSortInstance := #idVal.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1635	sortBlock := [:a :b \|
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1636	((a perform:defaultSortInstance) < (b perform:defaultSortInstance))
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1637	].
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1638	curSortOrder := self currentSortOrder value.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1639	curSortOrder at:#column put:defaultSortInstance.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1640	curSortOrder at:#reverse put:true.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1641	].
99d11fbee2af initial checkin penk parents: diff changeset	1642	^ sortBlock
99d11fbee2af initial checkin penk parents: diff changeset	1643	!
99d11fbee2af initial checkin penk parents: diff changeset	1644
99d11fbee2af initial checkin penk parents: diff changeset	1645	tableColumns
99d11fbee2af initial checkin penk parents: diff changeset	1646
99d11fbee2af initial checkin penk parents: diff changeset	1647	tableColumns isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1648	tableColumns := self class tableColumns asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1649	].
99d11fbee2af initial checkin penk parents: diff changeset	1650	^ tableColumns.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1651	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1652
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1653	updateContentsDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1654
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1655	updateContentsDelayTime isNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1656	updateContentsDelayTime := updateDelay asValue.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1657	updateContentsDelayTime onChangeSend:#evaluateEnableInDecreaseButtons to:self.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1658	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1659	^ updateContentsDelayTime.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1660	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1661
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1662	updateListDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1663
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1664	updateListDelayTime isNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1665	updateListDelayTime := listUpdateDelay asValue.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1666	updateListDelayTime onChangeSend:#evaluateEnableInDecreaseButtons to:self.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1667	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1668	^ updateListDelayTime.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1669	! !
99d11fbee2af initial checkin penk parents: diff changeset	1670
99d11fbee2af initial checkin penk parents: diff changeset	1671	!ProcessMonitorV2 methodsFor:'aspects column'!
99d11fbee2af initial checkin penk parents: diff changeset	1672
99d11fbee2af initial checkin penk parents: diff changeset	1673	showCurrentSegment
99d11fbee2af initial checkin penk parents: diff changeset	1674	"return/create the 'showCurrentSegment' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1675
99d11fbee2af initial checkin penk parents: diff changeset	1676	showCurrentSegment isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1677	showCurrentSegment := showDetail asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1678	showCurrentSegment onChangeSend:#viewedColumnsChanged to:self.
99d11fbee2af initial checkin penk parents: diff changeset	1679	].
99d11fbee2af initial checkin penk parents: diff changeset	1680	^ showCurrentSegment
99d11fbee2af initial checkin penk parents: diff changeset	1681	!
99d11fbee2af initial checkin penk parents: diff changeset	1682
99d11fbee2af initial checkin penk parents: diff changeset	1683	showGroup
99d11fbee2af initial checkin penk parents: diff changeset	1684	"return/create the 'showGroup' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1685
99d11fbee2af initial checkin penk parents: diff changeset	1686	showGroup isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1687	showGroup := true asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1688	showGroup onChangeSend:#viewedColumnsChanged to:self.
99d11fbee2af initial checkin penk parents: diff changeset	1689	].
99d11fbee2af initial checkin penk parents: diff changeset	1690	^ showGroup
99d11fbee2af initial checkin penk parents: diff changeset	1691	!
99d11fbee2af initial checkin penk parents: diff changeset	1692
99d11fbee2af initial checkin penk parents: diff changeset	1693	showPrio
99d11fbee2af initial checkin penk parents: diff changeset	1694	"return/create the 'showPrio' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1695
99d11fbee2af initial checkin penk parents: diff changeset	1696	showPrio isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1697	showPrio := true asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1698	showPrio onChangeSend:#viewedColumnsChanged to:self.
99d11fbee2af initial checkin penk parents: diff changeset	1699	].
99d11fbee2af initial checkin penk parents: diff changeset	1700	^ showPrio
99d11fbee2af initial checkin penk parents: diff changeset	1701	!
99d11fbee2af initial checkin penk parents: diff changeset	1702
99d11fbee2af initial checkin penk parents: diff changeset	1703	showProcessId
99d11fbee2af initial checkin penk parents: diff changeset	1704
99d11fbee2af initial checkin penk parents: diff changeset	1705	showProcessId isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1706	showProcessId := true asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1707	showProcessId onChangeSend:#viewedColumnsChanged to:self
99d11fbee2af initial checkin penk parents: diff changeset	1708	].
99d11fbee2af initial checkin penk parents: diff changeset	1709	^ showProcessId
99d11fbee2af initial checkin penk parents: diff changeset	1710	!
99d11fbee2af initial checkin penk parents: diff changeset	1711
99d11fbee2af initial checkin penk parents: diff changeset	1712	showState
99d11fbee2af initial checkin penk parents: diff changeset	1713	"return/create the 'showState' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1714
99d11fbee2af initial checkin penk parents: diff changeset	1715	showState isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1716	showState := true asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1717	showState onChangeSend:#viewedColumnsChanged to:self
99d11fbee2af initial checkin penk parents: diff changeset	1718	].
99d11fbee2af initial checkin penk parents: diff changeset	1719	^ showState
99d11fbee2af initial checkin penk parents: diff changeset	1720	!
99d11fbee2af initial checkin penk parents: diff changeset	1721
99d11fbee2af initial checkin penk parents: diff changeset	1722	showSwitch
99d11fbee2af initial checkin penk parents: diff changeset	1723	"return/create the 'showSwitch' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1724
99d11fbee2af initial checkin penk parents: diff changeset	1725	showSwitch isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1726	showSwitch := showDetail asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1727	showSwitch onChangeSend:#viewedColumnsChanged to:self
99d11fbee2af initial checkin penk parents: diff changeset	1728	].
99d11fbee2af initial checkin penk parents: diff changeset	1729	^ showSwitch
99d11fbee2af initial checkin penk parents: diff changeset	1730	!
99d11fbee2af initial checkin penk parents: diff changeset	1731
99d11fbee2af initial checkin penk parents: diff changeset	1732	showTotalStack
99d11fbee2af initial checkin penk parents: diff changeset	1733	"return/create the 'showTotalStack' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1734
99d11fbee2af initial checkin penk parents: diff changeset	1735	showTotalStack isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1736	showTotalStack := showDetail asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1737	showTotalStack onChangeSend:#viewedColumnsChanged to:self
99d11fbee2af initial checkin penk parents: diff changeset	1738	].
99d11fbee2af initial checkin penk parents: diff changeset	1739	^ showTotalStack
99d11fbee2af initial checkin penk parents: diff changeset	1740	!
99d11fbee2af initial checkin penk parents: diff changeset	1741
99d11fbee2af initial checkin penk parents: diff changeset	1742	showUsedStack
99d11fbee2af initial checkin penk parents: diff changeset	1743	"return/create the 'showUsedStack' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1744
99d11fbee2af initial checkin penk parents: diff changeset	1745	showUsedStack isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1746	showUsedStack := showDetail asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1747	showUsedStack onChangeSend:#viewedColumnsChanged to:self
99d11fbee2af initial checkin penk parents: diff changeset	1748	].
99d11fbee2af initial checkin penk parents: diff changeset	1749	^ showUsedStack
99d11fbee2af initial checkin penk parents: diff changeset	1750	!
99d11fbee2af initial checkin penk parents: diff changeset	1751
99d11fbee2af initial checkin penk parents: diff changeset	1752	showWhere
99d11fbee2af initial checkin penk parents: diff changeset	1753	"return/create the 'showWhere' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1754
99d11fbee2af initial checkin penk parents: diff changeset	1755	showWhere isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1756	showWhere := true asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1757	showWhere onChangeSend:#viewedColumnsChanged to:self
99d11fbee2af initial checkin penk parents: diff changeset	1758	].
99d11fbee2af initial checkin penk parents: diff changeset	1759	^ showWhere
99d11fbee2af initial checkin penk parents: diff changeset	1760	! !
99d11fbee2af initial checkin penk parents: diff changeset	1761
99d11fbee2af initial checkin penk parents: diff changeset	1762	!ProcessMonitorV2 methodsFor:'change & update'!
99d11fbee2af initial checkin penk parents: diff changeset	1763
99d11fbee2af initial checkin penk parents: diff changeset	1764	selectionChanged
99d11fbee2af initial checkin penk parents: diff changeset	1765
99d11fbee2af initial checkin penk parents: diff changeset	1766	\|allRestartable\|
99d11fbee2af initial checkin penk parents: diff changeset	1767
99d11fbee2af initial checkin penk parents: diff changeset	1768	self hasSelection value:(self selectedProcesses value notEmptyOrNil).
99d11fbee2af initial checkin penk parents: diff changeset	1769	self hasSelection value ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	1770	self selectionRestartable value:false.
99d11fbee2af initial checkin penk parents: diff changeset	1771	^ self
99d11fbee2af initial checkin penk parents: diff changeset	1772	].
99d11fbee2af initial checkin penk parents: diff changeset	1773	allRestartable := true.
99d11fbee2af initial checkin penk parents: diff changeset	1774	self selectedProcessesDo:[:p \|
99d11fbee2af initial checkin penk parents: diff changeset	1775	p isRestartable ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	1776	allRestartable := false
99d11fbee2af initial checkin penk parents: diff changeset	1777	].
99d11fbee2af initial checkin penk parents: diff changeset	1778	].
99d11fbee2af initial checkin penk parents: diff changeset	1779	self selectionRestartable value:allRestartable.
99d11fbee2af initial checkin penk parents: diff changeset	1780	^ self.
99d11fbee2af initial checkin penk parents: diff changeset	1781	!
99d11fbee2af initial checkin penk parents: diff changeset	1782
99d11fbee2af initial checkin penk parents: diff changeset	1783	update:something with:aParameter from:changedObject
99d11fbee2af initial checkin penk parents: diff changeset	1784	"Invoked when an object that I depend upon sends a change notification."
99d11fbee2af initial checkin penk parents: diff changeset	1785
99d11fbee2af initial checkin penk parents: diff changeset	1786	"stub code automatically generated - please change as required"
99d11fbee2af initial checkin penk parents: diff changeset	1787
4565 7162b6a896e6 * empty log message * penk parents: 4561 diff changeset	1788	changedObject == builder window ifTrue:[
7162b6a896e6 * empty log message * penk parents: 4561 diff changeset	1789	something == #visibility ifTrue:[
7162b6a896e6 * empty log message * penk parents: 4561 diff changeset	1790	self updateList.
7162b6a896e6 * empty log message * penk parents: 4561 diff changeset	1791	].
7162b6a896e6 * empty log message * penk parents: 4561 diff changeset	1792	].
4463 99d11fbee2af initial checkin penk parents: diff changeset	1793	changedObject == self selectedProcesses ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1794	self selectionChanged.
99d11fbee2af initial checkin penk parents: diff changeset	1795	^ self
99d11fbee2af initial checkin penk parents: diff changeset	1796	].
99d11fbee2af initial checkin penk parents: diff changeset	1797	changedObject == self showDead ifTrue:[
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1798	self updateList.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1799	^ self
99d11fbee2af initial checkin penk parents: diff changeset	1800	].
99d11fbee2af initial checkin penk parents: diff changeset	1801	super update:something with:aParameter from:changedObject
99d11fbee2af initial checkin penk parents: diff changeset	1802	!
99d11fbee2af initial checkin penk parents: diff changeset	1803
99d11fbee2af initial checkin penk parents: diff changeset	1804	viewedColumnsChanged
99d11fbee2af initial checkin penk parents: diff changeset	1805
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1806	\| columns buffer locCurrentSortOrder currentSortOrderColumn currentSortOrderReverse oldSelection sel\|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1807
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1808	sel := self selectedProcesses value.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1809	sel notNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1810	oldSelection := OrderedCollection new.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1811	sel do:[:proItem\|
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1812	proItem processInstance notNil ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1813	oldSelection add:(proItem processInstance)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1814	].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1815	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1816	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1817	"/ Transcript showCR:'oldSelection on catch in viewedColumnsChanged', (oldSelection isNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
4463 99d11fbee2af initial checkin penk parents: diff changeset	1818	columns := OrderedCollection new.
99d11fbee2af initial checkin penk parents: diff changeset	1819	self class tableColumns do:[:el\|
99d11fbee2af initial checkin penk parents: diff changeset	1820	columns add:(DataSetColumnSpec new fromLiteralArrayEncoding:el).
99d11fbee2af initial checkin penk parents: diff changeset	1821	].
99d11fbee2af initial checkin penk parents: diff changeset	1822	buffer := columns copy.
99d11fbee2af initial checkin penk parents: diff changeset	1823	locCurrentSortOrder := self currentSortOrder value.
99d11fbee2af initial checkin penk parents: diff changeset	1824	currentSortOrderColumn := locCurrentSortOrder at:#column ifAbsent:nil.
99d11fbee2af initial checkin penk parents: diff changeset	1825	currentSortOrderReverse := locCurrentSortOrder at:#reverse ifAbsent:nil.
99d11fbee2af initial checkin penk parents: diff changeset	1826	buffer do:[:col \|
99d11fbee2af initial checkin penk parents: diff changeset	1827	\| id \|
99d11fbee2af initial checkin penk parents: diff changeset	1828	id := col id.
99d11fbee2af initial checkin penk parents: diff changeset	1829	id notNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1830	(col labelActionArgument notNil and:[col labelActionArgument asSymbol == currentSortOrderColumn]) ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1831	\| label icon\|
99d11fbee2af initial checkin penk parents: diff changeset	1832	label := col label.
99d11fbee2af initial checkin penk parents: diff changeset	1833	icon := currentSortOrderReverse ifTrue:[self class detailsMenuIconDown] ifFalse:[self class detailsMenuIconUp].
99d11fbee2af initial checkin penk parents: diff changeset	1834	col label:(LabelAndIcon label:label icon:icon).
99d11fbee2af initial checkin penk parents: diff changeset	1835	].
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1836	#(
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1837	( #id #showProcessId)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1838	( #group #showGroup)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1839	( #prio #showPrio)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1840	( #currentSegment #showCurrentSegment)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1841	( #state #showState)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1842	( #switch #showSwitch)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1843	( #totalStack #showTotalStack)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1844	( #usedStack #showUsedStack)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1845	( #where #showWhere)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1846	) pairsDo:[:colName :holderAccessorSelector \|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1847	(id == colName and:[(self perform:holderAccessorSelector) value not]) ifTrue:[
4463 99d11fbee2af initial checkin penk parents: diff changeset	1848	columns remove:col.
99d11fbee2af initial checkin penk parents: diff changeset	1849	]
99d11fbee2af initial checkin penk parents: diff changeset	1850	]
99d11fbee2af initial checkin penk parents: diff changeset	1851	]
99d11fbee2af initial checkin penk parents: diff changeset	1852	].
99d11fbee2af initial checkin penk parents: diff changeset	1853	updateSema critical:[
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1854	self tableColumns value:columns.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1855	"/ self updateTable:nil.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1856	"/ Transcript showCR:'oldSelection on set in viewedColumnsChanged', (oldSelection isNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1857	self changeSelectionToProcesses:oldSelection.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1858	].
99d11fbee2af initial checkin penk parents: diff changeset	1859	! !
99d11fbee2af initial checkin penk parents: diff changeset	1860
99d11fbee2af initial checkin penk parents: diff changeset	1861	!ProcessMonitorV2 methodsFor:'event handling'!
99d11fbee2af initial checkin penk parents: diff changeset	1862
99d11fbee2af initial checkin penk parents: diff changeset	1863	processEvent:anEvent
99d11fbee2af initial checkin penk parents: diff changeset	1864	"filter keyboard events.
99d11fbee2af initial checkin penk parents: diff changeset	1865	Return true, if I have eaten the event"
99d11fbee2af initial checkin penk parents: diff changeset	1866
99d11fbee2af initial checkin penk parents: diff changeset	1867	\|focusView key rawKey\|
99d11fbee2af initial checkin penk parents: diff changeset	1868
99d11fbee2af initial checkin penk parents: diff changeset	1869	anEvent isKeyPressEvent ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1870	focusView := anEvent targetView.
99d11fbee2af initial checkin penk parents: diff changeset	1871	key := anEvent key.
99d11fbee2af initial checkin penk parents: diff changeset	1872	rawKey := anEvent rawKey.
99d11fbee2af initial checkin penk parents: diff changeset	1873
99d11fbee2af initial checkin penk parents: diff changeset	1874	(focusView == processList) ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1875	key == #InspectIt ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1876	self inspectSelection.
99d11fbee2af initial checkin penk parents: diff changeset	1877	^ true.
99d11fbee2af initial checkin penk parents: diff changeset	1878	].
99d11fbee2af initial checkin penk parents: diff changeset	1879	]
99d11fbee2af initial checkin penk parents: diff changeset	1880	].
99d11fbee2af initial checkin penk parents: diff changeset	1881	^ false
99d11fbee2af initial checkin penk parents: diff changeset	1882	! !
99d11fbee2af initial checkin penk parents: diff changeset	1883
99d11fbee2af initial checkin penk parents: diff changeset	1884	!ProcessMonitorV2 methodsFor:'initialization & release'!
99d11fbee2af initial checkin penk parents: diff changeset	1885
99d11fbee2af initial checkin penk parents: diff changeset	1886	initialize
99d11fbee2af initial checkin penk parents: diff changeset	1887
99d11fbee2af initial checkin penk parents: diff changeset	1888	super initialize.
99d11fbee2af initial checkin penk parents: diff changeset	1889
99d11fbee2af initial checkin penk parents: diff changeset	1890	showDetail := (Smalltalk at:#SystemDebugging ifAbsent:false).
99d11fbee2af initial checkin penk parents: diff changeset	1891	updateSema := Semaphore forMutualExclusion.
99d11fbee2af initial checkin penk parents: diff changeset	1892	updateDelay := 0.5.
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1893	listUpdateDelay := 5.0.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1894
99d11fbee2af initial checkin penk parents: diff changeset	1895	"/ event mode is no longer used;
99d11fbee2af initial checkin penk parents: diff changeset	1896	"/ this event support may vanish
99d11fbee2af initial checkin penk parents: diff changeset	1897	Processor isPureEventDriven ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1898	updateBlock := [self updateStatus:nil].
99d11fbee2af initial checkin penk parents: diff changeset	1899	listUpdateBlock := [self updateList].
99d11fbee2af initial checkin penk parents: diff changeset	1900	].
99d11fbee2af initial checkin penk parents: diff changeset	1901	!
99d11fbee2af initial checkin penk parents: diff changeset	1902
99d11fbee2af initial checkin penk parents: diff changeset	1903	postBuildProcessTable:aWidget
99d11fbee2af initial checkin penk parents: diff changeset	1904
99d11fbee2af initial checkin penk parents: diff changeset	1905	processTable := aWidget scrolledView.
99d11fbee2af initial checkin penk parents: diff changeset	1906	processTable wantsFocusWithPointerEnter.
99d11fbee2af initial checkin penk parents: diff changeset	1907	!
99d11fbee2af initial checkin penk parents: diff changeset	1908
99d11fbee2af initial checkin penk parents: diff changeset	1909	postOpenWith:aBuilder
99d11fbee2af initial checkin penk parents: diff changeset	1910
99d11fbee2af initial checkin penk parents: diff changeset	1911	super postOpenWith:aBuilder.
6648 3b7d52e1de3a * empty log message * Claus Gittinger <cg@exept.de> parents: 6609 diff changeset	1912
4565 7162b6a896e6 * empty log message * penk parents: 4561 diff changeset	1913	aBuilder window addDependent:self.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1914	self viewedColumnsChanged.
99d11fbee2af initial checkin penk parents: diff changeset	1915	self updateList.
99d11fbee2af initial checkin penk parents: diff changeset	1916	self startUpdateProcess.
99d11fbee2af initial checkin penk parents: diff changeset	1917	self selectionChanged.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1918	self sortProcessListBy:#idVal.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1919	self windowGroup addPreEventHook:self.
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1920	!
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1921
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1922	release
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1923	updateBlock notNil ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1924	Processor removeTimedBlock:updateBlock.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1925	updateBlock := nil.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1926	].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1927	listUpdateBlock notNil ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1928	Processor removeTimedBlock:listUpdateBlock.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1929	listUpdateBlock := nil.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1930	].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1931	updateProcess notNil ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1932	updateProcess terminate.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1933	updateProcess := nil.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1934	].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1935	super release
6234 f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	1936	!
f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	1937
f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	1938	restarted
f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	1939	"restarted from snapshot"
f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	1940
f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	1941	super restarted.
f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	1942	self startUpdateProcess.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1943	! !
99d11fbee2af initial checkin penk parents: diff changeset	1944
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1945	!ProcessMonitorV2 methodsFor:'menu accessing'!
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1946
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1947	tableMenu
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1948
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1949	^[
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1950	self tableMenuAccess
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1951	]
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1952	!
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1953
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1954	tableMenuAccess
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1955	self allowModifications value ifTrue:[
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1956	tableMenu isNil ifTrue:[
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1957	tableMenu := Menu new fromLiteralArrayEncoding:(self class tableMenu).
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1958	tableMenu receiver:self.
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	1959	tableMenu findGuiResourcesIn:self.
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1960	].
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	1961	^ tableMenu
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1962	].
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	1963	^ nil
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1964	! !
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1965
4463 99d11fbee2af initial checkin penk parents: diff changeset	1966	!ProcessMonitorV2 methodsFor:'menu actions'!
99d11fbee2af initial checkin penk parents: diff changeset	1967
99d11fbee2af initial checkin penk parents: diff changeset	1968	abortProcess
99d11fbee2af initial checkin penk parents: diff changeset	1969	"abort (raise AbortSignal in) the selected process"
99d11fbee2af initial checkin penk parents: diff changeset	1970
99d11fbee2af initial checkin penk parents: diff changeset	1971	self selectedProcessesDo:[:p \|
99d11fbee2af initial checkin penk parents: diff changeset	1972	p abort
99d11fbee2af initial checkin penk parents: diff changeset	1973	]
99d11fbee2af initial checkin penk parents: diff changeset	1974	!
99d11fbee2af initial checkin penk parents: diff changeset	1975
99d11fbee2af initial checkin penk parents: diff changeset	1976	debugProcess
99d11fbee2af initial checkin penk parents: diff changeset	1977	"open a debugger on the selected process"
99d11fbee2af initial checkin penk parents: diff changeset	1978
99d11fbee2af initial checkin penk parents: diff changeset	1979	self selectedProcessesDo:[:p \|
99d11fbee2af initial checkin penk parents: diff changeset	1980	Debugger openOn:p
99d11fbee2af initial checkin penk parents: diff changeset	1981	]
99d11fbee2af initial checkin penk parents: diff changeset	1982	!
99d11fbee2af initial checkin penk parents: diff changeset	1983
99d11fbee2af initial checkin penk parents: diff changeset	1984	debugWhenResumed
99d11fbee2af initial checkin penk parents: diff changeset	1985	self selectedProcessesDo:[:p \|
99d11fbee2af initial checkin penk parents: diff changeset	1986	p addInterruptAction:[Debugger enter]
99d11fbee2af initial checkin penk parents: diff changeset	1987	]
99d11fbee2af initial checkin penk parents: diff changeset	1988	!
99d11fbee2af initial checkin penk parents: diff changeset	1989
99d11fbee2af initial checkin penk parents: diff changeset	1990	hardTerminateProcess
99d11fbee2af initial checkin penk parents: diff changeset	1991	"hard terminate the selected process"
99d11fbee2af initial checkin penk parents: diff changeset	1992
99d11fbee2af initial checkin penk parents: diff changeset	1993	self selectedProcessesSend:#terminateNoSignal
99d11fbee2af initial checkin penk parents: diff changeset	1994	!
99d11fbee2af initial checkin penk parents: diff changeset	1995
6609 8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	1996	inspectApplication
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	1997	"open an inspector on the selected process' application or topView"
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	1998
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	1999	self
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2000	selectedProcessesDo:[:eachProcess \|
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2001	\|wg app topView\|
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2002
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2003	wg := self windowGroupOfProcess:eachProcess.
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2004	wg notNil ifTrue:[
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2005	(app := wg application) notNil ifTrue:[
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2006	app inspect.
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2007	] ifFalse:[
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2008	(topView := wg mainView) notNil ifTrue:[
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2009	topView inspect.
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2010	] ifFalse:[
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2011	wg inspect.
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2012	]
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2013	]
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2014	]
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2015	]
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2016	!
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2017
4463 99d11fbee2af initial checkin penk parents: diff changeset	2018	inspectSelection
99d11fbee2af initial checkin penk parents: diff changeset	2019	"open an inspector on the selected process"
99d11fbee2af initial checkin penk parents: diff changeset	2020
99d11fbee2af initial checkin penk parents: diff changeset	2021	self selectedProcessesSend:#inspect
99d11fbee2af initial checkin penk parents: diff changeset	2022	!
99d11fbee2af initial checkin penk parents: diff changeset	2023
99d11fbee2af initial checkin penk parents: diff changeset	2024	lowerPrio
99d11fbee2af initial checkin penk parents: diff changeset	2025	"lower the selected processes priority"
99d11fbee2af initial checkin penk parents: diff changeset	2026
99d11fbee2af initial checkin penk parents: diff changeset	2027	self selectedProcessesDo:[:p \|
99d11fbee2af initial checkin penk parents: diff changeset	2028	p priority:(p priority - 1)
99d11fbee2af initial checkin penk parents: diff changeset	2029	]
99d11fbee2af initial checkin penk parents: diff changeset	2030	!
99d11fbee2af initial checkin penk parents: diff changeset	2031
99d11fbee2af initial checkin penk parents: diff changeset	2032	openAboutThisApplication
99d11fbee2af initial checkin penk parents: diff changeset	2033	"This method was generated by the Browser.
99d11fbee2af initial checkin penk parents: diff changeset	2034	It will be invoked when the menu-item 'help-about' is selected."
99d11fbee2af initial checkin penk parents: diff changeset	2035
99d11fbee2af initial checkin penk parents: diff changeset	2036	"/ could open a customized aboutBox here ...
99d11fbee2af initial checkin penk parents: diff changeset	2037	super openAboutThisApplication
99d11fbee2af initial checkin penk parents: diff changeset	2038	!
99d11fbee2af initial checkin penk parents: diff changeset	2039
99d11fbee2af initial checkin penk parents: diff changeset	2040	openDocumentation
99d11fbee2af initial checkin penk parents: diff changeset	2041	"This method was generated by the Browser.
99d11fbee2af initial checkin penk parents: diff changeset	2042	It will be invoked when the menu-item 'help-documentation' is selected."
99d11fbee2af initial checkin penk parents: diff changeset	2043
99d11fbee2af initial checkin penk parents: diff changeset	2044	"/ change below as required ...
99d11fbee2af initial checkin penk parents: diff changeset	2045
99d11fbee2af initial checkin penk parents: diff changeset	2046	"/ 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	2047	HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#PROCESSMONITOR'.
4463 99d11fbee2af initial checkin penk parents: diff changeset	2048
99d11fbee2af initial checkin penk parents: diff changeset	2049	"/ add application-specific help files under the 'doc/online/<language>/help/appName'
99d11fbee2af initial checkin penk parents: diff changeset	2050	"/ directory, and open a viewer with:
99d11fbee2af initial checkin penk parents: diff changeset	2051	"/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'.
99d11fbee2af initial checkin penk parents: diff changeset	2052	!
99d11fbee2af initial checkin penk parents: diff changeset	2053
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2054	printProcessList
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2055
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2056	\|view image printer gc device origin corner extent y x scaleX scaleY\|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2057
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2058	Printer == PostscriptPrinterStream ifFalse:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2059	^ self warn:'kein Postscript Drucker'.
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2060	].
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2061
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2062	view := builder window.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2063	view raise.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2064	view device sync.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2065	view allSubViewsDo:[:v\|v shown ifTrue:[v invalidateRepairNow:true]].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2066
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2067	device := view graphicsDevice.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2068	origin := device translatePoint:(0@0) from:(view id) to:device rootWindowId.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2069
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2070	corner := origin + (view extent).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2071	extent := Screen current rootView extent.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2072
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2073	corner x > extent x ifTrue:[corner x:(extent x)].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2074	corner y > extent y ifTrue:[corner y:(extent y)].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2075
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2076	self withExecuteCursorDo:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2077	image := Image fromScreen:(origin corner:corner) on:device grab:true.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2078	[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2079	printer := Printer newNative.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2080	gc := PSGraphicsContext on:printer. "/ extent:(1.0 @ 1.0).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2081
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2082	gc pageEndAction:[:pageNr\|\|title font\|
5783 5ce97d85326d Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5764 diff changeset	2083	title := view label, ' ', (Timestamp now printString).
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2084	font := gc titleFont.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2085
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2086	y := (gc bottomMargin + font height + font ascent) // 2.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2087	y := (10 + font height + font ascent) // 2.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2088	y := font height + font ascent.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2089	x := (gc width) - (font widthOf:title) - (gc rightMargin).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2090
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2091	gc displayString:title x:(gc transformX:x) y:y.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2092	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2093
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2094	x := gc width - gc rightMargin.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2095	y := gc height - gc bottomMargin - gc topMargin.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2096
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2097	(x < image width and:[x >= image height]) ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2098	image := image rotated:90.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2099	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2100	y < image height ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2101	scaleY := (y / (image height)) asFloat
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2102	] ifFalse:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2103	scaleY := 1
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2104	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2105
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2106	x < image width ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2107	scaleX := (x / (image width)) asFloat
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2108	] ifFalse:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2109	scaleX := 1
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2110	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2111
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2112	gc scale:(scaleX@scaleY).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2113	gc displayImage:image at:(0@(gc topMargin)).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2114	gc flush.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2115
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2116	] ensure:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2117	gc close.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2118	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2119	].
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2120	!
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2121
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2122	printStringToPrinter:aString
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2123
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2124	\|printStream\|
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2125
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2126	aString isEmptyOrNil ifTrue:[^ self].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2127	self withWaitCursorDo:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2128	printStream := Printer new.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2129
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2130	printStream notNil ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2131	Printer writeErrorSignal handle:[:ex \|
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2132	self warn:('error while printing:\\'
5764 0bdadb9e5c5c Use #description instead of #errorString Stefan Vogel <sv@exept.de> parents: 5690 diff changeset	2133	, ex description
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2134	, '\\(printing with: ' , (Printer printCommand) , ')') withCRs
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2135	] do:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2136	aString printOn:printStream.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2137	].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2138	printStream close
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2139	]
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2140	].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2141	!
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2142
4463 99d11fbee2af initial checkin penk parents: diff changeset	2143	raisePrio
99d11fbee2af initial checkin penk parents: diff changeset	2144	"raise the selected processes priority"
99d11fbee2af initial checkin penk parents: diff changeset	2145
99d11fbee2af initial checkin penk parents: diff changeset	2146	self selectedProcessesDo:[:p \|
99d11fbee2af initial checkin penk parents: diff changeset	2147	p priority:(p priority + 1)
99d11fbee2af initial checkin penk parents: diff changeset	2148	]
99d11fbee2af initial checkin penk parents: diff changeset	2149	!
99d11fbee2af initial checkin penk parents: diff changeset	2150
99d11fbee2af initial checkin penk parents: diff changeset	2151	restartProcess
99d11fbee2af initial checkin penk parents: diff changeset	2152	"abort (raise AbortSignal in) the selected process"
99d11fbee2af initial checkin penk parents: diff changeset	2153
99d11fbee2af initial checkin penk parents: diff changeset	2154	self selectedProcessesDo:[:p \|
99d11fbee2af initial checkin penk parents: diff changeset	2155	p restart.
99d11fbee2af initial checkin penk parents: diff changeset	2156	]
99d11fbee2af initial checkin penk parents: diff changeset	2157	!
99d11fbee2af initial checkin penk parents: diff changeset	2158
99d11fbee2af initial checkin penk parents: diff changeset	2159	resumeProcess
99d11fbee2af initial checkin penk parents: diff changeset	2160	"resume the selected process (i.e. let it run) "
99d11fbee2af initial checkin penk parents: diff changeset	2161
99d11fbee2af initial checkin penk parents: diff changeset	2162	self selectedProcessesSend:#resume
99d11fbee2af initial checkin penk parents: diff changeset	2163	!
99d11fbee2af initial checkin penk parents: diff changeset	2164
99d11fbee2af initial checkin penk parents: diff changeset	2165	stopProcess
99d11fbee2af initial checkin penk parents: diff changeset	2166	"stop the selected process - not even interrupts will wake it up"
99d11fbee2af initial checkin penk parents: diff changeset	2167
99d11fbee2af initial checkin penk parents: diff changeset	2168	self selectedProcessesSend:#stop
99d11fbee2af initial checkin penk parents: diff changeset	2169	!
99d11fbee2af initial checkin penk parents: diff changeset	2170
99d11fbee2af initial checkin penk parents: diff changeset	2171	suspendProcess
99d11fbee2af initial checkin penk parents: diff changeset	2172	"suspend the selected process - interrupts will let it run again"
99d11fbee2af initial checkin penk parents: diff changeset	2173
99d11fbee2af initial checkin penk parents: diff changeset	2174	self selectedProcessesSend:#suspend
99d11fbee2af initial checkin penk parents: diff changeset	2175	!
99d11fbee2af initial checkin penk parents: diff changeset	2176
99d11fbee2af initial checkin penk parents: diff changeset	2177	terminateProcess
99d11fbee2af initial checkin penk parents: diff changeset	2178	"terminate the selected process"
99d11fbee2af initial checkin penk parents: diff changeset	2179
99d11fbee2af initial checkin penk parents: diff changeset	2180	self selectedProcessesSend:#terminate.
99d11fbee2af initial checkin penk parents: diff changeset	2181	self updateList.
99d11fbee2af initial checkin penk parents: diff changeset	2182	!
99d11fbee2af initial checkin penk parents: diff changeset	2183
99d11fbee2af initial checkin penk parents: diff changeset	2184	terminateProcessGroup
99d11fbee2af initial checkin penk parents: diff changeset	2185	"terminate the selected process with all of its subprocesses"
99d11fbee2af initial checkin penk parents: diff changeset	2186
99d11fbee2af initial checkin penk parents: diff changeset	2187	self selectedProcessesSend:#terminateGroup.
99d11fbee2af initial checkin penk parents: diff changeset	2188	self updateList.
99d11fbee2af initial checkin penk parents: diff changeset	2189	! !
99d11fbee2af initial checkin penk parents: diff changeset	2190
6609 8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2191	!ProcessMonitorV2 methodsFor:'private queries'!
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2192
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2193	isApplicationProcess:aProcess
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2194	^ (self windowGroupOfProcess:aProcess) notNil.
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2195	!
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2196
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2197	windowGroupOfProcess:aProcess
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2198	WindowGroup scheduledWindowGroups
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2199	do:[:eachGroup \|
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2200	(eachGroup process == aProcess) ifTrue:[
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2201	eachGroup isModal ifTrue:[
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2202	^ eachGroup previousGroup
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2203	].
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2204	^ eachGroup
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2205	]
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2206	].
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2207
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2208	^ nil
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2209	! !
8c68fe4eba22 +inspect application Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	2210
4463 99d11fbee2af initial checkin penk parents: diff changeset	2211	!ProcessMonitorV2 methodsFor:'queries - table string'!
99d11fbee2af initial checkin penk parents: diff changeset	2212
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2213	getActiveStringFor:aProcess running:isRunning
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2214	\|stateCharacter\|
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2215
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2216	isRunning ifTrue:[
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2217	stateCharacter := '*'.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2218	] ifFalse:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2219	[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2220	(Processor scheduledProcesses includes:aProcess) ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2221	stateCharacter := '+'
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2222	] ifFalse:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2223	stateCharacter := ''.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2224	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2225	] valueUninterruptably.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2226	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2227	^ stateCharacter.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2228	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2229
4463 99d11fbee2af initial checkin penk parents: diff changeset	2230	getCurrentSegmentStringFor:con
99d11fbee2af initial checkin penk parents: diff changeset	2231
99d11fbee2af initial checkin penk parents: diff changeset	2232	con notNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2233	\| contextCount c sender\|
99d11fbee2af initial checkin penk parents: diff changeset	2234	contextCount := 1.
99d11fbee2af initial checkin penk parents: diff changeset	2235	c := con.
99d11fbee2af initial checkin penk parents: diff changeset	2236	[(sender := c sender) notNil] whileTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2237	c := sender.
99d11fbee2af initial checkin penk parents: diff changeset	2238	contextCount := contextCount + 1.
99d11fbee2af initial checkin penk parents: diff changeset	2239	].
99d11fbee2af initial checkin penk parents: diff changeset	2240	^ (((ObjectMemory addressOf:con) printStringRadix:16),
99d11fbee2af initial checkin penk parents: diff changeset	2241	' .. ',
99d11fbee2af initial checkin penk parents: diff changeset	2242	((ObjectMemory addressOf:c) printStringRadix:16)).
99d11fbee2af initial checkin penk parents: diff changeset	2243	].
4504 e07fb8560de3 * empty log message * penk parents: 4502 diff changeset	2244	^ ''
4463 99d11fbee2af initial checkin penk parents: diff changeset	2245	!
99d11fbee2af initial checkin penk parents: diff changeset	2246
99d11fbee2af initial checkin penk parents: diff changeset	2247	getGroupStringFor:aProcess
99d11fbee2af initial checkin penk parents: diff changeset	2248
99d11fbee2af initial checkin penk parents: diff changeset	2249	\|gId\|
99d11fbee2af initial checkin penk parents: diff changeset	2250
99d11fbee2af initial checkin penk parents: diff changeset	2251	gId := aProcess processGroupId.
99d11fbee2af initial checkin penk parents: diff changeset	2252	((gId == aProcess id) or:[gId isNil]) ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2253	"/ a group leader
99d11fbee2af initial checkin penk parents: diff changeset	2254	^ '-'.
99d11fbee2af initial checkin penk parents: diff changeset	2255	] ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2256	^ gId.
99d11fbee2af initial checkin penk parents: diff changeset	2257	].
99d11fbee2af initial checkin penk parents: diff changeset	2258	!
99d11fbee2af initial checkin penk parents: diff changeset	2259
99d11fbee2af initial checkin penk parents: diff changeset	2260	getPrioStringFor:aProcess
99d11fbee2af initial checkin penk parents: diff changeset	2261
99d11fbee2af initial checkin penk parents: diff changeset	2262	\|prioRange\|
99d11fbee2af initial checkin penk parents: diff changeset	2263
99d11fbee2af initial checkin penk parents: diff changeset	2264	Processor supportDynamicPriorities ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2265	(prioRange := aProcess priorityRange) isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2266	^ aProcess priority asString.
99d11fbee2af initial checkin penk parents: diff changeset	2267	] ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2268	^ (aProcess priority asString,
99d11fbee2af initial checkin penk parents: diff changeset	2269	' [',
99d11fbee2af initial checkin penk parents: diff changeset	2270	prioRange start printString,
99d11fbee2af initial checkin penk parents: diff changeset	2271	'..',
99d11fbee2af initial checkin penk parents: diff changeset	2272	prioRange stop printString,
99d11fbee2af initial checkin penk parents: diff changeset	2273	']').
99d11fbee2af initial checkin penk parents: diff changeset	2274	].
99d11fbee2af initial checkin penk parents: diff changeset	2275	].
4504 e07fb8560de3 * empty log message * penk parents: 4502 diff changeset	2276	^ ''
4463 99d11fbee2af initial checkin penk parents: diff changeset	2277	!
99d11fbee2af initial checkin penk parents: diff changeset	2278
99d11fbee2af initial checkin penk parents: diff changeset	2279	getTotalStackStringFor:aProcess
99d11fbee2af initial checkin penk parents: diff changeset	2280
99d11fbee2af initial checkin penk parents: diff changeset	2281
99d11fbee2af initial checkin penk parents: diff changeset	2282	aProcess id == 0 ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2283	^ 'unlimited'.
99d11fbee2af initial checkin penk parents: diff changeset	2284	] ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2285	\| tStackSize noOfSegs \|
99d11fbee2af initial checkin penk parents: diff changeset	2286	((tStackSize := aProcess totalStackSize) notNil and:[
99d11fbee2af initial checkin penk parents: diff changeset	2287	(noOfSegs := aProcess numberOfStackSegments) notNil
99d11fbee2af initial checkin penk parents: diff changeset	2288	]) ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2289	^ ((tStackSize printString),
99d11fbee2af initial checkin penk parents: diff changeset	2290	' (',
99d11fbee2af initial checkin penk parents: diff changeset	2291	(noOfSegs printString),
99d11fbee2af initial checkin penk parents: diff changeset	2292	')' )
99d11fbee2af initial checkin penk parents: diff changeset	2293	]
99d11fbee2af initial checkin penk parents: diff changeset	2294	].
4504 e07fb8560de3 * empty log message * penk parents: 4502 diff changeset	2295	^ ''
4463 99d11fbee2af initial checkin penk parents: diff changeset	2296	!
99d11fbee2af initial checkin penk parents: diff changeset	2297
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2298	getWhereStringFor:con running:isRunning
4463 99d11fbee2af initial checkin penk parents: diff changeset	2299	con notNil ifTrue:[
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2300	\|c found skipping\|
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2301
4463 99d11fbee2af initial checkin penk parents: diff changeset	2302	c := con.
99d11fbee2af initial checkin penk parents: diff changeset	2303	found := false.
99d11fbee2af initial checkin penk parents: diff changeset	2304	isRunning ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2305	"/ search for a semaphore-wait in the top 10 contexts
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2306	1 to:10 do:[:n \|
4463 99d11fbee2af initial checkin penk parents: diff changeset	2307	found ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2308	c notNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2309	(c receiver class == Semaphore) ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2310	c selector == #wait ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2311	found := true.
99d11fbee2af initial checkin penk parents: diff changeset	2312	]
99d11fbee2af initial checkin penk parents: diff changeset	2313	].
99d11fbee2af initial checkin penk parents: diff changeset	2314	c := c sender.
99d11fbee2af initial checkin penk parents: diff changeset	2315	]
99d11fbee2af initial checkin penk parents: diff changeset	2316	]
99d11fbee2af initial checkin penk parents: diff changeset	2317	].
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2318	].
4463 99d11fbee2af initial checkin penk parents: diff changeset	2319	found ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2320	"/ search for a non-processor, non-process
99d11fbee2af initial checkin penk parents: diff changeset	2321	"/ receiver in the top 10 contexts
99d11fbee2af initial checkin penk parents: diff changeset	2322	c := con.
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2323	1 to:10 do:[:n \|
4463 99d11fbee2af initial checkin penk parents: diff changeset	2324	\|r\|
99d11fbee2af initial checkin penk parents: diff changeset	2325
99d11fbee2af initial checkin penk parents: diff changeset	2326	found ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2327	c notNil ifTrue:[
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2328	((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
4463 99d11fbee2af initial checkin penk parents: diff changeset	2329	found := true.
99d11fbee2af initial checkin penk parents: diff changeset	2330	] ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2331	c := c sender.
99d11fbee2af initial checkin penk parents: diff changeset	2332	]
99d11fbee2af initial checkin penk parents: diff changeset	2333	]
99d11fbee2af initial checkin penk parents: diff changeset	2334	]
99d11fbee2af initial checkin penk parents: diff changeset	2335	]
99d11fbee2af initial checkin penk parents: diff changeset	2336	].
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2337
4463 99d11fbee2af initial checkin penk parents: diff changeset	2338	"/ skip, until an interesting context is
99d11fbee2af initial checkin penk parents: diff changeset	2339	"/ found.
99d11fbee2af initial checkin penk parents: diff changeset	2340	"/ this skips intermediate contexts, which lead
99d11fbee2af initial checkin penk parents: diff changeset	2341	"/ to the sema-wait (for example, unwind blocks,
99d11fbee2af initial checkin penk parents: diff changeset	2342	"/ delay-stuff etc.)
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2343	found ifFalse:[
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2344	c := con
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2345	].
4463 99d11fbee2af initial checkin penk parents: diff changeset	2346	skipping := true.
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2347	[ skipping ] whileTrue:[
4463 99d11fbee2af initial checkin penk parents: diff changeset	2348	skipping := false.
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2349	(c notNil and:[ c receiver == Delay or:[ c receiver class == Delay ] ]) ifTrue:[
4463 99d11fbee2af initial checkin penk parents: diff changeset	2350	c := c sender.
99d11fbee2af initial checkin penk parents: diff changeset	2351	skipping := true.
99d11fbee2af initial checkin penk parents: diff changeset	2352	].
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2353	[
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2354	c notNil and:[ c receiver isBlock and:[ c selector startsWith:'value' ] ]
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2355	] whileTrue:[
4463 99d11fbee2af initial checkin penk parents: diff changeset	2356	c := c sender.
99d11fbee2af initial checkin penk parents: diff changeset	2357	skipping := true.
99d11fbee2af initial checkin penk parents: diff changeset	2358	].
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2359	[
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2360	c notNil and:[ c receiver isBlock and:[ c selector = 'ensure:' ] ]
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2361	] whileTrue:[
4463 99d11fbee2af initial checkin penk parents: diff changeset	2362	c := c sender.
99d11fbee2af initial checkin penk parents: diff changeset	2363	skipping := true.
99d11fbee2af initial checkin penk parents: diff changeset	2364	].
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2365	[
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2366	c notNil
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2367	and:[ c receiver == OperatingSystem and:[ c selector == #unblockInterrupts ] ]
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2368	] whileTrue:[
4463 99d11fbee2af initial checkin penk parents: diff changeset	2369	c := c sender.
99d11fbee2af initial checkin penk parents: diff changeset	2370	skipping := true.
99d11fbee2af initial checkin penk parents: diff changeset	2371	].
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2372	[
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2373	c notNil and:[ c isBlockContext ]
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2374	] whileTrue:[
4463 99d11fbee2af initial checkin penk parents: diff changeset	2375	c := c home.
99d11fbee2af initial checkin penk parents: diff changeset	2376	skipping := true.
99d11fbee2af initial checkin penk parents: diff changeset	2377	].
99d11fbee2af initial checkin penk parents: diff changeset	2378	].
99d11fbee2af initial checkin penk parents: diff changeset	2379	c notNil ifTrue:[
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2380	\|sel\|
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2381
4463 99d11fbee2af initial checkin penk parents: diff changeset	2382	sel := c selector.
99d11fbee2af initial checkin penk parents: diff changeset	2383	sel isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2384	sel := '* unknown *'
99d11fbee2af initial checkin penk parents: diff changeset	2385	].
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2386	^ (c receiver class name , '>>' , sel).
4463 99d11fbee2af initial checkin penk parents: diff changeset	2387	]
99d11fbee2af initial checkin penk parents: diff changeset	2388	].
4504 e07fb8560de3 * empty log message * penk parents: 4502 diff changeset	2389	^ ''
4463 99d11fbee2af initial checkin penk parents: diff changeset	2390	! !
99d11fbee2af initial checkin penk parents: diff changeset	2391
99d11fbee2af initial checkin penk parents: diff changeset	2392	!ProcessMonitorV2 methodsFor:'sorting'!
99d11fbee2af initial checkin penk parents: diff changeset	2393
99d11fbee2af initial checkin penk parents: diff changeset	2394	sortProcessListBy:instanceName
99d11fbee2af initial checkin penk parents: diff changeset	2395	"method to sort the list of BugReport"
99d11fbee2af initial checkin penk parents: diff changeset	2396
99d11fbee2af initial checkin penk parents: diff changeset	2397	\| aSymbol isReverse cmpOp currentSortOrder\|
99d11fbee2af initial checkin penk parents: diff changeset	2398
99d11fbee2af initial checkin penk parents: diff changeset	2399	aSymbol := instanceName asSymbol.
99d11fbee2af initial checkin penk parents: diff changeset	2400	isReverse := false.
99d11fbee2af initial checkin penk parents: diff changeset	2401	currentSortOrder := self currentSortOrder value.
99d11fbee2af initial checkin penk parents: diff changeset	2402	currentSortOrder isEmpty ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2403	currentSortOrder at:#column put:aSymbol.
99d11fbee2af initial checkin penk parents: diff changeset	2404	currentSortOrder at:#reverse put:false.
99d11fbee2af initial checkin penk parents: diff changeset	2405	] ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2406	(currentSortOrder at:#column) = aSymbol ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2407	"/ same column like before - change sort order ifReverse is true
99d11fbee2af initial checkin penk parents: diff changeset	2408	isReverse := currentSortOrder at:#reverse.
99d11fbee2af initial checkin penk parents: diff changeset	2409	currentSortOrder at:#reverse put:(isReverse not).
99d11fbee2af initial checkin penk parents: diff changeset	2410	] ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2411	"/ another column - remark column
99d11fbee2af initial checkin penk parents: diff changeset	2412	currentSortOrder at:#column put:aSymbol.
99d11fbee2af initial checkin penk parents: diff changeset	2413	]
99d11fbee2af initial checkin penk parents: diff changeset	2414	].
99d11fbee2af initial checkin penk parents: diff changeset	2415	(currentSortOrder at:#reverse) ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2416	cmpOp := #'>'
99d11fbee2af initial checkin penk parents: diff changeset	2417	] ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2418	cmpOp := #'<'
99d11fbee2af initial checkin penk parents: diff changeset	2419	].
99d11fbee2af initial checkin penk parents: diff changeset	2420	sortBlock := [:a :b \|
99d11fbee2af initial checkin penk parents: diff changeset	2421	\|entry1 entry2\|
99d11fbee2af initial checkin penk parents: diff changeset	2422
4568 9576c0894332 Take care for nil fields when sorting Stefan Vogel <sv@exept.de> parents: 4565 diff changeset	2423	entry1 := (a perform:aSymbol) ? 0.
9576c0894332 Take care for nil fields when sorting Stefan Vogel <sv@exept.de> parents: 4565 diff changeset	2424	entry2 := (b perform:aSymbol) ? 0.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2425	entry1 = entry2 ifTrue:[
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2426	(a idVal < 0 and:[b idVal < 0]) ifTrue:[
4501 fe34b74d09ff sort penk parents: 4498 diff changeset	2427	"/ two dead ones (take anything which remains constant)
fe34b74d09ff sort penk parents: 4498 diff changeset	2428	a processName ~= b processName ifTrue:[
fe34b74d09ff sort penk parents: 4498 diff changeset	2429	a processName < b processName
fe34b74d09ff sort penk parents: 4498 diff changeset	2430	] ifFalse:[
fe34b74d09ff sort penk parents: 4498 diff changeset	2431	a processInstance identityHash < b processInstance identityHash
fe34b74d09ff sort penk parents: 4498 diff changeset	2432	]
fe34b74d09ff sort penk parents: 4498 diff changeset	2433	] ifFalse:[
fe34b74d09ff sort penk parents: 4498 diff changeset	2434	a idVal < b idVal
fe34b74d09ff sort penk parents: 4498 diff changeset	2435	]
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2436	] ifFalse:[
4568 9576c0894332 Take care for nil fields when sorting Stefan Vogel <sv@exept.de> parents: 4565 diff changeset	2437	entry1 perform:cmpOp with:entry2
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2438	]
4463 99d11fbee2af initial checkin penk parents: diff changeset	2439	].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2440	self viewedColumnsChanged.
4463 99d11fbee2af initial checkin penk parents: diff changeset	2441	! !
99d11fbee2af initial checkin penk parents: diff changeset	2442
99d11fbee2af initial checkin penk parents: diff changeset	2443	!ProcessMonitorV2 methodsFor:'update process'!
99d11fbee2af initial checkin penk parents: diff changeset	2444
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2445	fillItemInformationIn:processItem
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2446
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2447	\| running con aProcess\|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2448
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2449	aProcess := processItem processInstance.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2450	aProcess isNil ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2451	^ self.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2452	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2453
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2454	processItem processId:aProcess id.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2455	processItem idVal:aProcess id ? -1.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2456
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2457	processItem processGroup:(self getGroupStringFor:aProcess).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2458	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	2459
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2460	processItem processName:aProcess name ? ''.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2461
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2462	running := (aProcess state == #run and:[aProcess == Processor interruptedProcess]).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2463
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2464	processItem processState:(aProcess state asString).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2465	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	2466
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2467	processItem prioVal:(aProcess priority).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2468	processItem processPrio:(self getPrioStringFor:aProcess).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2469
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2470	processItem processUsedStack:aProcess usedStackSize.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2471
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2472	processItem processTotalStack:(self getTotalStackStringFor:aProcess).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2473
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2474	con := aProcess suspendedContext.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2475	con isNil ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2476	aProcess == Processor activeProcess ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2477	con := thisContext
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2478	]
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2479	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2480
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2481	processItem processCurrentSegment:(self getCurrentSegmentStringFor:con).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2482
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2483	processItem processSwitch:(aProcess numberOfStackBoundaryHits).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2484
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2485	processItem processWhere:(self getWhereStringFor:con running:running).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2486	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2487
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2488	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	2489
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2490	processItem weakArrayWithProcesses:weakArrayWithProcesses.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2491	processItem processInstanceIndexInWeakArray:processInstanceIndexInWeakArray.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2492	self fillItemInformationIn:processItem
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2493	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2494
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2495	startUpdateProcess
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2496	updateBlock notNil ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2497	Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2498	Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2499	] ifFalse:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2500	updateProcess := [
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2501	[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2502	\|id cnt myDelay\|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2503
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2504	myDelay := Delay forSeconds:self scaledUpdateContentsDelayTime.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2505
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2506	"
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2507	every updateDelay (0.5), we look which process runs;
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2508	every half second, the status is updated.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2509	every listUpdateDelay (5s), the list of processes is
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2510	built up again
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2511	"
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2512	[true] whileTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2513	((self scaledUpdateListDelayTime // self scaledUpdateContentsDelayTime) max:2) - 1 timesRepeat:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2514	myDelay wait.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2515	self updateStatus:nil.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2516	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2517	myDelay wait.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2518	self updateList.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2519	]
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2520	] valueOnUnwindDo:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2521	updateProcess := nil
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2522	]
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2523	] forkAt:(Processor userSchedulingPriority + 1).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2524	updateProcess name:'monitor [' ,
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2525	Processor activeProcess id printString ,
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2526	'] update'.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2527	"
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2528	raise my own priority
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2529	"
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2530	Processor activeProcess priority:(Processor userSchedulingPriority + 2)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2531	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2532	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2533
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2534	updateChangedItem:oldItem newItem:newItem atIndex:index
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2535
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2536	\| colIdx \|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2537	colIdx := 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2538
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2539	oldItem weakArrayWithProcesses:newItem weakArrayWithProcesses.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2540	oldItem processInstanceIndexInWeakArray:newItem processInstanceIndexInWeakArray.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2541
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2542	"/ ID
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2543	oldItem processId ~= newItem processId ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2544	oldItem processId:newItem processId.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2545	processTable invalidateRowAt:index colAt:colIdx.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2546	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2547	"/ GROUP
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2548	self showGroup value ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2549	colIdx := colIdx + 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2550	oldItem processGroup ~= newItem processGroup ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2551	oldItem processGroup:newItem processGroup.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2552	processTable invalidateRowAt:index colAt:colIdx.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2553	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2554	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2555	"/ NAME
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2556	colIdx := colIdx + 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2557	oldItem processName ~= newItem processName ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2558	oldItem processName:newItem processName.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2559	processTable invalidateRowAt:index colAt:colIdx.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2560	].
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2561	"/ ACTIVE
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2562	colIdx := colIdx + 1.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2563	oldItem processActive ~= newItem processActive ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2564	oldItem processActive:newItem processActive.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2565	(processTable columnAt:colIdx).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2566	processTable invalidateRowAt:index colAt:colIdx.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2567	].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2568	"/ STATE
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2569	self showState value ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2570	colIdx := colIdx + 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2571	oldItem processState ~= newItem processState ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2572	oldItem processState:newItem processState.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2573	(processTable columnAt:colIdx).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2574	processTable invalidateRowAt:index colAt:colIdx.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2575	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2576	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2577	"/ PRIO
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2578	self showPrio value ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2579	colIdx := colIdx + 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2580	oldItem processPrio ~= newItem processPrio ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2581	oldItem processPrio:newItem processPrio.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2582	processTable invalidateRowAt:index colAt:colIdx.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2583	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2584	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2585	"/ USED STACK
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2586	self showUsedStack value ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2587	colIdx := colIdx + 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2588	oldItem processUsedStack ~= newItem processUsedStack ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2589	oldItem processUsedStack:newItem processUsedStack.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2590	processTable invalidateRowAt:index colAt:colIdx.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2591	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2592	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2593	"/ TOTAL STACK
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2594	self showTotalStack value ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2595	colIdx := colIdx + 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2596	oldItem processTotalStack ~= newItem processTotalStack ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2597	oldItem processTotalStack:newItem processTotalStack.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2598	processTable invalidateRowAt:index colAt:colIdx.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2599	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2600	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2601	"/ CURRENT SEGMENT
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2602	self showCurrentSegment value ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2603	colIdx := colIdx + 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2604	oldItem processCurrentSegment ~= newItem processCurrentSegment ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2605	oldItem processCurrentSegment:newItem processCurrentSegment.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2606	processTable invalidateRowAt:index colAt:colIdx.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2607	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2608	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2609	"/ Switch
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2610	self showSwitch value ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2611	colIdx := colIdx + 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2612	oldItem processSwitch ~= newItem processSwitch ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2613	oldItem processSwitch:newItem processSwitch.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2614	processTable invalidateRowAt:index colAt:colIdx.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2615	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2616	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2617	"/ WHERE
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2618	self showWhere value ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2619	colIdx := colIdx + 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2620	oldItem processWhere ~= newItem processWhere ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2621	oldItem processWhere:newItem processWhere.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2622	processTable invalidateRowAt:index colAt:colIdx.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2623	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2624	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2625	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2626
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2627	updateList
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2628
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2629	\|newList\|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2630
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2631	processTable shown ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2632	newList := self getProcessList.
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2633	visibleBlock notNil ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2634	newList := newList select:[:aProc\|visibleBlock value:aProc]
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2635	].
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2636	self updateStatus:newList.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2637	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2638	updateBlock notNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2639	Processor removeTimedBlock:listUpdateBlock.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2640	Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2641	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2642	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2643
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2644	updateStatus:newProcessList
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2645
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2646	\|startTime endTime deltaT\|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2647
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2648
5783 5ce97d85326d Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5764 diff changeset	2649	startTime := Timestamp now.
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2650	updateSema critical:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2651	self updateTable:newProcessList.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2652	].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2653
5783 5ce97d85326d Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5764 diff changeset	2654	endTime := Timestamp now.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2655	deltaT := (endTime millisecondDeltaFrom:startTime) / 1000.0.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2656	"/ Transcript show:deltaT; show:' ' ; showCR:(self scaledUpdateContentsDelayTime / 10.0).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2657	deltaT > (self scaledUpdateContentsDelayTime / 5) ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2658	"/ the update took longer than 20% - make delay longer, to reduce cpu load.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2659	self updateContentsDelayTime value:(self scaledUpdateContentsDelayTime * 2).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2660	"/ Transcript show:'+++ '; showCR:self scaledUpdateContentsDelayTime.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2661	] ifFalse:[
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2662	"/ self scaledUpdateContentsDelayTime > 0.5 ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2663	"/ deltaT < (self scaledUpdateContentsDelayTime / 20) ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2664	"/ "/ 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	2665	"/ 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	2666	"/ "/ Transcript show:'--- ';showCR:self scaledUpdateContentsDelayTime.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2667	"/ ].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2668	"/ ].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2669	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2670	updateBlock notNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2671	Processor removeTimedBlock:updateBlock.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2672	Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2673	]
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2674	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2675
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2676	updateTable:newProcessList
6042 1ff91f63c1b7 * empty log message * Stefan Vogel <sv@exept.de> parents: 6010 diff changeset	2677	\|oldSelection newList sel diff weakProcessList\|
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2678
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2679	processTable shown ifTrue:[
5783 5ce97d85326d Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5764 diff changeset	2680	"/ Transcript showCR:('update the table', Timestamp now printString, 'with new list:', newProcessList notNil asString).
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2681	sel := self selectedProcesses value.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2682	sel notNil ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2683	oldSelection := OrderedCollection new.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2684	sel do:[:proItem\|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2685	proItem processInstance notNil ifTrue:[
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2686	oldSelection add:(proItem processInstance)
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2687	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2688	].
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2689	].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2690	"/ Transcript showCR:'oldSelection on catch in updateTable: ', (oldSelection isEmptyOrNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2691	newProcessList isNil ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2692	newList := OrderedCollection new.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2693	processList do:[:oldItem \|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2694	\| newItem \|
6042 1ff91f63c1b7 * empty log message * Stefan Vogel <sv@exept.de> parents: 6010 diff changeset	2695	(self showDead value
1ff91f63c1b7 * empty log message * Stefan Vogel <sv@exept.de> parents: 6010 diff changeset	2696	or:[oldItem processInstance notNil
1ff91f63c1b7 * empty log message * Stefan Vogel <sv@exept.de> parents: 6010 diff changeset	2697	and:[oldItem processInstance isDead not]]) ifTrue:[
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2698	newItem := oldItem copy.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2699	self fillItemInformationIn:newItem.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2700	newList add:newItem.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2701	]
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2702	].
6042 1ff91f63c1b7 * empty log message * Stefan Vogel <sv@exept.de> parents: 6010 diff changeset	2703	] ifFalse:[
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2704	"/ remove dead processes if not shown
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2705	newList := OrderedCollection new.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2706	weakProcessList := WeakArray withAll:newProcessList.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2707	weakProcessList keysAndValuesDo:[:indexInWeakArray :procOrNilOrZero \|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2708	"/ in a weakarray, dead entries are 0
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2709	(procOrNilOrZero notNil and:[procOrNilOrZero ~~ 0]) ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2710	(procOrNilOrZero isDead not or:[self showDead value]) ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2711	\| processItem \|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2712	processItem := ProcessItem new.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2713	self fillItemInformationIn:processItem with:procOrNilOrZero inArray:weakProcessList atIndex:indexInWeakArray.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2714	newList add:processItem.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2715	]
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2716	]
4505 4c309bc91890 * empty log message * penk parents: 4504 diff changeset	2717	].
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2718	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2719	newList sort:self sortBlock.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2720	newList doWithIndex:[:newItem :index\|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2721	\| oldItem \|
6042 1ff91f63c1b7 * empty log message * Stefan Vogel <sv@exept.de> parents: 6010 diff changeset	2722	oldItem := processList at:index ifAbsent:nil.
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2723	oldItem isNil ifTrue:[
6042 1ff91f63c1b7 * empty log message * Stefan Vogel <sv@exept.de> parents: 6010 diff changeset	2724	processList add:newItem beforeIndex:index
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2725	] ifFalse:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2726	self updateChangedItem:oldItem newItem:newItem atIndex:index
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2727	]
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2728	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2729	diff := processList size - newList size.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2730	diff > 0 ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2731	processList removeLast:diff
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2732	].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2733	"/ Transcript showCR:'oldSelection on set in updateTable: ', (oldSelection isEmptyOrNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2734	self changeSelectionToProcesses:oldSelection.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2735	].
4463 99d11fbee2af initial checkin penk parents: diff changeset	2736	! !
99d11fbee2af initial checkin penk parents: diff changeset	2737
99d11fbee2af initial checkin penk parents: diff changeset	2738	!ProcessMonitorV2::ProcessItem methodsFor:'accessing'!
99d11fbee2af initial checkin penk parents: diff changeset	2739
99d11fbee2af initial checkin penk parents: diff changeset	2740	groupVal
99d11fbee2af initial checkin penk parents: diff changeset	2741	"return the value of the instance variable 'groupVal' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2742
99d11fbee2af initial checkin penk parents: diff changeset	2743	^ groupVal
99d11fbee2af initial checkin penk parents: diff changeset	2744	!
99d11fbee2af initial checkin penk parents: diff changeset	2745
99d11fbee2af initial checkin penk parents: diff changeset	2746	groupVal:something
99d11fbee2af initial checkin penk parents: diff changeset	2747	"set the value of the instance variable 'groupVal' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2748
99d11fbee2af initial checkin penk parents: diff changeset	2749	groupVal := something.
99d11fbee2af initial checkin penk parents: diff changeset	2750	!
99d11fbee2af initial checkin penk parents: diff changeset	2751
99d11fbee2af initial checkin penk parents: diff changeset	2752	idVal
99d11fbee2af initial checkin penk parents: diff changeset	2753	"return the value of the instance variable 'idVal' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2754
99d11fbee2af initial checkin penk parents: diff changeset	2755	^ idVal
99d11fbee2af initial checkin penk parents: diff changeset	2756	!
99d11fbee2af initial checkin penk parents: diff changeset	2757
99d11fbee2af initial checkin penk parents: diff changeset	2758	idVal:something
99d11fbee2af initial checkin penk parents: diff changeset	2759	"set the value of the instance variable 'idVal' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2760
99d11fbee2af initial checkin penk parents: diff changeset	2761	idVal := something.
99d11fbee2af initial checkin penk parents: diff changeset	2762	!
99d11fbee2af initial checkin penk parents: diff changeset	2763
99d11fbee2af initial checkin penk parents: diff changeset	2764	prioVal
99d11fbee2af initial checkin penk parents: diff changeset	2765	"return the value of the instance variable 'prioVal' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2766
99d11fbee2af initial checkin penk parents: diff changeset	2767	^ prioVal
99d11fbee2af initial checkin penk parents: diff changeset	2768	!
99d11fbee2af initial checkin penk parents: diff changeset	2769
99d11fbee2af initial checkin penk parents: diff changeset	2770	prioVal:something
99d11fbee2af initial checkin penk parents: diff changeset	2771	"set the value of the instance variable 'prioVal' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2772
99d11fbee2af initial checkin penk parents: diff changeset	2773	prioVal := something.
99d11fbee2af initial checkin penk parents: diff changeset	2774	!
99d11fbee2af initial checkin penk parents: diff changeset	2775
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2776	processActive
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2777	"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	2778
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2779	^ processActive
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2780	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2781
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2782	processActive:something
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2783	"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	2784
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2785	processActive := something.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2786	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2787
4463 99d11fbee2af initial checkin penk parents: diff changeset	2788	processCurrentSegment
99d11fbee2af initial checkin penk parents: diff changeset	2789	"return the value of the instance variable 'processCurrentSegment' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2790
99d11fbee2af initial checkin penk parents: diff changeset	2791	^ processCurrentSegment
99d11fbee2af initial checkin penk parents: diff changeset	2792	!
99d11fbee2af initial checkin penk parents: diff changeset	2793
99d11fbee2af initial checkin penk parents: diff changeset	2794	processCurrentSegment:something
99d11fbee2af initial checkin penk parents: diff changeset	2795	"set the value of the instance variable 'processCurrentSegment' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2796
99d11fbee2af initial checkin penk parents: diff changeset	2797	processCurrentSegment := something.
99d11fbee2af initial checkin penk parents: diff changeset	2798	!
99d11fbee2af initial checkin penk parents: diff changeset	2799
99d11fbee2af initial checkin penk parents: diff changeset	2800	processGroup
99d11fbee2af initial checkin penk parents: diff changeset	2801	"return the value of the instance variable 'processGroup' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2802
99d11fbee2af initial checkin penk parents: diff changeset	2803	^ processGroup
99d11fbee2af initial checkin penk parents: diff changeset	2804	!
99d11fbee2af initial checkin penk parents: diff changeset	2805
99d11fbee2af initial checkin penk parents: diff changeset	2806	processGroup:something
99d11fbee2af initial checkin penk parents: diff changeset	2807	"set the value of the instance variable 'processGroup' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2808
99d11fbee2af initial checkin penk parents: diff changeset	2809	processGroup := something.
99d11fbee2af initial checkin penk parents: diff changeset	2810	!
99d11fbee2af initial checkin penk parents: diff changeset	2811
99d11fbee2af initial checkin penk parents: diff changeset	2812	processId
99d11fbee2af initial checkin penk parents: diff changeset	2813	"return the value of the instance variable 'processId' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2814
99d11fbee2af initial checkin penk parents: diff changeset	2815	^ processId
99d11fbee2af initial checkin penk parents: diff changeset	2816	!
99d11fbee2af initial checkin penk parents: diff changeset	2817
99d11fbee2af initial checkin penk parents: diff changeset	2818	processId:something
99d11fbee2af initial checkin penk parents: diff changeset	2819	"set the value of the instance variable 'processId' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2820
99d11fbee2af initial checkin penk parents: diff changeset	2821	processId := something.
99d11fbee2af initial checkin penk parents: diff changeset	2822	!
99d11fbee2af initial checkin penk parents: diff changeset	2823
99d11fbee2af initial checkin penk parents: diff changeset	2824	processInstance
99d11fbee2af initial checkin penk parents: diff changeset	2825	"return the value of the instance variable 'processInstance' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2826
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2827	\|procOrNilOrZero\|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2828
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2829	procOrNilOrZero := weakArrayWithProcesses at:processInstanceIndexInWeakArray.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2830	procOrNilOrZero == 0 ifTrue:[^ nil].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2831	^ procOrNilOrZero
4463 99d11fbee2af initial checkin penk parents: diff changeset	2832	!
99d11fbee2af initial checkin penk parents: diff changeset	2833
99d11fbee2af initial checkin penk parents: diff changeset	2834	processInstance:something
99d11fbee2af initial checkin penk parents: diff changeset	2835	"set the value of the instance variable 'processInstance' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2836
99d11fbee2af initial checkin penk parents: diff changeset	2837	processInstance := something.
99d11fbee2af initial checkin penk parents: diff changeset	2838	!
99d11fbee2af initial checkin penk parents: diff changeset	2839
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2840	processInstanceIndexInWeakArray
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2841	"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	2842
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2843	^ processInstanceIndexInWeakArray
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2844	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2845
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2846	processInstanceIndexInWeakArray:something
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2847	"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	2848
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2849	processInstanceIndexInWeakArray := something.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2850	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2851
4463 99d11fbee2af initial checkin penk parents: diff changeset	2852	processName
99d11fbee2af initial checkin penk parents: diff changeset	2853	"return the value of the instance variable 'processName' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2854
99d11fbee2af initial checkin penk parents: diff changeset	2855	^ processName
99d11fbee2af initial checkin penk parents: diff changeset	2856	!
99d11fbee2af initial checkin penk parents: diff changeset	2857
99d11fbee2af initial checkin penk parents: diff changeset	2858	processName:something
99d11fbee2af initial checkin penk parents: diff changeset	2859	"set the value of the instance variable 'processName' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2860
99d11fbee2af initial checkin penk parents: diff changeset	2861	processName := something.
99d11fbee2af initial checkin penk parents: diff changeset	2862	!
99d11fbee2af initial checkin penk parents: diff changeset	2863
99d11fbee2af initial checkin penk parents: diff changeset	2864	processPrio
99d11fbee2af initial checkin penk parents: diff changeset	2865	"return the value of the instance variable 'processPrio' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2866
99d11fbee2af initial checkin penk parents: diff changeset	2867	^ processPrio
99d11fbee2af initial checkin penk parents: diff changeset	2868	!
99d11fbee2af initial checkin penk parents: diff changeset	2869
99d11fbee2af initial checkin penk parents: diff changeset	2870	processPrio:something
99d11fbee2af initial checkin penk parents: diff changeset	2871	"set the value of the instance variable 'processPrio' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2872
99d11fbee2af initial checkin penk parents: diff changeset	2873	processPrio := something.
99d11fbee2af initial checkin penk parents: diff changeset	2874	!
99d11fbee2af initial checkin penk parents: diff changeset	2875
99d11fbee2af initial checkin penk parents: diff changeset	2876	processState
99d11fbee2af initial checkin penk parents: diff changeset	2877	"return the value of the instance variable 'processState' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2878
99d11fbee2af initial checkin penk parents: diff changeset	2879	^ processState
99d11fbee2af initial checkin penk parents: diff changeset	2880	!
99d11fbee2af initial checkin penk parents: diff changeset	2881
99d11fbee2af initial checkin penk parents: diff changeset	2882	processState:something
99d11fbee2af initial checkin penk parents: diff changeset	2883	"set the value of the instance variable 'processState' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2884
99d11fbee2af initial checkin penk parents: diff changeset	2885	processState := something.
99d11fbee2af initial checkin penk parents: diff changeset	2886	!
99d11fbee2af initial checkin penk parents: diff changeset	2887
99d11fbee2af initial checkin penk parents: diff changeset	2888	processSwitch
99d11fbee2af initial checkin penk parents: diff changeset	2889	"return the value of the instance variable 'processSwitch' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2890
99d11fbee2af initial checkin penk parents: diff changeset	2891	^ processSwitch
99d11fbee2af initial checkin penk parents: diff changeset	2892	!
99d11fbee2af initial checkin penk parents: diff changeset	2893
99d11fbee2af initial checkin penk parents: diff changeset	2894	processSwitch:something
99d11fbee2af initial checkin penk parents: diff changeset	2895	"set the value of the instance variable 'processSwitch' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2896
99d11fbee2af initial checkin penk parents: diff changeset	2897	processSwitch := something.
99d11fbee2af initial checkin penk parents: diff changeset	2898	!
99d11fbee2af initial checkin penk parents: diff changeset	2899
99d11fbee2af initial checkin penk parents: diff changeset	2900	processTotalStack
99d11fbee2af initial checkin penk parents: diff changeset	2901	"return the value of the instance variable 'processTotalStack' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2902
99d11fbee2af initial checkin penk parents: diff changeset	2903	^ processTotalStack
99d11fbee2af initial checkin penk parents: diff changeset	2904	!
99d11fbee2af initial checkin penk parents: diff changeset	2905
99d11fbee2af initial checkin penk parents: diff changeset	2906	processTotalStack:something
99d11fbee2af initial checkin penk parents: diff changeset	2907	"set the value of the instance variable 'processTotalStack' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2908
99d11fbee2af initial checkin penk parents: diff changeset	2909	processTotalStack := something.
99d11fbee2af initial checkin penk parents: diff changeset	2910	!
99d11fbee2af initial checkin penk parents: diff changeset	2911
99d11fbee2af initial checkin penk parents: diff changeset	2912	processUsedStack
99d11fbee2af initial checkin penk parents: diff changeset	2913	"return the value of the instance variable 'processUsedStack' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2914
99d11fbee2af initial checkin penk parents: diff changeset	2915	^ processUsedStack
99d11fbee2af initial checkin penk parents: diff changeset	2916	!
99d11fbee2af initial checkin penk parents: diff changeset	2917
99d11fbee2af initial checkin penk parents: diff changeset	2918	processUsedStack:something
99d11fbee2af initial checkin penk parents: diff changeset	2919	"set the value of the instance variable 'processUsedStack' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2920
99d11fbee2af initial checkin penk parents: diff changeset	2921	processUsedStack := something.
99d11fbee2af initial checkin penk parents: diff changeset	2922	!
99d11fbee2af initial checkin penk parents: diff changeset	2923
99d11fbee2af initial checkin penk parents: diff changeset	2924	processWhere
99d11fbee2af initial checkin penk parents: diff changeset	2925	"return the value of the instance variable 'processWhere' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2926
99d11fbee2af initial checkin penk parents: diff changeset	2927	^ processWhere
99d11fbee2af initial checkin penk parents: diff changeset	2928	!
99d11fbee2af initial checkin penk parents: diff changeset	2929
99d11fbee2af initial checkin penk parents: diff changeset	2930	processWhere:something
99d11fbee2af initial checkin penk parents: diff changeset	2931	"set the value of the instance variable 'processWhere' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2932
99d11fbee2af initial checkin penk parents: diff changeset	2933	processWhere := something.
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2934	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2935
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2936	weakArrayWithProcesses
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2937	"return the value of the instance variable 'weakArrayWithProcesses' (automatically generated)"
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2938
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2939	^ weakArrayWithProcesses
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2940	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2941
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2942	weakArrayWithProcesses:something
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2943	"set the value of the instance variable 'weakArrayWithProcesses' (automatically generated)"
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2944
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2945	weakArrayWithProcesses := something.
4463 99d11fbee2af initial checkin penk parents: diff changeset	2946	! !
99d11fbee2af initial checkin penk parents: diff changeset	2947
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2948	!ProcessMonitorV2::ProcessItem methodsFor:'printing'!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2949
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2950	displayString
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2951
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2952	^ self printString
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2953	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2954
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2955	printString
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2956
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2957	^ self processName ? '' , '[', self processId ? '' asString, ']'
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2958	! !
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2959
4463 99d11fbee2af initial checkin penk parents: diff changeset	2960	!ProcessMonitorV2 class methodsFor:'documentation'!
99d11fbee2af initial checkin penk parents: diff changeset	2961
99d11fbee2af initial checkin penk parents: diff changeset	2962	version
6648 3b7d52e1de3a * empty log message * Claus Gittinger <cg@exept.de> parents: 6609 diff changeset	2963	^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.30 2006-03-06 08:54:50 cg Exp $'
4463 99d11fbee2af initial checkin penk parents: diff changeset	2964	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 04 Jul 2006 11:42:45 +0200
changeset 6809	feff4e2a1c4b
parent 6648	3b7d52e1de3a
child 7116	2ab477279415
permissions	-rw-r--r--