hg/stx-libtool: ProcessMonitorV2.st@985a13c5e7b1 (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
99d11fbee2af initial checkin penk parents: diff changeset	842	#label: 'About this Application'
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
99d11fbee2af initial checkin penk parents: diff changeset	881	#enabled: #hasSelection
99d11fbee2af initial checkin penk parents: diff changeset	882	#label: 'Debug'
99d11fbee2af initial checkin penk parents: diff changeset	883	#itemValue: #debugProcess
99d11fbee2af initial checkin penk parents: diff changeset	884	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	885	)
99d11fbee2af initial checkin penk parents: diff changeset	886	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	887	#label: '-'
99d11fbee2af initial checkin penk parents: diff changeset	888	)
99d11fbee2af initial checkin penk parents: diff changeset	889	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	890	#enabled: #hasSelection
99d11fbee2af initial checkin penk parents: diff changeset	891	#label: 'Resume'
99d11fbee2af initial checkin penk parents: diff changeset	892	#itemValue: #resumeProcess
99d11fbee2af initial checkin penk parents: diff changeset	893	#translateLabel: true
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: 'Suspend'
99d11fbee2af initial checkin penk parents: diff changeset	898	#itemValue: #suspendProcess
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: 'Stop'
99d11fbee2af initial checkin penk parents: diff changeset	904	#itemValue: #stopProcess
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	#label: '-'
99d11fbee2af initial checkin penk parents: diff changeset	909	)
99d11fbee2af initial checkin penk parents: diff changeset	910	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	911	#enabled: #hasSelection
99d11fbee2af initial checkin penk parents: diff changeset	912	#label: 'Abort'
99d11fbee2af initial checkin penk parents: diff changeset	913	#itemValue: #abortProcess
99d11fbee2af initial checkin penk parents: diff changeset	914	#translateLabel: true
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: 'Terminate'
99d11fbee2af initial checkin penk parents: diff changeset	919	#itemValue: #terminateProcess
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: 'Hard Terminate'
99d11fbee2af initial checkin penk parents: diff changeset	925	#itemValue: #hardTerminateProcess
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: 'Terminate Group'
99d11fbee2af initial checkin penk parents: diff changeset	931	#itemValue: #terminateProcessGroup
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: #selectionRestartable
99d11fbee2af initial checkin penk parents: diff changeset	936	#label: 'Restart'
99d11fbee2af initial checkin penk parents: diff changeset	937	#itemValue: #restartProcess
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	#label: '-'
99d11fbee2af initial checkin penk parents: diff changeset	942	)
99d11fbee2af initial checkin penk parents: diff changeset	943	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	944	#enabled: #hasSelection
99d11fbee2af initial checkin penk parents: diff changeset	945	#label: 'Raise Prio'
99d11fbee2af initial checkin penk parents: diff changeset	946	#itemValue: #raisePrio
99d11fbee2af initial checkin penk parents: diff changeset	947	#translateLabel: true
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: 'Lower Prio'
99d11fbee2af initial checkin penk parents: diff changeset	952	#itemValue: #lowerPrio
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	)
99d11fbee2af initial checkin penk parents: diff changeset	956	nil
99d11fbee2af initial checkin penk parents: diff changeset	957	nil
99d11fbee2af initial checkin penk parents: diff changeset	958	)
99d11fbee2af initial checkin penk parents: diff changeset	959	!
99d11fbee2af initial checkin penk parents: diff changeset	960
99d11fbee2af initial checkin penk parents: diff changeset	961	toolBarMainMenu
99d11fbee2af initial checkin penk parents: diff changeset	962	"This resource specification was automatically generated
99d11fbee2af initial checkin penk parents: diff changeset	963	by the MenuEditor of ST/X."
99d11fbee2af initial checkin penk parents: diff changeset	964
99d11fbee2af initial checkin penk parents: diff changeset	965	"Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin penk parents: diff changeset	966	the MenuEditor may not be able to read the specification."
99d11fbee2af initial checkin penk parents: diff changeset	967
99d11fbee2af initial checkin penk parents: diff changeset	968	"
99d11fbee2af initial checkin penk parents: diff changeset	969	MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#toolBarMainMenu
99d11fbee2af initial checkin penk parents: diff changeset	970	(Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 toolBarMainMenu)) startUp
99d11fbee2af initial checkin penk parents: diff changeset	971	"
99d11fbee2af initial checkin penk parents: diff changeset	972
99d11fbee2af initial checkin penk parents: diff changeset	973	<resource: #menu>
99d11fbee2af initial checkin penk parents: diff changeset	974
99d11fbee2af initial checkin penk parents: diff changeset	975	^
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	976	#(Menu
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	977	(
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	978	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	979	activeHelpKey: Inspect
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	980	enabled: hasSelection
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	981	label: 'Inspect'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	982	itemValue: inspectSelection
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	983	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	984	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	985	isVisible: allowModifications
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	986	labelImage: (ResourceRetriever ProcessMonitorV2 processInspect22x22Icon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	987	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	988	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	989	activeHelpKey: Debug
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	990	enabled: hasSelection
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	991	label: 'Debug'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	992	itemValue: debugProcess
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	993	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	994	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	995	isVisible: allowModifications
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	996	labelImage: (ResourceRetriever ProcessMonitorV2 processDebug22x22Icon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	997	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	998	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	999	label: '-'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1000	isVisible: allowModifications
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1001	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1002	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1003	activeHelpKey: Resume
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1004	enabled: hasSelection
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1005	label: 'Resume'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1006	itemValue: resumeProcess
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1007	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1008	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1009	isVisible: allowModifications
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1010	labelImage: (ResourceRetriever ProcessMonitorV2 processResume22x22Icon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1011	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1012	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1013	activeHelpKey: Stop
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1014	enabled: hasSelection
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1015	label: 'Stop'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1016	itemValue: stopProcess
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1017	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1018	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1019	isVisible: allowModifications
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1020	labelImage: (ResourceRetriever ProcessMonitorV2 processStop22x22Icon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1021	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1022	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1023	activeHelpKey: Abort
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1024	enabled: hasSelection
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1025	label: 'Abort'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1026	itemValue: abortProcess
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1027	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1028	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1029	isVisible: allowModifications
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1030	labelImage: (ResourceRetriever ProcessMonitorV2 processAbort22x22Icon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1031	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1032	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1033	label: '-'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1034	isVisible: allowModifications
4463 99d11fbee2af initial checkin penk parents: diff changeset	1035	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1036	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1037	activeHelpKey: Terminate
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1038	enabled: hasSelection
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1039	label: 'Terminate'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1040	itemValue: terminateProcess
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1041	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1042	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1043	isVisible: allowModifications
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1044	labelImage: (ResourceRetriever ProcessMonitorV2 processTerminate22x22Icon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1045	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1046	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1047	activeHelpKey: #'Terminate Group'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1048	enabled: hasSelection
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1049	label: 'Terminate Group'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1050	itemValue: terminateProcessGroup
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1051	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1052	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1053	isVisible: allowModifications
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1054	labelImage: (ResourceRetriever ProcessMonitorV2 processTerminateGroup22x22Icon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1055	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1056	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1057	activeHelpKey: Restart
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1058	enabled: selectionRestartable
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1059	label: 'Restart'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1060	itemValue: restartProcess
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1061	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1062	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1063	isVisible: allowModifications
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1064	labelImage: (ResourceRetriever ProcessMonitorV2 processRestart22x22Icon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1065	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1066	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1067	label: '-'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1068	isVisible: allowModifications
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1069	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1070	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1071	activeHelpKey: #'Raise Prio'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1072	enabled: hasSelection
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1073	label: 'Raise Prio'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1074	itemValue: raisePrio
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1075	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1076	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1077	isVisible: allowModifications
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1078	labelImage: (ResourceRetriever ProcessMonitorV2 processRaisePrio22x22Icon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1079	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1080	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1081	activeHelpKey: #'Lower Prio'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1082	enabled: hasSelection
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1083	label: 'Lower Prio'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1084	itemValue: lowerPrio
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1085	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1086	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1087	isVisible: allowModifications
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1088	labelImage: (ResourceRetriever ProcessMonitorV2 processLowerPrio22x22Icon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1089	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1090	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1091	label: ''
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1092	isVisible: allowModifications
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1093	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1094	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1095	activeHelpKey: #'Update Process List'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1096	label: 'Update'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1097	itemValue: updateList
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1098	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1099	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1100	startGroup: right
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1101	labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
4468 cc786dd7b4cb checkin from browser penk parents: 4463 diff changeset	1102	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1103	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1104	label: 'Print'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1105	itemValue: printProcessList
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1106	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1107	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1108	startGroup: right
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1109	labelImage: (ResourceRetriever ToolbarIconLibrary printerIcon)
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1110	)
6290 e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1111	(MenuItem
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1112	activeHelpKey: Details
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1113	label: 'View Details'
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1114	translateLabel: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1115	isButton: true
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1116	startGroup: right
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1117	submenuChannel: viewDetailsMenuSpec
e093380884ee * empty log message * Claus Gittinger <cg@exept.de> parents: 6240 diff changeset	1118	labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
4463 99d11fbee2af initial checkin penk parents: diff changeset	1119	)
99d11fbee2af initial checkin penk parents: diff changeset	1120	)
99d11fbee2af initial checkin penk parents: diff changeset	1121	nil
99d11fbee2af initial checkin penk parents: diff changeset	1122	nil
99d11fbee2af initial checkin penk parents: diff changeset	1123	)
99d11fbee2af initial checkin penk parents: diff changeset	1124	!
99d11fbee2af initial checkin penk parents: diff changeset	1125
99d11fbee2af initial checkin penk parents: diff changeset	1126	viewDetailsMenuSpec
99d11fbee2af initial checkin penk parents: diff changeset	1127	"This resource specification was automatically generated
99d11fbee2af initial checkin penk parents: diff changeset	1128	by the MenuEditor of ST/X."
99d11fbee2af initial checkin penk parents: diff changeset	1129
99d11fbee2af initial checkin penk parents: diff changeset	1130	"Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin penk parents: diff changeset	1131	the MenuEditor may not be able to read the specification."
99d11fbee2af initial checkin penk parents: diff changeset	1132
99d11fbee2af initial checkin penk parents: diff changeset	1133	"
99d11fbee2af initial checkin penk parents: diff changeset	1134	MenuEditor new openOnClass:ProcessMonitorV2 andSelector:#viewDetailsMenuSpec
99d11fbee2af initial checkin penk parents: diff changeset	1135	(Menu new fromLiteralArrayEncoding:(ProcessMonitorV2 viewDetailsMenuSpec)) startUp
99d11fbee2af initial checkin penk parents: diff changeset	1136	"
99d11fbee2af initial checkin penk parents: diff changeset	1137
99d11fbee2af initial checkin penk parents: diff changeset	1138	<resource: #menu>
99d11fbee2af initial checkin penk parents: diff changeset	1139
99d11fbee2af initial checkin penk parents: diff changeset	1140	^
99d11fbee2af initial checkin penk parents: diff changeset	1141	#(#Menu
99d11fbee2af initial checkin penk parents: diff changeset	1142	#(
99d11fbee2af initial checkin penk parents: diff changeset	1143	#(#MenuItem
99d11fbee2af initial checkin penk parents: diff changeset	1144	#label: 'Id'
99d11fbee2af initial checkin penk parents: diff changeset	1145	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	1146	#hideMenuOnActivated: false
99d11fbee2af initial checkin penk parents: diff changeset	1147	#indication: #showProcessId
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: 'Group'
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: #showGroup
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: 'State'
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: #showState
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: 'Prio'
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: #showPrio
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: 'Used Stack'
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: #showUsedStack
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: 'Total 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: #showTotalStack
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: 'Current-Segment'
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: #showCurrentSegment
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: 'Switch'
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: #showSwitch
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: 'Where'
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: #showWhere
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: '-'
99d11fbee2af initial checkin penk parents: diff changeset	1199	)
99d11fbee2af initial checkin penk parents: diff changeset	1200	#(#MenuItem
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	1201	#label: 'Show Dead Processes'
4463 99d11fbee2af initial checkin penk parents: diff changeset	1202	#translateLabel: true
99d11fbee2af initial checkin penk parents: diff changeset	1203	#indication: #showDead
99d11fbee2af initial checkin penk parents: diff changeset	1204	)
4502 7d40e78aa5b4 menu penk parents: 4501 diff changeset	1205	#(#MenuItem
7d40e78aa5b4 menu penk parents: 4501 diff changeset	1206	#label: '-'
7d40e78aa5b4 menu penk parents: 4501 diff changeset	1207	)
7d40e78aa5b4 menu penk parents: 4501 diff changeset	1208	#(#MenuItem
7d40e78aa5b4 menu penk parents: 4501 diff changeset	1209	#label: 'Update'
7d40e78aa5b4 menu penk parents: 4501 diff changeset	1210	#itemValue: #updateView
7d40e78aa5b4 menu penk parents: 4501 diff changeset	1211	#translateLabel: true
7d40e78aa5b4 menu penk parents: 4501 diff changeset	1212	)
4463 99d11fbee2af initial checkin penk parents: diff changeset	1213	)
99d11fbee2af initial checkin penk parents: diff changeset	1214	nil
99d11fbee2af initial checkin penk parents: diff changeset	1215	nil
99d11fbee2af initial checkin penk parents: diff changeset	1216	)
99d11fbee2af initial checkin penk parents: diff changeset	1217	! !
99d11fbee2af initial checkin penk parents: diff changeset	1218
99d11fbee2af initial checkin penk parents: diff changeset	1219	!ProcessMonitorV2 class methodsFor:'tableColumns specs'!
99d11fbee2af initial checkin penk parents: diff changeset	1220
99d11fbee2af initial checkin penk parents: diff changeset	1221	tableColumns
99d11fbee2af initial checkin penk parents: diff changeset	1222	"This resource specification was automatically generated
99d11fbee2af initial checkin penk parents: diff changeset	1223	by the DataSetBuilder of ST/X."
99d11fbee2af initial checkin penk parents: diff changeset	1224
99d11fbee2af initial checkin penk parents: diff changeset	1225	"Do not manually edit this!! If it is corrupted,
99d11fbee2af initial checkin penk parents: diff changeset	1226	the DataSetBuilder may not be able to read the specification."
99d11fbee2af initial checkin penk parents: diff changeset	1227
99d11fbee2af initial checkin penk parents: diff changeset	1228	"
99d11fbee2af initial checkin penk parents: diff changeset	1229	DataSetBuilder new openOnClass:ProcessMonitorV2 andSelector:#tableColumns
99d11fbee2af initial checkin penk parents: diff changeset	1230	"
99d11fbee2af initial checkin penk parents: diff changeset	1231
99d11fbee2af initial checkin penk parents: diff changeset	1232	<resource: #tableColumns>
99d11fbee2af initial checkin penk parents: diff changeset	1233
99d11fbee2af initial checkin penk parents: diff changeset	1234	^#(
99d11fbee2af initial checkin penk parents: diff changeset	1235	#(#DataSetColumnSpec
99d11fbee2af initial checkin penk parents: diff changeset	1236	#label: 'Id'
99d11fbee2af initial checkin penk parents: diff changeset	1237	#id: #id
99d11fbee2af initial checkin penk parents: diff changeset	1238	#labelAlignment: #left
99d11fbee2af initial checkin penk parents: diff changeset	1239	#labelButtonType: #Button
99d11fbee2af initial checkin penk parents: diff changeset	1240	#labelActionSelector: #sortProcessListBy:
99d11fbee2af initial checkin penk parents: diff changeset	1241	#labelActionArgument: 'idVal'
99d11fbee2af initial checkin penk parents: diff changeset	1242	#width: 45
99d11fbee2af initial checkin penk parents: diff changeset	1243	#type: #number
99d11fbee2af initial checkin penk parents: diff changeset	1244	#model: #processId
99d11fbee2af initial checkin penk parents: diff changeset	1245	#canSelect: false
99d11fbee2af initial checkin penk parents: diff changeset	1246	#showRowSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1247	#showColSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1248	)
99d11fbee2af initial checkin penk parents: diff changeset	1249	#(#DataSetColumnSpec
99d11fbee2af initial checkin penk parents: diff changeset	1250	#label: 'Group'
99d11fbee2af initial checkin penk parents: diff changeset	1251	#id: #group
99d11fbee2af initial checkin penk parents: diff changeset	1252	#labelAlignment: #left
99d11fbee2af initial checkin penk parents: diff changeset	1253	#labelButtonType: #Button
99d11fbee2af initial checkin penk parents: diff changeset	1254	#labelActionSelector: #sortProcessListBy:
99d11fbee2af initial checkin penk parents: diff changeset	1255	#labelActionArgument: 'groupVal'
99d11fbee2af initial checkin penk parents: diff changeset	1256	#width: 45
99d11fbee2af initial checkin penk parents: diff changeset	1257	#model: #processGroup
99d11fbee2af initial checkin penk parents: diff changeset	1258	#canSelect: false
99d11fbee2af initial checkin penk parents: diff changeset	1259	#showRowSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1260	#showColSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1261	)
99d11fbee2af initial checkin penk parents: diff changeset	1262	#(#DataSetColumnSpec
99d11fbee2af initial checkin penk parents: diff changeset	1263	#label: 'Name'
99d11fbee2af initial checkin penk parents: diff changeset	1264	#id: #name
99d11fbee2af initial checkin penk parents: diff changeset	1265	#labelAlignment: #left
99d11fbee2af initial checkin penk parents: diff changeset	1266	#labelButtonType: #Button
99d11fbee2af initial checkin penk parents: diff changeset	1267	#labelActionSelector: #sortProcessListBy:
99d11fbee2af initial checkin penk parents: diff changeset	1268	#labelActionArgument: 'processName'
99d11fbee2af initial checkin penk parents: diff changeset	1269	#width: 200
99d11fbee2af initial checkin penk parents: diff changeset	1270	#model: #processName
99d11fbee2af initial checkin penk parents: diff changeset	1271	#canSelect: false
99d11fbee2af initial checkin penk parents: diff changeset	1272	#showRowSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1273	#showColSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1274	)
99d11fbee2af initial checkin penk parents: diff changeset	1275	#(#DataSetColumnSpec
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1276	#label: ''
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1277	#id: #active
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1278	#labelButtonType: #Button
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1279	#labelActionSelector: #sortProcessListBy:
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1280	#labelActionArgument: 'processActive'
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1281	#width: 10
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1282	#height: 5
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1283	#model: #processActive
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1284	#canSelect: false
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1285	#showRowSeparator: false
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1286	#showColSeparator: false
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1287	)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1288	#(#DataSetColumnSpec
4463 99d11fbee2af initial checkin penk parents: diff changeset	1289	#label: 'State'
99d11fbee2af initial checkin penk parents: diff changeset	1290	#id: #state
99d11fbee2af initial checkin penk parents: diff changeset	1291	#labelAlignment: #left
99d11fbee2af initial checkin penk parents: diff changeset	1292	#labelButtonType: #Button
99d11fbee2af initial checkin penk parents: diff changeset	1293	#labelActionSelector: #sortProcessListBy:
99d11fbee2af initial checkin penk parents: diff changeset	1294	#labelActionArgument: 'processState'
99d11fbee2af initial checkin penk parents: diff changeset	1295	#width: 100
99d11fbee2af initial checkin penk parents: diff changeset	1296	#model: #processState
99d11fbee2af initial checkin penk parents: diff changeset	1297	#canSelect: false
99d11fbee2af initial checkin penk parents: diff changeset	1298	#showRowSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1299	#showColSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1300	)
99d11fbee2af initial checkin penk parents: diff changeset	1301	#(#DataSetColumnSpec
99d11fbee2af initial checkin penk parents: diff changeset	1302	#label: 'Prio'
99d11fbee2af initial checkin penk parents: diff changeset	1303	#id: #prio
99d11fbee2af initial checkin penk parents: diff changeset	1304	#labelAlignment: #left
99d11fbee2af initial checkin penk parents: diff changeset	1305	#labelButtonType: #Button
99d11fbee2af initial checkin penk parents: diff changeset	1306	#labelActionSelector: #sortProcessListBy:
99d11fbee2af initial checkin penk parents: diff changeset	1307	#labelActionArgument: 'prioVal'
99d11fbee2af initial checkin penk parents: diff changeset	1308	#width: 40
99d11fbee2af initial checkin penk parents: diff changeset	1309	#model: #processPrio
99d11fbee2af initial checkin penk parents: diff changeset	1310	#canSelect: false
99d11fbee2af initial checkin penk parents: diff changeset	1311	#showRowSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1312	#showColSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1313	)
99d11fbee2af initial checkin penk parents: diff changeset	1314	#(#DataSetColumnSpec
99d11fbee2af initial checkin penk parents: diff changeset	1315	#label: 'Used Stack'
99d11fbee2af initial checkin penk parents: diff changeset	1316	#id: #usedStack
99d11fbee2af initial checkin penk parents: diff changeset	1317	#labelAlignment: #left
99d11fbee2af initial checkin penk parents: diff changeset	1318	#labelButtonType: #Button
99d11fbee2af initial checkin penk parents: diff changeset	1319	#labelActionSelector: #sortProcessListBy:
99d11fbee2af initial checkin penk parents: diff changeset	1320	#labelActionArgument: 'processUsedStack'
99d11fbee2af initial checkin penk parents: diff changeset	1321	#columnAlignment: #right
99d11fbee2af initial checkin penk parents: diff changeset	1322	#width: 75
99d11fbee2af initial checkin penk parents: diff changeset	1323	#type: #number
99d11fbee2af initial checkin penk parents: diff changeset	1324	#model: #processUsedStack
99d11fbee2af initial checkin penk parents: diff changeset	1325	#canSelect: false
99d11fbee2af initial checkin penk parents: diff changeset	1326	#showRowSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1327	#showColSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1328	)
99d11fbee2af initial checkin penk parents: diff changeset	1329	#(#DataSetColumnSpec
99d11fbee2af initial checkin penk parents: diff changeset	1330	#label: 'Total Stack'
99d11fbee2af initial checkin penk parents: diff changeset	1331	#id: #totalStack
99d11fbee2af initial checkin penk parents: diff changeset	1332	#labelAlignment: #left
99d11fbee2af initial checkin penk parents: diff changeset	1333	#labelButtonType: #Button
99d11fbee2af initial checkin penk parents: diff changeset	1334	#labelActionSelector: #sortProcessListBy:
99d11fbee2af initial checkin penk parents: diff changeset	1335	#labelActionArgument: 'processTotalStack'
99d11fbee2af initial checkin penk parents: diff changeset	1336	#columnAlignment: #right
99d11fbee2af initial checkin penk parents: diff changeset	1337	#width: 75
99d11fbee2af initial checkin penk parents: diff changeset	1338	#model: #processTotalStack
99d11fbee2af initial checkin penk parents: diff changeset	1339	#canSelect: false
99d11fbee2af initial checkin penk parents: diff changeset	1340	#showRowSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1341	#showColSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1342	)
99d11fbee2af initial checkin penk parents: diff changeset	1343	#(#DataSetColumnSpec
99d11fbee2af initial checkin penk parents: diff changeset	1344	#label: 'Current-Segment'
99d11fbee2af initial checkin penk parents: diff changeset	1345	#id: #currentSegment
99d11fbee2af initial checkin penk parents: diff changeset	1346	#labelAlignment: #left
99d11fbee2af initial checkin penk parents: diff changeset	1347	#labelButtonType: #Button
99d11fbee2af initial checkin penk parents: diff changeset	1348	#labelActionSelector: #sortProcessListBy:
99d11fbee2af initial checkin penk parents: diff changeset	1349	#labelActionArgument: 'processCurrentSegment'
99d11fbee2af initial checkin penk parents: diff changeset	1350	#width: 110
99d11fbee2af initial checkin penk parents: diff changeset	1351	#model: #processCurrentSegment
99d11fbee2af initial checkin penk parents: diff changeset	1352	#canSelect: false
99d11fbee2af initial checkin penk parents: diff changeset	1353	#showRowSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1354	#showColSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1355	)
99d11fbee2af initial checkin penk parents: diff changeset	1356	#(#DataSetColumnSpec
99d11fbee2af initial checkin penk parents: diff changeset	1357	#label: 'Switch'
99d11fbee2af initial checkin penk parents: diff changeset	1358	#id: #switch
99d11fbee2af initial checkin penk parents: diff changeset	1359	#labelAlignment: #left
99d11fbee2af initial checkin penk parents: diff changeset	1360	#labelButtonType: #Button
99d11fbee2af initial checkin penk parents: diff changeset	1361	#labelActionSelector: #sortProcessListBy:
99d11fbee2af initial checkin penk parents: diff changeset	1362	#labelActionArgument: 'processSwitch'
99d11fbee2af initial checkin penk parents: diff changeset	1363	#columnAlignment: #right
99d11fbee2af initial checkin penk parents: diff changeset	1364	#width: 55
99d11fbee2af initial checkin penk parents: diff changeset	1365	#type: #number
99d11fbee2af initial checkin penk parents: diff changeset	1366	#model: #processSwitch
99d11fbee2af initial checkin penk parents: diff changeset	1367	#canSelect: false
99d11fbee2af initial checkin penk parents: diff changeset	1368	#showRowSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1369	#showColSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1370	)
99d11fbee2af initial checkin penk parents: diff changeset	1371	#(#DataSetColumnSpec
99d11fbee2af initial checkin penk parents: diff changeset	1372	#label: 'Where'
99d11fbee2af initial checkin penk parents: diff changeset	1373	#id: #where
99d11fbee2af initial checkin penk parents: diff changeset	1374	#labelAlignment: #left
99d11fbee2af initial checkin penk parents: diff changeset	1375	#labelButtonType: #Button
99d11fbee2af initial checkin penk parents: diff changeset	1376	#labelActionSelector: #sortProcessListBy:
99d11fbee2af initial checkin penk parents: diff changeset	1377	#labelActionArgument: 'processWhere'
99d11fbee2af initial checkin penk parents: diff changeset	1378	#model: #processWhere
99d11fbee2af initial checkin penk parents: diff changeset	1379	#canSelect: false
99d11fbee2af initial checkin penk parents: diff changeset	1380	#showRowSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1381	#showColSeparator: false
99d11fbee2af initial checkin penk parents: diff changeset	1382	)
99d11fbee2af initial checkin penk parents: diff changeset	1383	)
99d11fbee2af initial checkin penk parents: diff changeset	1384	! !
99d11fbee2af initial checkin penk parents: diff changeset	1385
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1386	!ProcessMonitorV2 methodsFor:'accessing'!
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1387
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1388	visibleBlock
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1389	"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	1390
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1391	^ visibleBlock
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1392	!
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:something
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1395	"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	1396
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1397	visibleBlock := something.
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
4463 99d11fbee2af initial checkin penk parents: diff changeset	1400	!ProcessMonitorV2 methodsFor:'actions'!
99d11fbee2af initial checkin penk parents: diff changeset	1401
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1402	changeSelectionTo:aSelection
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1403
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1404	aSelection notNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1405	\| newSelection \|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1406	newSelection := OrderedCollection new.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1407	aSelection do:[:processItem \|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1408	\| index \|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1409	index := processList findFirst:[:anItem \| (anItem processInstance == processItem processInstance)].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1410	index ~~ 0 ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1411	newSelection add:(processList at:index).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1412	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1413	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1414	self selectedProcesses value:newSelection
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1415	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1416	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1417
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1418	changeSelectionToProcesses:aProcessList
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1419
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1420	aProcessList notNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1421	\| newSelection \|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1422	newSelection := OrderedCollection new.
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1423	aProcessList do:[:aProcess \|
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1424	\| index \|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1425	index := processList findFirst:[:anItem \| (anItem processInstance == aProcess)].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1426	index ~~ 0 ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1427	newSelection add:(processList at:index).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1428	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1429	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1430	self selectedProcesses value:newSelection
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1431	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1432	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1433
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1434	decreaseupdateContentsDelayTime
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 updateContentsDelayTime value:(self scaledUpdateContentsDelayTime - 0.1).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1437	self evaluateEnableInDecreaseButtons.
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	decreaseupdateListDelayTime
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 updateListDelayTime value:(self scaledUpdateListDelayTime - 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
4463 99d11fbee2af initial checkin penk parents: diff changeset	1446	doubleClickedAt:anItemIndex
99d11fbee2af initial checkin penk parents: diff changeset	1447	"open a debugger on the selected process"
99d11fbee2af initial checkin penk parents: diff changeset	1448
99d11fbee2af initial checkin penk parents: diff changeset	1449	self debugProcess
99d11fbee2af initial checkin penk parents: diff changeset	1450	!
99d11fbee2af initial checkin penk parents: diff changeset	1451
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1452	evaluateEnableInDecreaseButtons
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1453
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1454	\| contDelaySmallerListDelay \|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1455
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1456	contDelaySmallerListDelay := (self scaledUpdateContentsDelayTime < (self scaledUpdateListDelayTime)).
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1457	self enableDecreaseContentsDelayTime value:((self scaledUpdateContentsDelayTime <= 0.5) not).
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1458	self enableDecreaseListDelayTime value:contDelaySmallerListDelay.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1459	self enableIncreaseContentsDelayTime value:contDelaySmallerListDelay.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1460	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1461
4463 99d11fbee2af initial checkin penk parents: diff changeset	1462	getProcessList
99d11fbee2af initial checkin penk parents: diff changeset	1463	"select processes to display.
99d11fbee2af initial checkin penk parents: diff changeset	1464	Subclasses may redefine this"
99d11fbee2af initial checkin penk parents: diff changeset	1465
99d11fbee2af initial checkin penk parents: diff changeset	1466	\|coll\|
99d11fbee2af initial checkin penk parents: diff changeset	1467
5690 024838c5f342 Fix bug 44: Process allSubInstances was called all the time causing Stefan Vogel <sv@exept.de> parents: 5538 diff changeset	1468	self showDead value ifTrue:[
4463 99d11fbee2af initial checkin penk parents: diff changeset	1469	coll := Process allSubInstances asOrderedCollection.
99d11fbee2af initial checkin penk parents: diff changeset	1470	] ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	1471	coll := ProcessorScheduler knownProcesses asOrderedCollection.
99d11fbee2af initial checkin penk parents: diff changeset	1472	].
99d11fbee2af initial checkin penk parents: diff changeset	1473	^ coll
99d11fbee2af initial checkin penk parents: diff changeset	1474	!
99d11fbee2af initial checkin penk parents: diff changeset	1475
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1476	increaseupdateContentsDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1477
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1478	self updateContentsDelayTime value:(self scaledUpdateContentsDelayTime + 0.1).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1479	self evaluateEnableInDecreaseButtons.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1480	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1481
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1482	increaseupdateListDelayTime
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 updateListDelayTime value:(self scaledUpdateListDelayTime + 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
4463 99d11fbee2af initial checkin penk parents: diff changeset	1488	selectedProcessesDo:aBlock
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1489	\| sel proc\|
4463 99d11fbee2af initial checkin penk parents: diff changeset	1490
99d11fbee2af initial checkin penk parents: diff changeset	1491	sel := self selectedProcesses value.
99d11fbee2af initial checkin penk parents: diff changeset	1492	sel isNil ifTrue:[^ self].
99d11fbee2af initial checkin penk parents: diff changeset	1493
99d11fbee2af initial checkin penk parents: diff changeset	1494	sel do:[:processItem \|
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1495	proc := processItem processInstance.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1496	proc notNil ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1497	aBlock value:proc.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1498	].
4463 99d11fbee2af initial checkin penk parents: diff changeset	1499	]
99d11fbee2af initial checkin penk parents: diff changeset	1500	!
99d11fbee2af initial checkin penk parents: diff changeset	1501
99d11fbee2af initial checkin penk parents: diff changeset	1502	selectedProcessesSend:aSelector
99d11fbee2af initial checkin penk parents: diff changeset	1503	"send a message to all selected processes"
99d11fbee2af initial checkin penk parents: diff changeset	1504
99d11fbee2af initial checkin penk parents: diff changeset	1505	self selectedProcessesDo:[:p \|
99d11fbee2af initial checkin penk parents: diff changeset	1506	p perform:aSelector
99d11fbee2af initial checkin penk parents: diff changeset	1507	].
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1508	self updateList.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1509	! !
99d11fbee2af initial checkin penk parents: diff changeset	1510
99d11fbee2af initial checkin penk parents: diff changeset	1511	!ProcessMonitorV2 methodsFor:'aspects'!
99d11fbee2af initial checkin penk parents: diff changeset	1512
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1513	allowModifications
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1514
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1515	allowModifications isNil ifTrue:[
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1516	allowModifications := true asValue
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1517	].
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1518	^ allowModifications
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1519	!
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1520
4463 99d11fbee2af initial checkin penk parents: diff changeset	1521	currentSortOrder
99d11fbee2af initial checkin penk parents: diff changeset	1522	"return/create the 'currentSortOrder' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1523
99d11fbee2af initial checkin penk parents: diff changeset	1524	currentSortOrder isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1525	currentSortOrder := Dictionary new asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1526	].
99d11fbee2af initial checkin penk parents: diff changeset	1527	^ currentSortOrder
99d11fbee2af initial checkin penk parents: diff changeset	1528	!
99d11fbee2af initial checkin penk parents: diff changeset	1529
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1530	enableDecreaseContentsDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1531
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1532	enableDecreaseContentsDelayTime isNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1533	enableDecreaseContentsDelayTime := true asValue.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1534	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1535	^ enableDecreaseContentsDelayTime.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1536	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1537
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1538	enableDecreaseListDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1539
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1540	enableDecreaseListDelayTime isNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1541	enableDecreaseListDelayTime := true asValue.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1542	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1543	^ enableDecreaseListDelayTime.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1544	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1545
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1546	enableIncreaseContentsDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1547
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1548	enableIncreaseContentsDelayTime isNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1549	enableIncreaseContentsDelayTime := true asValue.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1550	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1551	^ enableIncreaseContentsDelayTime.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1552	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1553
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1554	enableIncreaseListDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1555
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1556	enableIncreaseListDelayTime isNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1557	enableIncreaseListDelayTime := true asValue.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1558	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1559	^ enableIncreaseListDelayTime.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1560	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1561
4463 99d11fbee2af initial checkin penk parents: diff changeset	1562	hasSelection
99d11fbee2af initial checkin penk parents: diff changeset	1563
99d11fbee2af initial checkin penk parents: diff changeset	1564	hasSelection isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1565	hasSelection := ValueHolder new.
99d11fbee2af initial checkin penk parents: diff changeset	1566	].
99d11fbee2af initial checkin penk parents: diff changeset	1567	^ hasSelection
99d11fbee2af initial checkin penk parents: diff changeset	1568	!
99d11fbee2af initial checkin penk parents: diff changeset	1569
99d11fbee2af initial checkin penk parents: diff changeset	1570	processList
99d11fbee2af initial checkin penk parents: diff changeset	1571
99d11fbee2af initial checkin penk parents: diff changeset	1572	processList isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1573	processList := List new.
99d11fbee2af initial checkin penk parents: diff changeset	1574	].
99d11fbee2af initial checkin penk parents: diff changeset	1575	^ processList.
99d11fbee2af initial checkin penk parents: diff changeset	1576	!
99d11fbee2af initial checkin penk parents: diff changeset	1577
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1578	scaledUpdateContentsDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1579
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1580	^ self updateContentsDelayTime value asFloat asFixedPoint:1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1581	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1582
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1583	scaledUpdateListDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1584
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1585	^ self updateListDelayTime value asFloat asFixedPoint:1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1586	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1587
4463 99d11fbee2af initial checkin penk parents: diff changeset	1588	selectedProcesses
99d11fbee2af initial checkin penk parents: diff changeset	1589
99d11fbee2af initial checkin penk parents: diff changeset	1590	selectedProcesses isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1591	selectedProcesses := ValueHolder new.
99d11fbee2af initial checkin penk parents: diff changeset	1592	selectedProcesses addDependent:self.
99d11fbee2af initial checkin penk parents: diff changeset	1593	].
99d11fbee2af initial checkin penk parents: diff changeset	1594	^ selectedProcesses.
99d11fbee2af initial checkin penk parents: diff changeset	1595	!
99d11fbee2af initial checkin penk parents: diff changeset	1596
99d11fbee2af initial checkin penk parents: diff changeset	1597	selectionRestartable
99d11fbee2af initial checkin penk parents: diff changeset	1598
99d11fbee2af initial checkin penk parents: diff changeset	1599	selectionRestartable isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1600	selectionRestartable := ValueHolder new.
99d11fbee2af initial checkin penk parents: diff changeset	1601	].
99d11fbee2af initial checkin penk parents: diff changeset	1602	^ selectionRestartable
99d11fbee2af initial checkin penk parents: diff changeset	1603	!
99d11fbee2af initial checkin penk parents: diff changeset	1604
99d11fbee2af initial checkin penk parents: diff changeset	1605	showDead
99d11fbee2af initial checkin penk parents: diff changeset	1606	"return/create the 'showDead' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1607
99d11fbee2af initial checkin penk parents: diff changeset	1608	showDead isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1609	showDead := false asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1610	showDead addDependent:self.
99d11fbee2af initial checkin penk parents: diff changeset	1611	].
99d11fbee2af initial checkin penk parents: diff changeset	1612	^ showDead
99d11fbee2af initial checkin penk parents: diff changeset	1613	!
99d11fbee2af initial checkin penk parents: diff changeset	1614
99d11fbee2af initial checkin penk parents: diff changeset	1615	sortBlock
99d11fbee2af initial checkin penk parents: diff changeset	1616
99d11fbee2af initial checkin penk parents: diff changeset	1617	sortBlock isNil ifTrue:[
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1618	\| curSortOrder defaultSortInstance\|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1619	defaultSortInstance := #idVal.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1620	sortBlock := [:a :b \|
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1621	((a perform:defaultSortInstance) < (b perform:defaultSortInstance))
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1622	].
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1623	curSortOrder := self currentSortOrder value.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1624	curSortOrder at:#column put:defaultSortInstance.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1625	curSortOrder at:#reverse put:true.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1626	].
99d11fbee2af initial checkin penk parents: diff changeset	1627	^ sortBlock
99d11fbee2af initial checkin penk parents: diff changeset	1628	!
99d11fbee2af initial checkin penk parents: diff changeset	1629
99d11fbee2af initial checkin penk parents: diff changeset	1630	tableColumns
99d11fbee2af initial checkin penk parents: diff changeset	1631
99d11fbee2af initial checkin penk parents: diff changeset	1632	tableColumns isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1633	tableColumns := self class tableColumns asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1634	].
99d11fbee2af initial checkin penk parents: diff changeset	1635	^ tableColumns.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1636	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1637
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1638	updateContentsDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1639
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1640	updateContentsDelayTime isNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1641	updateContentsDelayTime := updateDelay asValue.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1642	updateContentsDelayTime onChangeSend:#evaluateEnableInDecreaseButtons to:self.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1643	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1644	^ updateContentsDelayTime.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1645	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1646
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1647	updateListDelayTime
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1648
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1649	updateListDelayTime isNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1650	updateListDelayTime := listUpdateDelay asValue.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1651	updateListDelayTime onChangeSend:#evaluateEnableInDecreaseButtons to:self.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1652	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1653	^ updateListDelayTime.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1654	! !
99d11fbee2af initial checkin penk parents: diff changeset	1655
99d11fbee2af initial checkin penk parents: diff changeset	1656	!ProcessMonitorV2 methodsFor:'aspects column'!
99d11fbee2af initial checkin penk parents: diff changeset	1657
99d11fbee2af initial checkin penk parents: diff changeset	1658	showCurrentSegment
99d11fbee2af initial checkin penk parents: diff changeset	1659	"return/create the 'showCurrentSegment' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1660
99d11fbee2af initial checkin penk parents: diff changeset	1661	showCurrentSegment isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1662	showCurrentSegment := showDetail asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1663	showCurrentSegment onChangeSend:#viewedColumnsChanged to:self.
99d11fbee2af initial checkin penk parents: diff changeset	1664	].
99d11fbee2af initial checkin penk parents: diff changeset	1665	^ showCurrentSegment
99d11fbee2af initial checkin penk parents: diff changeset	1666	!
99d11fbee2af initial checkin penk parents: diff changeset	1667
99d11fbee2af initial checkin penk parents: diff changeset	1668	showGroup
99d11fbee2af initial checkin penk parents: diff changeset	1669	"return/create the 'showGroup' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1670
99d11fbee2af initial checkin penk parents: diff changeset	1671	showGroup isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1672	showGroup := true asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1673	showGroup onChangeSend:#viewedColumnsChanged to:self.
99d11fbee2af initial checkin penk parents: diff changeset	1674	].
99d11fbee2af initial checkin penk parents: diff changeset	1675	^ showGroup
99d11fbee2af initial checkin penk parents: diff changeset	1676	!
99d11fbee2af initial checkin penk parents: diff changeset	1677
99d11fbee2af initial checkin penk parents: diff changeset	1678	showPrio
99d11fbee2af initial checkin penk parents: diff changeset	1679	"return/create the 'showPrio' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1680
99d11fbee2af initial checkin penk parents: diff changeset	1681	showPrio isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1682	showPrio := true asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1683	showPrio onChangeSend:#viewedColumnsChanged to:self.
99d11fbee2af initial checkin penk parents: diff changeset	1684	].
99d11fbee2af initial checkin penk parents: diff changeset	1685	^ showPrio
99d11fbee2af initial checkin penk parents: diff changeset	1686	!
99d11fbee2af initial checkin penk parents: diff changeset	1687
99d11fbee2af initial checkin penk parents: diff changeset	1688	showProcessId
99d11fbee2af initial checkin penk parents: diff changeset	1689
99d11fbee2af initial checkin penk parents: diff changeset	1690	showProcessId isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1691	showProcessId := true asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1692	showProcessId onChangeSend:#viewedColumnsChanged to:self
99d11fbee2af initial checkin penk parents: diff changeset	1693	].
99d11fbee2af initial checkin penk parents: diff changeset	1694	^ showProcessId
99d11fbee2af initial checkin penk parents: diff changeset	1695	!
99d11fbee2af initial checkin penk parents: diff changeset	1696
99d11fbee2af initial checkin penk parents: diff changeset	1697	showState
99d11fbee2af initial checkin penk parents: diff changeset	1698	"return/create the 'showState' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1699
99d11fbee2af initial checkin penk parents: diff changeset	1700	showState isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1701	showState := true asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1702	showState onChangeSend:#viewedColumnsChanged to:self
99d11fbee2af initial checkin penk parents: diff changeset	1703	].
99d11fbee2af initial checkin penk parents: diff changeset	1704	^ showState
99d11fbee2af initial checkin penk parents: diff changeset	1705	!
99d11fbee2af initial checkin penk parents: diff changeset	1706
99d11fbee2af initial checkin penk parents: diff changeset	1707	showSwitch
99d11fbee2af initial checkin penk parents: diff changeset	1708	"return/create the 'showSwitch' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1709
99d11fbee2af initial checkin penk parents: diff changeset	1710	showSwitch isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1711	showSwitch := showDetail asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1712	showSwitch onChangeSend:#viewedColumnsChanged to:self
99d11fbee2af initial checkin penk parents: diff changeset	1713	].
99d11fbee2af initial checkin penk parents: diff changeset	1714	^ showSwitch
99d11fbee2af initial checkin penk parents: diff changeset	1715	!
99d11fbee2af initial checkin penk parents: diff changeset	1716
99d11fbee2af initial checkin penk parents: diff changeset	1717	showTotalStack
99d11fbee2af initial checkin penk parents: diff changeset	1718	"return/create the 'showTotalStack' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1719
99d11fbee2af initial checkin penk parents: diff changeset	1720	showTotalStack isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1721	showTotalStack := showDetail asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1722	showTotalStack onChangeSend:#viewedColumnsChanged to:self
99d11fbee2af initial checkin penk parents: diff changeset	1723	].
99d11fbee2af initial checkin penk parents: diff changeset	1724	^ showTotalStack
99d11fbee2af initial checkin penk parents: diff changeset	1725	!
99d11fbee2af initial checkin penk parents: diff changeset	1726
99d11fbee2af initial checkin penk parents: diff changeset	1727	showUsedStack
99d11fbee2af initial checkin penk parents: diff changeset	1728	"return/create the 'showUsedStack' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1729
99d11fbee2af initial checkin penk parents: diff changeset	1730	showUsedStack isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1731	showUsedStack := showDetail asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1732	showUsedStack onChangeSend:#viewedColumnsChanged to:self
99d11fbee2af initial checkin penk parents: diff changeset	1733	].
99d11fbee2af initial checkin penk parents: diff changeset	1734	^ showUsedStack
99d11fbee2af initial checkin penk parents: diff changeset	1735	!
99d11fbee2af initial checkin penk parents: diff changeset	1736
99d11fbee2af initial checkin penk parents: diff changeset	1737	showWhere
99d11fbee2af initial checkin penk parents: diff changeset	1738	"return/create the 'showWhere' value holder (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	1739
99d11fbee2af initial checkin penk parents: diff changeset	1740	showWhere isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1741	showWhere := true asValue.
99d11fbee2af initial checkin penk parents: diff changeset	1742	showWhere onChangeSend:#viewedColumnsChanged to:self
99d11fbee2af initial checkin penk parents: diff changeset	1743	].
99d11fbee2af initial checkin penk parents: diff changeset	1744	^ showWhere
99d11fbee2af initial checkin penk parents: diff changeset	1745	! !
99d11fbee2af initial checkin penk parents: diff changeset	1746
99d11fbee2af initial checkin penk parents: diff changeset	1747	!ProcessMonitorV2 methodsFor:'change & update'!
99d11fbee2af initial checkin penk parents: diff changeset	1748
99d11fbee2af initial checkin penk parents: diff changeset	1749	selectionChanged
99d11fbee2af initial checkin penk parents: diff changeset	1750
99d11fbee2af initial checkin penk parents: diff changeset	1751	\|allRestartable\|
99d11fbee2af initial checkin penk parents: diff changeset	1752
99d11fbee2af initial checkin penk parents: diff changeset	1753	self hasSelection value:(self selectedProcesses value notEmptyOrNil).
99d11fbee2af initial checkin penk parents: diff changeset	1754	self hasSelection value ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	1755	self selectionRestartable value:false.
99d11fbee2af initial checkin penk parents: diff changeset	1756	^ self
99d11fbee2af initial checkin penk parents: diff changeset	1757	].
99d11fbee2af initial checkin penk parents: diff changeset	1758	allRestartable := true.
99d11fbee2af initial checkin penk parents: diff changeset	1759	self selectedProcessesDo:[:p \|
99d11fbee2af initial checkin penk parents: diff changeset	1760	p isRestartable ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	1761	allRestartable := false
99d11fbee2af initial checkin penk parents: diff changeset	1762	].
99d11fbee2af initial checkin penk parents: diff changeset	1763	].
99d11fbee2af initial checkin penk parents: diff changeset	1764	self selectionRestartable value:allRestartable.
99d11fbee2af initial checkin penk parents: diff changeset	1765	^ self.
99d11fbee2af initial checkin penk parents: diff changeset	1766	!
99d11fbee2af initial checkin penk parents: diff changeset	1767
99d11fbee2af initial checkin penk parents: diff changeset	1768	update:something with:aParameter from:changedObject
99d11fbee2af initial checkin penk parents: diff changeset	1769	"Invoked when an object that I depend upon sends a change notification."
99d11fbee2af initial checkin penk parents: diff changeset	1770
99d11fbee2af initial checkin penk parents: diff changeset	1771	"stub code automatically generated - please change as required"
99d11fbee2af initial checkin penk parents: diff changeset	1772
4565 7162b6a896e6 * empty log message * penk parents: 4561 diff changeset	1773	changedObject == builder window ifTrue:[
7162b6a896e6 * empty log message * penk parents: 4561 diff changeset	1774	something == #visibility ifTrue:[
7162b6a896e6 * empty log message * penk parents: 4561 diff changeset	1775	self updateList.
7162b6a896e6 * empty log message * penk parents: 4561 diff changeset	1776	].
7162b6a896e6 * empty log message * penk parents: 4561 diff changeset	1777	].
4463 99d11fbee2af initial checkin penk parents: diff changeset	1778	changedObject == self selectedProcesses ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1779	self selectionChanged.
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	changedObject == self showDead ifTrue:[
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1783	self updateList.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1784	^ self
99d11fbee2af initial checkin penk parents: diff changeset	1785	].
99d11fbee2af initial checkin penk parents: diff changeset	1786	super update:something with:aParameter from:changedObject
99d11fbee2af initial checkin penk parents: diff changeset	1787	!
99d11fbee2af initial checkin penk parents: diff changeset	1788
99d11fbee2af initial checkin penk parents: diff changeset	1789	viewedColumnsChanged
99d11fbee2af initial checkin penk parents: diff changeset	1790
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1791	\| columns buffer locCurrentSortOrder currentSortOrderColumn currentSortOrderReverse oldSelection sel\|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1792
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1793	sel := self selectedProcesses value.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1794	sel notNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1795	oldSelection := OrderedCollection new.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1796	sel do:[:proItem\|
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1797	proItem processInstance notNil ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1798	oldSelection add:(proItem processInstance)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1799	].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1800	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1801	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1802	"/ Transcript showCR:'oldSelection on catch in viewedColumnsChanged', (oldSelection isNil ifTrue:['nil'] ifFalse:[oldSelection first printString]).
4463 99d11fbee2af initial checkin penk parents: diff changeset	1803	columns := OrderedCollection new.
99d11fbee2af initial checkin penk parents: diff changeset	1804	self class tableColumns do:[:el\|
99d11fbee2af initial checkin penk parents: diff changeset	1805	columns add:(DataSetColumnSpec new fromLiteralArrayEncoding:el).
99d11fbee2af initial checkin penk parents: diff changeset	1806	].
99d11fbee2af initial checkin penk parents: diff changeset	1807	buffer := columns copy.
99d11fbee2af initial checkin penk parents: diff changeset	1808	locCurrentSortOrder := self currentSortOrder value.
99d11fbee2af initial checkin penk parents: diff changeset	1809	currentSortOrderColumn := locCurrentSortOrder at:#column ifAbsent:nil.
99d11fbee2af initial checkin penk parents: diff changeset	1810	currentSortOrderReverse := locCurrentSortOrder at:#reverse ifAbsent:nil.
99d11fbee2af initial checkin penk parents: diff changeset	1811	buffer do:[:col \|
99d11fbee2af initial checkin penk parents: diff changeset	1812	\| id \|
99d11fbee2af initial checkin penk parents: diff changeset	1813	id := col id.
99d11fbee2af initial checkin penk parents: diff changeset	1814	id notNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1815	(col labelActionArgument notNil and:[col labelActionArgument asSymbol == currentSortOrderColumn]) ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1816	\| label icon\|
99d11fbee2af initial checkin penk parents: diff changeset	1817	label := col label.
99d11fbee2af initial checkin penk parents: diff changeset	1818	icon := currentSortOrderReverse ifTrue:[self class detailsMenuIconDown] ifFalse:[self class detailsMenuIconUp].
99d11fbee2af initial checkin penk parents: diff changeset	1819	col label:(LabelAndIcon label:label icon:icon).
99d11fbee2af initial checkin penk parents: diff changeset	1820	].
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1821	#(
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1822	( #id #showProcessId)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1823	( #group #showGroup)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1824	( #prio #showPrio)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1825	( #currentSegment #showCurrentSegment)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1826	( #state #showState)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1827	( #switch #showSwitch)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1828	( #totalStack #showTotalStack)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1829	( #usedStack #showUsedStack)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1830	( #where #showWhere)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1831	) pairsDo:[:colName :holderAccessorSelector \|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1832	(id == colName and:[(self perform:holderAccessorSelector) value not]) ifTrue:[
4463 99d11fbee2af initial checkin penk parents: diff changeset	1833	columns remove:col.
99d11fbee2af initial checkin penk parents: diff changeset	1834	]
99d11fbee2af initial checkin penk parents: diff changeset	1835	]
99d11fbee2af initial checkin penk parents: diff changeset	1836	]
99d11fbee2af initial checkin penk parents: diff changeset	1837	].
99d11fbee2af initial checkin penk parents: diff changeset	1838	updateSema critical:[
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1839	self tableColumns value:columns.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	1840	"/ self updateTable:nil.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1841	"/ 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	1842	self changeSelectionToProcesses:oldSelection.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1843	].
99d11fbee2af initial checkin penk parents: diff changeset	1844	! !
99d11fbee2af initial checkin penk parents: diff changeset	1845
99d11fbee2af initial checkin penk parents: diff changeset	1846	!ProcessMonitorV2 methodsFor:'event handling'!
99d11fbee2af initial checkin penk parents: diff changeset	1847
99d11fbee2af initial checkin penk parents: diff changeset	1848	processEvent:anEvent
99d11fbee2af initial checkin penk parents: diff changeset	1849	"filter keyboard events.
99d11fbee2af initial checkin penk parents: diff changeset	1850	Return true, if I have eaten the event"
99d11fbee2af initial checkin penk parents: diff changeset	1851
99d11fbee2af initial checkin penk parents: diff changeset	1852	\|focusView key rawKey\|
99d11fbee2af initial checkin penk parents: diff changeset	1853
99d11fbee2af initial checkin penk parents: diff changeset	1854	anEvent isKeyPressEvent ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1855	focusView := anEvent targetView.
99d11fbee2af initial checkin penk parents: diff changeset	1856	key := anEvent key.
99d11fbee2af initial checkin penk parents: diff changeset	1857	rawKey := anEvent rawKey.
99d11fbee2af initial checkin penk parents: diff changeset	1858
99d11fbee2af initial checkin penk parents: diff changeset	1859	(focusView == processList) ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1860	key == #InspectIt ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1861	self inspectSelection.
99d11fbee2af initial checkin penk parents: diff changeset	1862	^ true.
99d11fbee2af initial checkin penk parents: diff changeset	1863	].
99d11fbee2af initial checkin penk parents: diff changeset	1864	]
99d11fbee2af initial checkin penk parents: diff changeset	1865	].
99d11fbee2af initial checkin penk parents: diff changeset	1866	^ false
99d11fbee2af initial checkin penk parents: diff changeset	1867	! !
99d11fbee2af initial checkin penk parents: diff changeset	1868
99d11fbee2af initial checkin penk parents: diff changeset	1869	!ProcessMonitorV2 methodsFor:'initialization & release'!
99d11fbee2af initial checkin penk parents: diff changeset	1870
99d11fbee2af initial checkin penk parents: diff changeset	1871	closeDownViews
99d11fbee2af initial checkin penk parents: diff changeset	1872	"This is a hook method generated by the Browser.
99d11fbee2af initial checkin penk parents: diff changeset	1873	It will be invoked when your app/dialog-window is really closed.
99d11fbee2af initial checkin penk parents: diff changeset	1874	See also #closeDownViews, which is invoked before and may suppress the close
99d11fbee2af initial checkin penk parents: diff changeset	1875	or ask the user for confirmation."
99d11fbee2af initial checkin penk parents: diff changeset	1876
99d11fbee2af initial checkin penk parents: diff changeset	1877	"/ change the code below as required ...
99d11fbee2af initial checkin penk parents: diff changeset	1878	"/ This should cleanup any leftover resources
99d11fbee2af initial checkin penk parents: diff changeset	1879	"/ (for example, temporary files)
99d11fbee2af initial checkin penk parents: diff changeset	1880	"/ super closeRequest will initiate the closeDown
99d11fbee2af initial checkin penk parents: diff changeset	1881
99d11fbee2af initial checkin penk parents: diff changeset	1882	"/ add your code here
99d11fbee2af initial checkin penk parents: diff changeset	1883
99d11fbee2af initial checkin penk parents: diff changeset	1884	"/ do not remove the one below ...
99d11fbee2af initial checkin penk parents: diff changeset	1885	^ super closeDownViews
99d11fbee2af initial checkin penk parents: diff changeset	1886	!
99d11fbee2af initial checkin penk parents: diff changeset	1887
99d11fbee2af initial checkin penk parents: diff changeset	1888	initialize
99d11fbee2af initial checkin penk parents: diff changeset	1889
99d11fbee2af initial checkin penk parents: diff changeset	1890	super initialize.
99d11fbee2af initial checkin penk parents: diff changeset	1891
99d11fbee2af initial checkin penk parents: diff changeset	1892	showDetail := (Smalltalk at:#SystemDebugging ifAbsent:false).
99d11fbee2af initial checkin penk parents: diff changeset	1893	updateSema := Semaphore forMutualExclusion.
99d11fbee2af initial checkin penk parents: diff changeset	1894	updateDelay := 0.5.
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1895	listUpdateDelay := 5.0.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1896
99d11fbee2af initial checkin penk parents: diff changeset	1897	"/ event mode is no longer used;
99d11fbee2af initial checkin penk parents: diff changeset	1898	"/ this event support may vanish
99d11fbee2af initial checkin penk parents: diff changeset	1899	Processor isPureEventDriven ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	1900	updateBlock := [self updateStatus:nil].
99d11fbee2af initial checkin penk parents: diff changeset	1901	listUpdateBlock := [self updateList].
99d11fbee2af initial checkin penk parents: diff changeset	1902	].
99d11fbee2af initial checkin penk parents: diff changeset	1903	!
99d11fbee2af initial checkin penk parents: diff changeset	1904
99d11fbee2af initial checkin penk parents: diff changeset	1905	postBuildProcessTable:aWidget
99d11fbee2af initial checkin penk parents: diff changeset	1906
99d11fbee2af initial checkin penk parents: diff changeset	1907	processTable := aWidget scrolledView.
99d11fbee2af initial checkin penk parents: diff changeset	1908	processTable wantsFocusWithPointerEnter.
99d11fbee2af initial checkin penk parents: diff changeset	1909	!
99d11fbee2af initial checkin penk parents: diff changeset	1910
99d11fbee2af initial checkin penk parents: diff changeset	1911	postBuildWith:aBuilder
99d11fbee2af initial checkin penk parents: diff changeset	1912
99d11fbee2af initial checkin penk parents: diff changeset	1913	^ super postBuildWith:aBuilder
99d11fbee2af initial checkin penk parents: diff changeset	1914	!
99d11fbee2af initial checkin penk parents: diff changeset	1915
99d11fbee2af initial checkin penk parents: diff changeset	1916	postOpenWith:aBuilder
99d11fbee2af initial checkin penk parents: diff changeset	1917
99d11fbee2af initial checkin penk parents: diff changeset	1918	super postOpenWith:aBuilder.
4565 7162b6a896e6 * empty log message * penk parents: 4561 diff changeset	1919	aBuilder window addDependent:self.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1920	self viewedColumnsChanged.
99d11fbee2af initial checkin penk parents: diff changeset	1921	self updateList.
99d11fbee2af initial checkin penk parents: diff changeset	1922	self startUpdateProcess.
99d11fbee2af initial checkin penk parents: diff changeset	1923	self selectionChanged.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	1924	self sortProcessListBy:#idVal.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1925	self windowGroup addPreEventHook:self.
4570 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
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1928	release
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1929	updateBlock notNil ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1930	Processor removeTimedBlock:updateBlock.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1931	updateBlock := nil.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1932	].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1933	listUpdateBlock notNil ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1934	Processor removeTimedBlock:listUpdateBlock.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1935	listUpdateBlock := nil.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1936	].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1937	updateProcess notNil ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1938	updateProcess terminate.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1939	updateProcess := nil.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1940	].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	1941	super release
6234 f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	1942	!
f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	1943
f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	1944	restarted
f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	1945	"restarted from snapshot"
f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	1946
f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	1947	super restarted.
f4c3118ce840 Restart update process after snapshot restart Stefan Vogel <sv@exept.de> parents: 6042 diff changeset	1948	self startUpdateProcess.
4463 99d11fbee2af initial checkin penk parents: diff changeset	1949	! !
99d11fbee2af initial checkin penk parents: diff changeset	1950
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1951	!ProcessMonitorV2 methodsFor:'menu accessing'!
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	tableMenu
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1954
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1955	^[
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1956	self tableMenuAccess
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1957	]
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1958	!
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1959
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1960	tableMenuAccess
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1961	self allowModifications value ifTrue:[
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1962	tableMenu isNil ifTrue:[
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1963	tableMenu := Menu new fromLiteralArrayEncoding:(self class tableMenu).
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1964	tableMenu receiver:self.
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	1965	tableMenu findGuiResourcesIn:self.
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1966	].
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	1967	^ tableMenu
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1968	].
6239 b006c077d0a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6234 diff changeset	1969	^ nil
4649 37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1970	! !
37f55d741468 allow task modifications in Process Monitor can be disabled now penk parents: 4576 diff changeset	1971
4463 99d11fbee2af initial checkin penk parents: diff changeset	1972	!ProcessMonitorV2 methodsFor:'menu actions'!
99d11fbee2af initial checkin penk parents: diff changeset	1973
99d11fbee2af initial checkin penk parents: diff changeset	1974	abortProcess
99d11fbee2af initial checkin penk parents: diff changeset	1975	"abort (raise AbortSignal in) the selected process"
99d11fbee2af initial checkin penk parents: diff changeset	1976
99d11fbee2af initial checkin penk parents: diff changeset	1977	self selectedProcessesDo:[:p \|
99d11fbee2af initial checkin penk parents: diff changeset	1978	p abort
99d11fbee2af initial checkin penk parents: diff changeset	1979	]
99d11fbee2af initial checkin penk parents: diff changeset	1980	!
99d11fbee2af initial checkin penk parents: diff changeset	1981
99d11fbee2af initial checkin penk parents: diff changeset	1982	debugProcess
99d11fbee2af initial checkin penk parents: diff changeset	1983	"open a debugger on the selected process"
99d11fbee2af initial checkin penk parents: diff changeset	1984
99d11fbee2af initial checkin penk parents: diff changeset	1985	self selectedProcessesDo:[:p \|
99d11fbee2af initial checkin penk parents: diff changeset	1986	Debugger openOn:p
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	debugWhenResumed
99d11fbee2af initial checkin penk parents: diff changeset	1991	self selectedProcessesDo:[:p \|
99d11fbee2af initial checkin penk parents: diff changeset	1992	p addInterruptAction:[Debugger enter]
99d11fbee2af initial checkin penk parents: diff changeset	1993	]
99d11fbee2af initial checkin penk parents: diff changeset	1994	!
99d11fbee2af initial checkin penk parents: diff changeset	1995
99d11fbee2af initial checkin penk parents: diff changeset	1996	hardTerminateProcess
99d11fbee2af initial checkin penk parents: diff changeset	1997	"hard terminate the selected process"
99d11fbee2af initial checkin penk parents: diff changeset	1998
99d11fbee2af initial checkin penk parents: diff changeset	1999	self selectedProcessesSend:#terminateNoSignal
99d11fbee2af initial checkin penk parents: diff changeset	2000	!
99d11fbee2af initial checkin penk parents: diff changeset	2001
99d11fbee2af initial checkin penk parents: diff changeset	2002	inspectSelection
99d11fbee2af initial checkin penk parents: diff changeset	2003	"open an inspector on the selected process"
99d11fbee2af initial checkin penk parents: diff changeset	2004
99d11fbee2af initial checkin penk parents: diff changeset	2005	self selectedProcessesSend:#inspect
99d11fbee2af initial checkin penk parents: diff changeset	2006	!
99d11fbee2af initial checkin penk parents: diff changeset	2007
99d11fbee2af initial checkin penk parents: diff changeset	2008	lowerPrio
99d11fbee2af initial checkin penk parents: diff changeset	2009	"lower the selected processes priority"
99d11fbee2af initial checkin penk parents: diff changeset	2010
99d11fbee2af initial checkin penk parents: diff changeset	2011	self selectedProcessesDo:[:p \|
99d11fbee2af initial checkin penk parents: diff changeset	2012	p priority:(p priority - 1)
99d11fbee2af initial checkin penk parents: diff changeset	2013	]
99d11fbee2af initial checkin penk parents: diff changeset	2014	!
99d11fbee2af initial checkin penk parents: diff changeset	2015
99d11fbee2af initial checkin penk parents: diff changeset	2016	openAboutThisApplication
99d11fbee2af initial checkin penk parents: diff changeset	2017	"This method was generated by the Browser.
99d11fbee2af initial checkin penk parents: diff changeset	2018	It will be invoked when the menu-item 'help-about' is selected."
99d11fbee2af initial checkin penk parents: diff changeset	2019
99d11fbee2af initial checkin penk parents: diff changeset	2020	"/ could open a customized aboutBox here ...
99d11fbee2af initial checkin penk parents: diff changeset	2021	super openAboutThisApplication
99d11fbee2af initial checkin penk parents: diff changeset	2022	!
99d11fbee2af initial checkin penk parents: diff changeset	2023
99d11fbee2af initial checkin penk parents: diff changeset	2024	openDocumentation
99d11fbee2af initial checkin penk parents: diff changeset	2025	"This method was generated by the Browser.
99d11fbee2af initial checkin penk parents: diff changeset	2026	It will be invoked when the menu-item 'help-documentation' is selected."
99d11fbee2af initial checkin penk parents: diff changeset	2027
99d11fbee2af initial checkin penk parents: diff changeset	2028	"/ change below as required ...
99d11fbee2af initial checkin penk parents: diff changeset	2029
99d11fbee2af initial checkin penk parents: diff changeset	2030	"/ 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	2031	HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#PROCESSMONITOR'.
4463 99d11fbee2af initial checkin penk parents: diff changeset	2032
99d11fbee2af initial checkin penk parents: diff changeset	2033	"/ add application-specific help files under the 'doc/online/<language>/help/appName'
99d11fbee2af initial checkin penk parents: diff changeset	2034	"/ directory, and open a viewer with:
99d11fbee2af initial checkin penk parents: diff changeset	2035	"/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'.
99d11fbee2af initial checkin penk parents: diff changeset	2036	!
99d11fbee2af initial checkin penk parents: diff changeset	2037
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2038	printProcessList
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2039
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2040	\|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	2041
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2042	Printer == PostscriptPrinterStream ifFalse:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2043	^ self warn:'kein Postscript Drucker'.
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2044	].
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2045
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2046	view := builder window.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2047	view raise.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2048	view device sync.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2049	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	2050
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2051	device := view graphicsDevice.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2052	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	2053
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2054	corner := origin + (view extent).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2055	extent := Screen current rootView extent.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2056
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2057	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	2058	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	2059
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2060	self withExecuteCursorDo:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2061	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	2062	[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2063	printer := Printer newNative.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2064	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	2065
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2066	gc pageEndAction:[:pageNr\|\|title font\|
5783 5ce97d85326d Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5764 diff changeset	2067	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	2068	font := gc titleFont.
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	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	2071	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	2072	y := font height + font ascent.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2073	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	2074
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2075	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	2076	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2077
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2078	x := gc width - gc rightMargin.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2079	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	2080
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2081	(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	2082	image := image rotated:90.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2083	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2084	y < image height ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2085	scaleY := (y / (image height)) asFloat
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2086	] ifFalse:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2087	scaleY := 1
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2088	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2089
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2090	x < image width ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2091	scaleX := (x / (image width)) asFloat
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2092	] ifFalse:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2093	scaleX := 1
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2094	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2095
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2096	gc scale:(scaleX@scaleY).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2097	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	2098	gc flush.
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	] ensure:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2101	gc close.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2102	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2103	].
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2104	!
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2105
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2106	printStringToPrinter:aString
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2107
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2108	\|printStream\|
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2109
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2110	aString isEmptyOrNil ifTrue:[^ self].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2111	self withWaitCursorDo:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2112	printStream := Printer new.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2113
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2114	printStream notNil ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2115	Printer writeErrorSignal handle:[:ex \|
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2116	self warn:('error while printing:\\'
5764 0bdadb9e5c5c Use #description instead of #errorString Stefan Vogel <sv@exept.de> parents: 5690 diff changeset	2117	, ex description
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2118	, '\\(printing with: ' , (Printer printCommand) , ')') withCRs
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2119	] do:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2120	aString printOn:printStream.
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	printStream close
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	].
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
4463 99d11fbee2af initial checkin penk parents: diff changeset	2127	raisePrio
99d11fbee2af initial checkin penk parents: diff changeset	2128	"raise the selected processes priority"
99d11fbee2af initial checkin penk parents: diff changeset	2129
99d11fbee2af initial checkin penk parents: diff changeset	2130	self selectedProcessesDo:[:p \|
99d11fbee2af initial checkin penk parents: diff changeset	2131	p priority:(p priority + 1)
99d11fbee2af initial checkin penk parents: diff changeset	2132	]
99d11fbee2af initial checkin penk parents: diff changeset	2133	!
99d11fbee2af initial checkin penk parents: diff changeset	2134
99d11fbee2af initial checkin penk parents: diff changeset	2135	restartProcess
99d11fbee2af initial checkin penk parents: diff changeset	2136	"abort (raise AbortSignal in) the selected process"
99d11fbee2af initial checkin penk parents: diff changeset	2137
99d11fbee2af initial checkin penk parents: diff changeset	2138	self selectedProcessesDo:[:p \|
99d11fbee2af initial checkin penk parents: diff changeset	2139	p restart.
99d11fbee2af initial checkin penk parents: diff changeset	2140	]
99d11fbee2af initial checkin penk parents: diff changeset	2141	!
99d11fbee2af initial checkin penk parents: diff changeset	2142
99d11fbee2af initial checkin penk parents: diff changeset	2143	resumeProcess
99d11fbee2af initial checkin penk parents: diff changeset	2144	"resume the selected process (i.e. let it run) "
99d11fbee2af initial checkin penk parents: diff changeset	2145
99d11fbee2af initial checkin penk parents: diff changeset	2146	self selectedProcessesSend:#resume
99d11fbee2af initial checkin penk parents: diff changeset	2147	!
99d11fbee2af initial checkin penk parents: diff changeset	2148
99d11fbee2af initial checkin penk parents: diff changeset	2149	stopProcess
99d11fbee2af initial checkin penk parents: diff changeset	2150	"stop the selected process - not even interrupts will wake it up"
99d11fbee2af initial checkin penk parents: diff changeset	2151
99d11fbee2af initial checkin penk parents: diff changeset	2152	self selectedProcessesSend:#stop
99d11fbee2af initial checkin penk parents: diff changeset	2153	!
99d11fbee2af initial checkin penk parents: diff changeset	2154
99d11fbee2af initial checkin penk parents: diff changeset	2155	suspendProcess
99d11fbee2af initial checkin penk parents: diff changeset	2156	"suspend the selected process - interrupts will let it run again"
99d11fbee2af initial checkin penk parents: diff changeset	2157
99d11fbee2af initial checkin penk parents: diff changeset	2158	self selectedProcessesSend:#suspend
99d11fbee2af initial checkin penk parents: diff changeset	2159	!
99d11fbee2af initial checkin penk parents: diff changeset	2160
99d11fbee2af initial checkin penk parents: diff changeset	2161	terminateProcess
99d11fbee2af initial checkin penk parents: diff changeset	2162	"terminate the selected process"
99d11fbee2af initial checkin penk parents: diff changeset	2163
99d11fbee2af initial checkin penk parents: diff changeset	2164	self selectedProcessesSend:#terminate.
99d11fbee2af initial checkin penk parents: diff changeset	2165	self updateList.
99d11fbee2af initial checkin penk parents: diff changeset	2166	!
99d11fbee2af initial checkin penk parents: diff changeset	2167
99d11fbee2af initial checkin penk parents: diff changeset	2168	terminateProcessGroup
99d11fbee2af initial checkin penk parents: diff changeset	2169	"terminate the selected process with all of its subprocesses"
99d11fbee2af initial checkin penk parents: diff changeset	2170
99d11fbee2af initial checkin penk parents: diff changeset	2171	self selectedProcessesSend:#terminateGroup.
99d11fbee2af initial checkin penk parents: diff changeset	2172	self updateList.
99d11fbee2af initial checkin penk parents: diff changeset	2173	! !
99d11fbee2af initial checkin penk parents: diff changeset	2174
99d11fbee2af initial checkin penk parents: diff changeset	2175	!ProcessMonitorV2 methodsFor:'queries - table string'!
99d11fbee2af initial checkin penk parents: diff changeset	2176
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2177	getActiveStringFor:aProcess running:isRunning
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2178	\|stateCharacter\|
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2179
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2180	isRunning ifTrue:[
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2181	stateCharacter := '*'.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2182	] ifFalse:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2183	[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2184	(Processor scheduledProcesses includes:aProcess) ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2185	stateCharacter := '+'
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2186	] ifFalse:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2187	stateCharacter := ''.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2188	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2189	] valueUninterruptably.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2190	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2191	^ stateCharacter.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2192	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2193
4463 99d11fbee2af initial checkin penk parents: diff changeset	2194	getCurrentSegmentStringFor:con
99d11fbee2af initial checkin penk parents: diff changeset	2195
99d11fbee2af initial checkin penk parents: diff changeset	2196	con notNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2197	\| contextCount c sender\|
99d11fbee2af initial checkin penk parents: diff changeset	2198	contextCount := 1.
99d11fbee2af initial checkin penk parents: diff changeset	2199	c := con.
99d11fbee2af initial checkin penk parents: diff changeset	2200	[(sender := c sender) notNil] whileTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2201	c := sender.
99d11fbee2af initial checkin penk parents: diff changeset	2202	contextCount := contextCount + 1.
99d11fbee2af initial checkin penk parents: diff changeset	2203	].
99d11fbee2af initial checkin penk parents: diff changeset	2204	^ (((ObjectMemory addressOf:con) printStringRadix:16),
99d11fbee2af initial checkin penk parents: diff changeset	2205	' .. ',
99d11fbee2af initial checkin penk parents: diff changeset	2206	((ObjectMemory addressOf:c) printStringRadix:16)).
99d11fbee2af initial checkin penk parents: diff changeset	2207	].
4504 e07fb8560de3 * empty log message * penk parents: 4502 diff changeset	2208	^ ''
4463 99d11fbee2af initial checkin penk parents: diff changeset	2209	!
99d11fbee2af initial checkin penk parents: diff changeset	2210
99d11fbee2af initial checkin penk parents: diff changeset	2211	getGroupStringFor:aProcess
99d11fbee2af initial checkin penk parents: diff changeset	2212
99d11fbee2af initial checkin penk parents: diff changeset	2213	\|gId\|
99d11fbee2af initial checkin penk parents: diff changeset	2214
99d11fbee2af initial checkin penk parents: diff changeset	2215	gId := aProcess processGroupId.
99d11fbee2af initial checkin penk parents: diff changeset	2216	((gId == aProcess id) or:[gId isNil]) ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2217	"/ a group leader
99d11fbee2af initial checkin penk parents: diff changeset	2218	^ '-'.
99d11fbee2af initial checkin penk parents: diff changeset	2219	] ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2220	^ gId.
99d11fbee2af initial checkin penk parents: diff changeset	2221	].
99d11fbee2af initial checkin penk parents: diff changeset	2222	!
99d11fbee2af initial checkin penk parents: diff changeset	2223
99d11fbee2af initial checkin penk parents: diff changeset	2224	getPrioStringFor:aProcess
99d11fbee2af initial checkin penk parents: diff changeset	2225
99d11fbee2af initial checkin penk parents: diff changeset	2226	\|prioRange\|
99d11fbee2af initial checkin penk parents: diff changeset	2227
99d11fbee2af initial checkin penk parents: diff changeset	2228	Processor supportDynamicPriorities ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2229	(prioRange := aProcess priorityRange) isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2230	^ aProcess priority asString.
99d11fbee2af initial checkin penk parents: diff changeset	2231	] ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2232	^ (aProcess priority asString,
99d11fbee2af initial checkin penk parents: diff changeset	2233	' [',
99d11fbee2af initial checkin penk parents: diff changeset	2234	prioRange start printString,
99d11fbee2af initial checkin penk parents: diff changeset	2235	'..',
99d11fbee2af initial checkin penk parents: diff changeset	2236	prioRange stop printString,
99d11fbee2af initial checkin penk parents: diff changeset	2237	']').
99d11fbee2af initial checkin penk parents: diff changeset	2238	].
99d11fbee2af initial checkin penk parents: diff changeset	2239	].
4504 e07fb8560de3 * empty log message * penk parents: 4502 diff changeset	2240	^ ''
4463 99d11fbee2af initial checkin penk parents: diff changeset	2241	!
99d11fbee2af initial checkin penk parents: diff changeset	2242
99d11fbee2af initial checkin penk parents: diff changeset	2243	getTotalStackStringFor:aProcess
99d11fbee2af initial checkin penk parents: diff changeset	2244
99d11fbee2af initial checkin penk parents: diff changeset	2245
99d11fbee2af initial checkin penk parents: diff changeset	2246	aProcess id == 0 ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2247	^ 'unlimited'.
99d11fbee2af initial checkin penk parents: diff changeset	2248	] ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2249	\| tStackSize noOfSegs \|
99d11fbee2af initial checkin penk parents: diff changeset	2250	((tStackSize := aProcess totalStackSize) notNil and:[
99d11fbee2af initial checkin penk parents: diff changeset	2251	(noOfSegs := aProcess numberOfStackSegments) notNil
99d11fbee2af initial checkin penk parents: diff changeset	2252	]) ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2253	^ ((tStackSize printString),
99d11fbee2af initial checkin penk parents: diff changeset	2254	' (',
99d11fbee2af initial checkin penk parents: diff changeset	2255	(noOfSegs printString),
99d11fbee2af initial checkin penk parents: diff changeset	2256	')' )
99d11fbee2af initial checkin penk parents: diff changeset	2257	]
99d11fbee2af initial checkin penk parents: diff changeset	2258	].
4504 e07fb8560de3 * empty log message * penk parents: 4502 diff changeset	2259	^ ''
4463 99d11fbee2af initial checkin penk parents: diff changeset	2260	!
99d11fbee2af initial checkin penk parents: diff changeset	2261
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2262	getWhereStringFor:con running:isRunning
4463 99d11fbee2af initial checkin penk parents: diff changeset	2263	con notNil ifTrue:[
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2264	\|c found skipping\|
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2265
4463 99d11fbee2af initial checkin penk parents: diff changeset	2266	c := con.
99d11fbee2af initial checkin penk parents: diff changeset	2267	found := false.
99d11fbee2af initial checkin penk parents: diff changeset	2268	isRunning ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2269	"/ search for a semaphore-wait in the top 10 contexts
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2270	1 to:10 do:[:n \|
4463 99d11fbee2af initial checkin penk parents: diff changeset	2271	found ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2272	c notNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2273	(c receiver class == Semaphore) ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2274	c selector == #wait ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2275	found := true.
99d11fbee2af initial checkin penk parents: diff changeset	2276	]
99d11fbee2af initial checkin penk parents: diff changeset	2277	].
99d11fbee2af initial checkin penk parents: diff changeset	2278	c := c sender.
99d11fbee2af initial checkin penk parents: diff changeset	2279	]
99d11fbee2af initial checkin penk parents: diff changeset	2280	]
99d11fbee2af initial checkin penk parents: diff changeset	2281	].
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2282	].
4463 99d11fbee2af initial checkin penk parents: diff changeset	2283	found ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2284	"/ search for a non-processor, non-process
99d11fbee2af initial checkin penk parents: diff changeset	2285	"/ receiver in the top 10 contexts
99d11fbee2af initial checkin penk parents: diff changeset	2286	c := con.
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2287	1 to:10 do:[:n \|
4463 99d11fbee2af initial checkin penk parents: diff changeset	2288	\|r\|
99d11fbee2af initial checkin penk parents: diff changeset	2289
99d11fbee2af initial checkin penk parents: diff changeset	2290	found ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2291	c notNil ifTrue:[
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2292	((r := c receiver) ~~ Processor and:[ r class ~~ Process ]) ifTrue:[
4463 99d11fbee2af initial checkin penk parents: diff changeset	2293	found := true.
99d11fbee2af initial checkin penk parents: diff changeset	2294	] ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2295	c := c sender.
99d11fbee2af initial checkin penk parents: diff changeset	2296	]
99d11fbee2af initial checkin penk parents: diff changeset	2297	]
99d11fbee2af initial checkin penk parents: diff changeset	2298	]
99d11fbee2af initial checkin penk parents: diff changeset	2299	]
99d11fbee2af initial checkin penk parents: diff changeset	2300	].
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2301
4463 99d11fbee2af initial checkin penk parents: diff changeset	2302	"/ skip, until an interesting context is
99d11fbee2af initial checkin penk parents: diff changeset	2303	"/ found.
99d11fbee2af initial checkin penk parents: diff changeset	2304	"/ this skips intermediate contexts, which lead
99d11fbee2af initial checkin penk parents: diff changeset	2305	"/ to the sema-wait (for example, unwind blocks,
99d11fbee2af initial checkin penk parents: diff changeset	2306	"/ delay-stuff etc.)
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2307	found ifFalse:[
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2308	c := con
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2309	].
4463 99d11fbee2af initial checkin penk parents: diff changeset	2310	skipping := true.
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2311	[ skipping ] whileTrue:[
4463 99d11fbee2af initial checkin penk parents: diff changeset	2312	skipping := false.
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2313	(c notNil and:[ c receiver == Delay or:[ c receiver class == Delay ] ]) ifTrue:[
4463 99d11fbee2af initial checkin penk parents: diff changeset	2314	c := c sender.
99d11fbee2af initial checkin penk parents: diff changeset	2315	skipping := true.
99d11fbee2af initial checkin penk parents: diff changeset	2316	].
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2317	[
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2318	c notNil and:[ c receiver isBlock and:[ c selector startsWith:'value' ] ]
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2319	] whileTrue:[
4463 99d11fbee2af initial checkin penk parents: diff changeset	2320	c := c sender.
99d11fbee2af initial checkin penk parents: diff changeset	2321	skipping := true.
99d11fbee2af initial checkin penk parents: diff changeset	2322	].
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2323	[
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2324	c notNil and:[ c receiver isBlock and:[ c selector = 'ensure:' ] ]
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2325	] whileTrue:[
4463 99d11fbee2af initial checkin penk parents: diff changeset	2326	c := c sender.
99d11fbee2af initial checkin penk parents: diff changeset	2327	skipping := true.
99d11fbee2af initial checkin penk parents: diff changeset	2328	].
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2329	[
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2330	c notNil
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2331	and:[ c receiver == OperatingSystem and:[ c selector == #unblockInterrupts ] ]
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2332	] whileTrue:[
4463 99d11fbee2af initial checkin penk parents: diff changeset	2333	c := c sender.
99d11fbee2af initial checkin penk parents: diff changeset	2334	skipping := true.
99d11fbee2af initial checkin penk parents: diff changeset	2335	].
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2336	[
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2337	c notNil and:[ c isBlockContext ]
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2338	] whileTrue:[
4463 99d11fbee2af initial checkin penk parents: diff changeset	2339	c := c home.
99d11fbee2af initial checkin penk parents: diff changeset	2340	skipping := true.
99d11fbee2af initial checkin penk parents: diff changeset	2341	].
99d11fbee2af initial checkin penk parents: diff changeset	2342	].
99d11fbee2af initial checkin penk parents: diff changeset	2343	c notNil ifTrue:[
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2344	\|sel\|
d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2345
4463 99d11fbee2af initial checkin penk parents: diff changeset	2346	sel := c selector.
99d11fbee2af initial checkin penk parents: diff changeset	2347	sel isNil ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2348	sel := '* unknown *'
99d11fbee2af initial checkin penk parents: diff changeset	2349	].
5538 d004f232b1df cosmetics Stefan Vogel <sv@exept.de> parents: 5047 diff changeset	2350	^ (c receiver class name , '>>' , sel).
4463 99d11fbee2af initial checkin penk parents: diff changeset	2351	]
99d11fbee2af initial checkin penk parents: diff changeset	2352	].
4504 e07fb8560de3 * empty log message * penk parents: 4502 diff changeset	2353	^ ''
4463 99d11fbee2af initial checkin penk parents: diff changeset	2354	! !
99d11fbee2af initial checkin penk parents: diff changeset	2355
99d11fbee2af initial checkin penk parents: diff changeset	2356	!ProcessMonitorV2 methodsFor:'sorting'!
99d11fbee2af initial checkin penk parents: diff changeset	2357
99d11fbee2af initial checkin penk parents: diff changeset	2358	sortProcessListBy:instanceName
99d11fbee2af initial checkin penk parents: diff changeset	2359	"method to sort the list of BugReport"
99d11fbee2af initial checkin penk parents: diff changeset	2360
99d11fbee2af initial checkin penk parents: diff changeset	2361	\| aSymbol isReverse cmpOp currentSortOrder\|
99d11fbee2af initial checkin penk parents: diff changeset	2362
99d11fbee2af initial checkin penk parents: diff changeset	2363	aSymbol := instanceName asSymbol.
99d11fbee2af initial checkin penk parents: diff changeset	2364	isReverse := false.
99d11fbee2af initial checkin penk parents: diff changeset	2365	currentSortOrder := self currentSortOrder value.
99d11fbee2af initial checkin penk parents: diff changeset	2366	currentSortOrder isEmpty ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2367	currentSortOrder at:#column put:aSymbol.
99d11fbee2af initial checkin penk parents: diff changeset	2368	currentSortOrder at:#reverse put:false.
99d11fbee2af initial checkin penk parents: diff changeset	2369	] ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2370	(currentSortOrder at:#column) = aSymbol ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2371	"/ same column like before - change sort order ifReverse is true
99d11fbee2af initial checkin penk parents: diff changeset	2372	isReverse := currentSortOrder at:#reverse.
99d11fbee2af initial checkin penk parents: diff changeset	2373	currentSortOrder at:#reverse put:(isReverse not).
99d11fbee2af initial checkin penk parents: diff changeset	2374	] ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2375	"/ another column - remark column
99d11fbee2af initial checkin penk parents: diff changeset	2376	currentSortOrder at:#column put:aSymbol.
99d11fbee2af initial checkin penk parents: diff changeset	2377	]
99d11fbee2af initial checkin penk parents: diff changeset	2378	].
99d11fbee2af initial checkin penk parents: diff changeset	2379	(currentSortOrder at:#reverse) ifTrue:[
99d11fbee2af initial checkin penk parents: diff changeset	2380	cmpOp := #'>'
99d11fbee2af initial checkin penk parents: diff changeset	2381	] ifFalse:[
99d11fbee2af initial checkin penk parents: diff changeset	2382	cmpOp := #'<'
99d11fbee2af initial checkin penk parents: diff changeset	2383	].
99d11fbee2af initial checkin penk parents: diff changeset	2384	sortBlock := [:a :b \|
99d11fbee2af initial checkin penk parents: diff changeset	2385	\|entry1 entry2\|
99d11fbee2af initial checkin penk parents: diff changeset	2386
4568 9576c0894332 Take care for nil fields when sorting Stefan Vogel <sv@exept.de> parents: 4565 diff changeset	2387	entry1 := (a perform:aSymbol) ? 0.
9576c0894332 Take care for nil fields when sorting Stefan Vogel <sv@exept.de> parents: 4565 diff changeset	2388	entry2 := (b perform:aSymbol) ? 0.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2389	entry1 = entry2 ifTrue:[
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2390	(a idVal < 0 and:[b idVal < 0]) ifTrue:[
4501 fe34b74d09ff sort penk parents: 4498 diff changeset	2391	"/ two dead ones (take anything which remains constant)
fe34b74d09ff sort penk parents: 4498 diff changeset	2392	a processName ~= b processName ifTrue:[
fe34b74d09ff sort penk parents: 4498 diff changeset	2393	a processName < b processName
fe34b74d09ff sort penk parents: 4498 diff changeset	2394	] ifFalse:[
fe34b74d09ff sort penk parents: 4498 diff changeset	2395	a processInstance identityHash < b processInstance identityHash
fe34b74d09ff sort penk parents: 4498 diff changeset	2396	]
fe34b74d09ff sort penk parents: 4498 diff changeset	2397	] ifFalse:[
fe34b74d09ff sort penk parents: 4498 diff changeset	2398	a idVal < b idVal
fe34b74d09ff sort penk parents: 4498 diff changeset	2399	]
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2400	] ifFalse:[
4568 9576c0894332 Take care for nil fields when sorting Stefan Vogel <sv@exept.de> parents: 4565 diff changeset	2401	entry1 perform:cmpOp with:entry2
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2402	]
4463 99d11fbee2af initial checkin penk parents: diff changeset	2403	].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2404	self viewedColumnsChanged.
4463 99d11fbee2af initial checkin penk parents: diff changeset	2405	! !
99d11fbee2af initial checkin penk parents: diff changeset	2406
99d11fbee2af initial checkin penk parents: diff changeset	2407	!ProcessMonitorV2 methodsFor:'update process'!
99d11fbee2af initial checkin penk parents: diff changeset	2408
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2409	fillItemInformationIn:processItem
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2410
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2411	\| running con aProcess\|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2412
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2413	aProcess := processItem processInstance.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2414	aProcess isNil ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2415	^ self.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2416	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2417
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2418	processItem processId:aProcess id.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2419	processItem idVal:aProcess id ? -1.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2420
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2421	processItem processGroup:(self getGroupStringFor:aProcess).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2422	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	2423
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2424	processItem processName:aProcess name ? ''.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2425
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2426	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	2427
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2428	processItem processState:(aProcess state asString).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2429	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	2430
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2431	processItem prioVal:(aProcess priority).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2432	processItem processPrio:(self getPrioStringFor:aProcess).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2433
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2434	processItem processUsedStack:aProcess usedStackSize.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2435
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2436	processItem processTotalStack:(self getTotalStackStringFor:aProcess).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2437
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2438	con := aProcess suspendedContext.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2439	con isNil ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2440	aProcess == Processor activeProcess ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2441	con := thisContext
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2442	]
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2443	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2444
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2445	processItem processCurrentSegment:(self getCurrentSegmentStringFor:con).
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	processItem processSwitch:(aProcess numberOfStackBoundaryHits).
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	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	2450	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2451
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2452	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	2453
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2454	processItem weakArrayWithProcesses:weakArrayWithProcesses.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2455	processItem processInstanceIndexInWeakArray:processInstanceIndexInWeakArray.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2456	self fillItemInformationIn:processItem
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2457	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2458
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2459	startUpdateProcess
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2460	updateBlock notNil ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2461	Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2462	Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2463	] ifFalse:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2464	updateProcess := [
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2465	[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2466	\|id cnt myDelay\|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2467
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2468	myDelay := Delay forSeconds:self scaledUpdateContentsDelayTime.
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	"
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2471	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	2472	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	2473	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	2474	built up again
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2475	"
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2476	[true] whileTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2477	((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	2478	myDelay wait.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2479	self updateStatus:nil.
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	myDelay wait.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2482	self updateList.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2483	]
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2484	] valueOnUnwindDo:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2485	updateProcess := nil
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	] forkAt:(Processor userSchedulingPriority + 1).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2488	updateProcess name:'monitor [' ,
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2489	Processor activeProcess id printString ,
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2490	'] update'.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2491	"
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2492	raise my own priority
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	Processor activeProcess priority:(Processor userSchedulingPriority + 2)
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2495	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2496	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2497
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2498	updateChangedItem:oldItem newItem:newItem atIndex:index
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2499
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2500	\| colIdx \|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2501	colIdx := 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2502
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2503	oldItem weakArrayWithProcesses:newItem weakArrayWithProcesses.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2504	oldItem processInstanceIndexInWeakArray:newItem processInstanceIndexInWeakArray.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2505
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2506	"/ ID
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2507	oldItem processId ~= newItem processId ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2508	oldItem processId:newItem processId.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2509	processTable invalidateRowAt:index colAt:colIdx.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2510	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2511	"/ GROUP
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2512	self showGroup value ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2513	colIdx := colIdx + 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2514	oldItem processGroup ~= newItem processGroup ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2515	oldItem processGroup:newItem processGroup.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2516	processTable invalidateRowAt:index colAt:colIdx.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2517	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2518	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2519	"/ NAME
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2520	colIdx := colIdx + 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2521	oldItem processName ~= newItem processName ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2522	oldItem processName:newItem processName.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2523	processTable invalidateRowAt:index colAt:colIdx.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2524	].
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2525	"/ ACTIVE
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2526	colIdx := colIdx + 1.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2527	oldItem processActive ~= newItem processActive ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2528	oldItem processActive:newItem processActive.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2529	(processTable columnAt:colIdx).
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2530	processTable invalidateRowAt:index colAt:colIdx.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2531	].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2532	"/ STATE
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2533	self showState value ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2534	colIdx := colIdx + 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2535	oldItem processState ~= newItem processState ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2536	oldItem processState:newItem processState.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2537	(processTable columnAt:colIdx).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2538	processTable invalidateRowAt:index colAt:colIdx.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2539	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2540	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2541	"/ PRIO
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2542	self showPrio value ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2543	colIdx := colIdx + 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2544	oldItem processPrio ~= newItem processPrio ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2545	oldItem processPrio:newItem processPrio.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2546	processTable invalidateRowAt:index colAt:colIdx.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2547	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2548	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2549	"/ USED STACK
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2550	self showUsedStack value ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2551	colIdx := colIdx + 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2552	oldItem processUsedStack ~= newItem processUsedStack ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2553	oldItem processUsedStack:newItem processUsedStack.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2554	processTable invalidateRowAt:index colAt:colIdx.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2555	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2556	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2557	"/ TOTAL STACK
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2558	self showTotalStack value ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2559	colIdx := colIdx + 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2560	oldItem processTotalStack ~= newItem processTotalStack ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2561	oldItem processTotalStack:newItem processTotalStack.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2562	processTable invalidateRowAt:index colAt:colIdx.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2563	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2564	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2565	"/ CURRENT SEGMENT
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2566	self showCurrentSegment value ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2567	colIdx := colIdx + 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2568	oldItem processCurrentSegment ~= newItem processCurrentSegment ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2569	oldItem processCurrentSegment:newItem processCurrentSegment.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2570	processTable invalidateRowAt:index colAt:colIdx.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2571	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2572	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2573	"/ Switch
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2574	self showSwitch value ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2575	colIdx := colIdx + 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2576	oldItem processSwitch ~= newItem processSwitch ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2577	oldItem processSwitch:newItem processSwitch.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2578	processTable invalidateRowAt:index colAt:colIdx.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2579	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2580	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2581	"/ WHERE
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2582	self showWhere value ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2583	colIdx := colIdx + 1.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2584	oldItem processWhere ~= newItem processWhere ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2585	oldItem processWhere:newItem processWhere.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2586	processTable invalidateRowAt:index colAt:colIdx.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2587	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2588	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2589	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2590
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2591	updateList
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2592
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2593	\|newList\|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2594
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2595	processTable shown ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2596	newList := self getProcessList.
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2597	visibleBlock notNil ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2598	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	2599	].
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2600	self updateStatus:newList.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2601	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2602	updateBlock notNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2603	Processor removeTimedBlock:listUpdateBlock.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2604	Processor addTimedBlock:listUpdateBlock afterSeconds:self scaledUpdateListDelayTime.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2605	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2606	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2607
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2608	updateStatus:newProcessList
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2609
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2610	\|startTime endTime deltaT\|
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2611
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2612
5783 5ce97d85326d Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5764 diff changeset	2613	startTime := Timestamp now.
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2614	updateSema critical:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2615	self updateTable:newProcessList.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2616	].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2617
5783 5ce97d85326d Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5764 diff changeset	2618	endTime := Timestamp now.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2619	deltaT := (endTime millisecondDeltaFrom:startTime) / 1000.0.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2620	"/ Transcript show:deltaT; show:' ' ; showCR:(self scaledUpdateContentsDelayTime / 10.0).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2621	deltaT > (self scaledUpdateContentsDelayTime / 5) ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2622	"/ the update took longer than 20% - make delay longer, to reduce cpu load.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2623	self updateContentsDelayTime value:(self scaledUpdateContentsDelayTime * 2).
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2624	"/ Transcript show:'+++ '; showCR:self scaledUpdateContentsDelayTime.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2625	] ifFalse:[
4570 3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2626	"/ self scaledUpdateContentsDelayTime > 0.5 ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2627	"/ deltaT < (self scaledUpdateContentsDelayTime / 20) ifTrue:[
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2628	"/ "/ 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	2629	"/ 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	2630	"/ "/ Transcript show:'--- ';showCR:self scaledUpdateContentsDelayTime.
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2631	"/ ].
3dc36c259ca1 show dead processes have to be enabled after fix remove dead processes penk parents: 4568 diff changeset	2632	"/ ].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2633	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2634	updateBlock notNil ifTrue:[
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2635	Processor removeTimedBlock:updateBlock.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2636	Processor addTimedBlock:updateBlock afterSeconds:self scaledUpdateContentsDelayTime.
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2637	]
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2638	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2639
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2640	updateTable:newProcessList
6042 1ff91f63c1b7 * empty log message * Stefan Vogel <sv@exept.de> parents: 6010 diff changeset	2641	\|oldSelection newList sel diff weakProcessList\|
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2642
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2643	processTable shown ifTrue:[
5783 5ce97d85326d Rename AbsoluteTime to Timestamp Stefan Vogel <sv@exept.de> parents: 5764 diff changeset	2644	"/ 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	2645	sel := self selectedProcesses value.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2646	sel notNil ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2647	oldSelection := OrderedCollection new.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2648	sel do:[:proItem\|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2649	proItem processInstance notNil ifTrue:[
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2650	oldSelection add:(proItem processInstance)
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2651	].
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2652	].
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2653	].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2654	"/ 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	2655	newProcessList isNil ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2656	newList := OrderedCollection new.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2657	processList do:[:oldItem \|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2658	\| newItem \|
6042 1ff91f63c1b7 * empty log message * Stefan Vogel <sv@exept.de> parents: 6010 diff changeset	2659	(self showDead value
1ff91f63c1b7 * empty log message * Stefan Vogel <sv@exept.de> parents: 6010 diff changeset	2660	or:[oldItem processInstance notNil
1ff91f63c1b7 * empty log message * Stefan Vogel <sv@exept.de> parents: 6010 diff changeset	2661	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	2662	newItem := oldItem copy.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2663	self fillItemInformationIn:newItem.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2664	newList add:newItem.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2665	]
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2666	].
6042 1ff91f63c1b7 * empty log message * Stefan Vogel <sv@exept.de> parents: 6010 diff changeset	2667	] ifFalse:[
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2668	"/ remove dead processes if not shown
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2669	newList := OrderedCollection new.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2670	weakProcessList := WeakArray withAll:newProcessList.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2671	weakProcessList keysAndValuesDo:[:indexInWeakArray :procOrNilOrZero \|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2672	"/ 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	2673	(procOrNilOrZero notNil and:[procOrNilOrZero ~~ 0]) ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2674	(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	2675	\| processItem \|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2676	processItem := ProcessItem new.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2677	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	2678	newList add:processItem.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2679	]
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2680	]
4505 4c309bc91890 * empty log message * penk parents: 4504 diff changeset	2681	].
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2682	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2683	newList sort:self sortBlock.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2684	newList doWithIndex:[:newItem :index\|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2685	\| oldItem \|
6042 1ff91f63c1b7 * empty log message * Stefan Vogel <sv@exept.de> parents: 6010 diff changeset	2686	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	2687	oldItem isNil ifTrue:[
6042 1ff91f63c1b7 * empty log message * Stefan Vogel <sv@exept.de> parents: 6010 diff changeset	2688	processList add:newItem beforeIndex:index
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2689	] ifFalse:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2690	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	2691	]
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2692	].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2693	diff := processList size - newList size.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2694	diff > 0 ifTrue:[
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2695	processList removeLast:diff
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2696	].
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2697	"/ 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	2698	self changeSelectionToProcesses:oldSelection.
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2699	].
4463 99d11fbee2af initial checkin penk parents: diff changeset	2700	! !
99d11fbee2af initial checkin penk parents: diff changeset	2701
99d11fbee2af initial checkin penk parents: diff changeset	2702	!ProcessMonitorV2::ProcessItem methodsFor:'accessing'!
99d11fbee2af initial checkin penk parents: diff changeset	2703
99d11fbee2af initial checkin penk parents: diff changeset	2704	groupVal
99d11fbee2af initial checkin penk parents: diff changeset	2705	"return the value of the instance variable 'groupVal' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2706
99d11fbee2af initial checkin penk parents: diff changeset	2707	^ groupVal
99d11fbee2af initial checkin penk parents: diff changeset	2708	!
99d11fbee2af initial checkin penk parents: diff changeset	2709
99d11fbee2af initial checkin penk parents: diff changeset	2710	groupVal:something
99d11fbee2af initial checkin penk parents: diff changeset	2711	"set the value of the instance variable 'groupVal' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2712
99d11fbee2af initial checkin penk parents: diff changeset	2713	groupVal := something.
99d11fbee2af initial checkin penk parents: diff changeset	2714	!
99d11fbee2af initial checkin penk parents: diff changeset	2715
99d11fbee2af initial checkin penk parents: diff changeset	2716	idVal
99d11fbee2af initial checkin penk parents: diff changeset	2717	"return the value of the instance variable 'idVal' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2718
99d11fbee2af initial checkin penk parents: diff changeset	2719	^ idVal
99d11fbee2af initial checkin penk parents: diff changeset	2720	!
99d11fbee2af initial checkin penk parents: diff changeset	2721
99d11fbee2af initial checkin penk parents: diff changeset	2722	idVal:something
99d11fbee2af initial checkin penk parents: diff changeset	2723	"set the value of the instance variable 'idVal' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2724
99d11fbee2af initial checkin penk parents: diff changeset	2725	idVal := something.
99d11fbee2af initial checkin penk parents: diff changeset	2726	!
99d11fbee2af initial checkin penk parents: diff changeset	2727
99d11fbee2af initial checkin penk parents: diff changeset	2728	prioVal
99d11fbee2af initial checkin penk parents: diff changeset	2729	"return the value of the instance variable 'prioVal' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2730
99d11fbee2af initial checkin penk parents: diff changeset	2731	^ prioVal
99d11fbee2af initial checkin penk parents: diff changeset	2732	!
99d11fbee2af initial checkin penk parents: diff changeset	2733
99d11fbee2af initial checkin penk parents: diff changeset	2734	prioVal:something
99d11fbee2af initial checkin penk parents: diff changeset	2735	"set the value of the instance variable 'prioVal' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2736
99d11fbee2af initial checkin penk parents: diff changeset	2737	prioVal := something.
99d11fbee2af initial checkin penk parents: diff changeset	2738	!
99d11fbee2af initial checkin penk parents: diff changeset	2739
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2740	processActive
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2741	"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	2742
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2743	^ processActive
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2744	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2745
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2746	processActive:something
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2747	"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	2748
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2749	processActive := something.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2750	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2751
4463 99d11fbee2af initial checkin penk parents: diff changeset	2752	processCurrentSegment
99d11fbee2af initial checkin penk parents: diff changeset	2753	"return the value of the instance variable 'processCurrentSegment' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2754
99d11fbee2af initial checkin penk parents: diff changeset	2755	^ processCurrentSegment
99d11fbee2af initial checkin penk parents: diff changeset	2756	!
99d11fbee2af initial checkin penk parents: diff changeset	2757
99d11fbee2af initial checkin penk parents: diff changeset	2758	processCurrentSegment:something
99d11fbee2af initial checkin penk parents: diff changeset	2759	"set the value of the instance variable 'processCurrentSegment' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2760
99d11fbee2af initial checkin penk parents: diff changeset	2761	processCurrentSegment := 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	processGroup
99d11fbee2af initial checkin penk parents: diff changeset	2765	"return the value of the instance variable 'processGroup' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2766
99d11fbee2af initial checkin penk parents: diff changeset	2767	^ processGroup
99d11fbee2af initial checkin penk parents: diff changeset	2768	!
99d11fbee2af initial checkin penk parents: diff changeset	2769
99d11fbee2af initial checkin penk parents: diff changeset	2770	processGroup:something
99d11fbee2af initial checkin penk parents: diff changeset	2771	"set the value of the instance variable 'processGroup' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2772
99d11fbee2af initial checkin penk parents: diff changeset	2773	processGroup := something.
99d11fbee2af initial checkin penk parents: diff changeset	2774	!
99d11fbee2af initial checkin penk parents: diff changeset	2775
99d11fbee2af initial checkin penk parents: diff changeset	2776	processId
99d11fbee2af initial checkin penk parents: diff changeset	2777	"return the value of the instance variable 'processId' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2778
99d11fbee2af initial checkin penk parents: diff changeset	2779	^ processId
99d11fbee2af initial checkin penk parents: diff changeset	2780	!
99d11fbee2af initial checkin penk parents: diff changeset	2781
99d11fbee2af initial checkin penk parents: diff changeset	2782	processId:something
99d11fbee2af initial checkin penk parents: diff changeset	2783	"set the value of the instance variable 'processId' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2784
99d11fbee2af initial checkin penk parents: diff changeset	2785	processId := something.
99d11fbee2af initial checkin penk parents: diff changeset	2786	!
99d11fbee2af initial checkin penk parents: diff changeset	2787
99d11fbee2af initial checkin penk parents: diff changeset	2788	processInstance
99d11fbee2af initial checkin penk parents: diff changeset	2789	"return the value of the instance variable 'processInstance' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2790
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2791	\|procOrNilOrZero\|
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2792
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2793	procOrNilOrZero := weakArrayWithProcesses at:processInstanceIndexInWeakArray.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2794	procOrNilOrZero == 0 ifTrue:[^ nil].
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2795	^ procOrNilOrZero
4463 99d11fbee2af initial checkin penk parents: diff changeset	2796	!
99d11fbee2af initial checkin penk parents: diff changeset	2797
99d11fbee2af initial checkin penk parents: diff changeset	2798	processInstance:something
99d11fbee2af initial checkin penk parents: diff changeset	2799	"set the value of the instance variable 'processInstance' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2800
99d11fbee2af initial checkin penk parents: diff changeset	2801	processInstance := something.
99d11fbee2af initial checkin penk parents: diff changeset	2802	!
99d11fbee2af initial checkin penk parents: diff changeset	2803
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2804	processInstanceIndexInWeakArray
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2805	"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	2806
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2807	^ processInstanceIndexInWeakArray
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2808	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2809
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2810	processInstanceIndexInWeakArray:something
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2811	"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	2812
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2813	processInstanceIndexInWeakArray := something.
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2814	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2815
4463 99d11fbee2af initial checkin penk parents: diff changeset	2816	processName
99d11fbee2af initial checkin penk parents: diff changeset	2817	"return the value of the instance variable 'processName' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2818
99d11fbee2af initial checkin penk parents: diff changeset	2819	^ processName
99d11fbee2af initial checkin penk parents: diff changeset	2820	!
99d11fbee2af initial checkin penk parents: diff changeset	2821
99d11fbee2af initial checkin penk parents: diff changeset	2822	processName:something
99d11fbee2af initial checkin penk parents: diff changeset	2823	"set the value of the instance variable 'processName' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2824
99d11fbee2af initial checkin penk parents: diff changeset	2825	processName := something.
99d11fbee2af initial checkin penk parents: diff changeset	2826	!
99d11fbee2af initial checkin penk parents: diff changeset	2827
99d11fbee2af initial checkin penk parents: diff changeset	2828	processPrio
99d11fbee2af initial checkin penk parents: diff changeset	2829	"return the value of the instance variable 'processPrio' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2830
99d11fbee2af initial checkin penk parents: diff changeset	2831	^ processPrio
99d11fbee2af initial checkin penk parents: diff changeset	2832	!
99d11fbee2af initial checkin penk parents: diff changeset	2833
99d11fbee2af initial checkin penk parents: diff changeset	2834	processPrio:something
99d11fbee2af initial checkin penk parents: diff changeset	2835	"set the value of the instance variable 'processPrio' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2836
99d11fbee2af initial checkin penk parents: diff changeset	2837	processPrio := something.
99d11fbee2af initial checkin penk parents: diff changeset	2838	!
99d11fbee2af initial checkin penk parents: diff changeset	2839
99d11fbee2af initial checkin penk parents: diff changeset	2840	processState
99d11fbee2af initial checkin penk parents: diff changeset	2841	"return the value of the instance variable 'processState' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2842
99d11fbee2af initial checkin penk parents: diff changeset	2843	^ processState
99d11fbee2af initial checkin penk parents: diff changeset	2844	!
99d11fbee2af initial checkin penk parents: diff changeset	2845
99d11fbee2af initial checkin penk parents: diff changeset	2846	processState:something
99d11fbee2af initial checkin penk parents: diff changeset	2847	"set the value of the instance variable 'processState' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2848
99d11fbee2af initial checkin penk parents: diff changeset	2849	processState := something.
99d11fbee2af initial checkin penk parents: diff changeset	2850	!
99d11fbee2af initial checkin penk parents: diff changeset	2851
99d11fbee2af initial checkin penk parents: diff changeset	2852	processSwitch
99d11fbee2af initial checkin penk parents: diff changeset	2853	"return the value of the instance variable 'processSwitch' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2854
99d11fbee2af initial checkin penk parents: diff changeset	2855	^ processSwitch
99d11fbee2af initial checkin penk parents: diff changeset	2856	!
99d11fbee2af initial checkin penk parents: diff changeset	2857
99d11fbee2af initial checkin penk parents: diff changeset	2858	processSwitch:something
99d11fbee2af initial checkin penk parents: diff changeset	2859	"set the value of the instance variable 'processSwitch' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2860
99d11fbee2af initial checkin penk parents: diff changeset	2861	processSwitch := 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	processTotalStack
99d11fbee2af initial checkin penk parents: diff changeset	2865	"return the value of the instance variable 'processTotalStack' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2866
99d11fbee2af initial checkin penk parents: diff changeset	2867	^ processTotalStack
99d11fbee2af initial checkin penk parents: diff changeset	2868	!
99d11fbee2af initial checkin penk parents: diff changeset	2869
99d11fbee2af initial checkin penk parents: diff changeset	2870	processTotalStack:something
99d11fbee2af initial checkin penk parents: diff changeset	2871	"set the value of the instance variable 'processTotalStack' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2872
99d11fbee2af initial checkin penk parents: diff changeset	2873	processTotalStack := 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	processUsedStack
99d11fbee2af initial checkin penk parents: diff changeset	2877	"return the value of the instance variable 'processUsedStack' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2878
99d11fbee2af initial checkin penk parents: diff changeset	2879	^ processUsedStack
99d11fbee2af initial checkin penk parents: diff changeset	2880	!
99d11fbee2af initial checkin penk parents: diff changeset	2881
99d11fbee2af initial checkin penk parents: diff changeset	2882	processUsedStack:something
99d11fbee2af initial checkin penk parents: diff changeset	2883	"set the value of the instance variable 'processUsedStack' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2884
99d11fbee2af initial checkin penk parents: diff changeset	2885	processUsedStack := 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	processWhere
99d11fbee2af initial checkin penk parents: diff changeset	2889	"return the value of the instance variable 'processWhere' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2890
99d11fbee2af initial checkin penk parents: diff changeset	2891	^ processWhere
99d11fbee2af initial checkin penk parents: diff changeset	2892	!
99d11fbee2af initial checkin penk parents: diff changeset	2893
99d11fbee2af initial checkin penk parents: diff changeset	2894	processWhere:something
99d11fbee2af initial checkin penk parents: diff changeset	2895	"set the value of the instance variable 'processWhere' (automatically generated)"
99d11fbee2af initial checkin penk parents: diff changeset	2896
99d11fbee2af initial checkin penk parents: diff changeset	2897	processWhere := something.
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2898	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2899
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2900	weakArrayWithProcesses
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2901	"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	2902
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2903	^ weakArrayWithProcesses
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2904	!
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2905
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2906	weakArrayWithProcesses:something
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2907	"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	2908
4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2909	weakArrayWithProcesses := something.
4463 99d11fbee2af initial checkin penk parents: diff changeset	2910	! !
99d11fbee2af initial checkin penk parents: diff changeset	2911
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2912	!ProcessMonitorV2::ProcessItem methodsFor:'printing'!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2913
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2914	displayString
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2915
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2916	^ self printString
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2917	!
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2918
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2919	printString
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2920
4576 4423626f9dfe now the dead processes are gone if collect garbage will pressed in penk parents: 4570 diff changeset	2921	^ self processName ? '' , '[', self processId ? '' asString, ']'
4498 fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2922	! !
fcebf25e6033 next stage for process monitor penk parents: 4468 diff changeset	2923
4463 99d11fbee2af initial checkin penk parents: diff changeset	2924	!ProcessMonitorV2 class methodsFor:'documentation'!
99d11fbee2af initial checkin penk parents: diff changeset	2925
99d11fbee2af initial checkin penk parents: diff changeset	2926	version
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6300 diff changeset	2927	^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.28 2005-11-29 17:02:35 cg Exp $'
4463 99d11fbee2af initial checkin penk parents: diff changeset	2928	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 22 Feb 2006 15:02:11 +0100
changeset 6600	985a13c5e7b1
parent 6427	b2a6087bbedf
child 6609	8c68fe4eba22
permissions	-rw-r--r--