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

author	Claus Gittinger <cg@exept.de>
	Mon, 14 Feb 2011 17:23:19 +0100
changeset 9764	47b9c33465a1
parent 9661	947e86d2fc7f
child 9802	bc9e5d0493ff
permissions	-rw-r--r--