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

author	Claus Gittinger <cg@exept.de>
	Mon, 19 Mar 2007 11:17:57 +0100
changeset 7757	935e3e45cca4
parent 7466	d90082d8c817
child 7767	1547d2d2005c
permissions	-rw-r--r--