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

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

author	Claus Gittinger <cg@exept.de>
	Mon, 09 Jun 2008 15:53:15 +0200
changeset 8194	051110bdd147
parent 8001	07add94fd83b
child 8195	20edf1507e82
permissions	-rw-r--r--