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

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

author	Stefan Vogel <sv@exept.de>
	Wed, 18 Feb 2004 16:53:40 +0100
changeset 5538	d004f232b1df
parent 5047	329e9f52a7c1
child 5690	024838c5f342
permissions	-rw-r--r--